|
|
|
Sistema de busca utilizando Flash + ASP.
|
|
por Émerson Rocha
Você provavelmente
já tentou fazer uma busca por palavra chave usando Flash + MDB.
Conseguir ou não, depende da sua persistência.
Clique
aqui para ver o exemplo
Com estas
informações, você verá que não é tão difícil ter o seu próprio
"Yahoo" usando Flash (o: . Quem nunca sonhou em ter uma busca
em seu site?
Comece fazendo o arquivo do banco de dados (mdb).
selecione
iniciar -> programas - Microsoft Access.
Clique
em arquivo -> novo. Na tela que se abre, selecione Banco de dados.
Salve seu banco em um diretório com o nome de "demo_emerson.mdb".
Clicando em inserir dados, se abrirá uma nova tabela. Clique em salvar
e dê o nome desta tabela. É importante que o nome desta
tabela seja "demo_emerson".
Crie 6 colunas com os nomes :
Salve
o arquivo.
Agora vamos para o arquivo ASP. Ele abrirá a conexão
com o banco e enviará as respostas para o seu Filme Flash. Abra um editor
de textos de sua preferência, o bloco de notas por exemplo. Coloque
no seu Bloco de notas os dados abaixo:
<%@Language="VBScript"%>
<%
Option Explicit
Dim oRS, oConn, strSQL
Dim results
Set oConn = Server.CreateObject("ADODB.Connection")
Set oRS = Server.CreateObject("ADODB.Recordset")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &
Server.MapPath("demo_emerson.mdb")
If UCase(Request("Nome")) = "ALL" Then
strSQL = "SELECT * FROM demo_emerson"
Else
strSQL = "SELECT * FROM demo_emerson WHERE Nome LIKE '" & Request("Nome")
& "'"
End If
oRS.Open strSQL, oConn, 2, 3
If oRS.EOF Then
Response.Write "success=False"
Else
Response.Write "success=True&results="
Do While Not oRS.EOF
results = results & oRS("Nome") & " " & oRS("Sobrenome")
& vbCr
results = results & oRS ("prof") & vbCr
results = results & oRS ("Email") & vbCr
results = results & oRS("site") & vbCrlf
oRS.MoveNext
Loop
End If
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
Response.Write Server.URLEncode(results)
%> |
Salve este arquivo como busca.asp
Não vou explicar o significado de cada código, porque
o foco deste tutorial é o FLASH e não ASP. Vamos agora ao arquivo Flash:
Inicie um novo filme no Flash, -> Arquivo->Novo.
No 1º frame coloque uma ação como abaixo:
Nome
= "";
success = "";
stop (); |
Crie um campo de texto dinâmico em variável coloque (Nome).
Crie um botão e coloque a ação abaixo:
on
(release) {
gotoAndPlay (2);
} |
No 2º frame coloque esta ação
| loadVariablesNum
("busca.asp", 0, "POST"); |
Esta
ação é muito importante, pois é ela que envia os dados para o
arquivo ASP que por sua vez faz a varredura dentro do banco de dados.
(Obs: Quero lembrar um detalhe que muitas vezes tira o sono do programador,
e é apenas uma falta de atenção. O método Post (Poste mas não
poste de energia, (o: Poste de POSTAR) ou seja ele esta enviando
informações. O método GET (adquira), recebe informações. Ok deu
para entender a diferença né? simples mas às vezes da uma dor
de cabeça.
No 3º Frame coloque a ação:
if
(success ne "") {
if (success eq "False") {
gotoAndStop (8);
} else {
gotoAndStop (7);
}
} |
Esta ação verifica se o nome que você está enviando
é verdadeiro ou falso. Se verdadeiro, ele vai para o frame 8, se falso,
vai para o 7.
Coloque no frame 3, 4 e 5 uma mensagem de aguarde,
para os maníacos de inglês de plantão Please await (o:.
No 6º frame coloque a ação:
Ele volta para o frame 3 se a resposta ainda não for concluída. No frame
7, crie um campo dinâmico e na variável coloque "results".
Este campo recebe as informações que o ASP envia para o filme Flash.
No frame 8 coloque uma resposta para nenhum resultado ex:
"Não foi encontrada nenhuma ocorrência para sua busca."
Salve o arquivo, publique um SWF e coloque o mesmo em um arquivo HTML.
O ASP necessita ser rodado em um servidor web, por
isso vá até sua pasta de publicação C:\inetput\wwwroot\busca ,
coloque os arquivos dentro da pasta "busca". Em seguida abra
seu Internet Explorer e digite http://suamaquina/busca. Se você não
tem o PWS ou o IIS instalado coloque em um servidor (provedor) que rode
arquivos ASP.
Se você quiser instalar o PWS em sua maquina consulte um outro artigo
dessa coluna: "Publicando uma enquete usando ASP e Flash".
Ps: Antes de mudar os nomes dos arquivos teste o funcionamento deste
tutorial. Um grande abraço Emerson Rocha.
|
Devido à reformulação implementada no site, pode ser que você encontre alguns links quebrados. Por favor, ajude-nos a corrigir eventuais problemas nos informando links quebrados
|
|
|
|
|
|
|
|
