Como Fazer A Busca Ser Rápida...

ju_rezende · Fevereiro 22, 2006

Olá pessoal estou com uma pequena duvida ..Existe algum comando que dixe a abertura da página mais rápida?

Mesmo que nessa pagina tenha asp - banco etc?

cyberalexxx · Fevereiro 22, 2006

Acho que não existe um comando que faça isso, o q você tem que fazer é tentar otimizar ao máximo o seu código para "dar uma folga" pro servidor.

Poste o seu código pra gente avaliar a sua lógica, que talvez alguém possa sugerir melhorias em termos de performance.

pogoball · Fevereiro 22, 2006

tipo nunca esquecer de fechar conexão.....

ou pegar um server mais vazio, ou melhor, ou um banco mais rápido e gerenciavel....

agora, comando pra abrir mais rápido só se você deixar quase tudo gravado no cache do usuário.....

já é um jeito...

ju_rezende · Fevereiro 22, 2006

Meu código

<%if session("NomeBusca")=replace(request.form("NomeBusca"), "'drop", "") or session("NomeBusca")=replace(request.form("NomeBusca"), "'select*", "") or session("NomeBusca")=replace(request.form("NomeBusca"), "'select", "")then
response.redirect ("erroendereco.asp")
end if
if session("NomeBusca")=replace(request.form("NomeBusca"), "'", "") or session("NomeBusca")= "" then
response.redirect ("erroendereco.asp")
end if%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Comércio de Jacareí</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div id="Layer1" style="position:absolute; left:300px; top:72px; width:107px; height:16px; z-index:1"pesquisamostrab.asp" method="post">
<%dim busca
db = server.MapPath ("dados\treino.mdb")
set con = server.CreateObject("adodb.connection")
set rs = server.CreateObject ("adodb.recordset")
set rs1 = server.CreateObject ("adodb.recordset")
sql1 = "select distinct Bairro from clientes where del=0"
sql = "select distinct Categoria from clientes where del=0"
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("..\dados\treino.mdb") &";Persist Security Info=False"
rs.Open sql,con,3,3
rs1.Open sql1,con,3,3%>
<form id="procurar" method="post" action="pesquisa.asp" name="form1">
<font face="Arial">
<select style="width: 130px;" name="Bairro">
<%rs1.movefirst%>
<option>Bairro</option>
<% do while rs1.eof = false %>
<option>
<%response.write rs1("bairro")%>
</option>
<% rs1.movenext %>
<%loop %> 

</select>
</font> </div>
<div id="Layer2" style="position:absolute; left:434px; top:73px; width:109px; height:17px; z-index:2">
<font face="Arial">
<select style="width: 130px;" name="categoria">
<%rs.movefirst%>
<option>Categoria</option>
<% do while rs.eof = false %>
<option>
<%response.write rs("categoria")%>
<% rs.movenext %>
</option>
<%loop %> 

</select>
</font> </div>
<div id="Layer3" style="position:absolute; left:566px; top:72px; width:108px; height:17px; z-index:3">
<input type="text" name="Empresa" style = "width: 120">
</div>
<div id="Layer4" style="position:absolute; left:690px; top:74px; width:68px; height:39px; z-index:4">
<input type="image" img src="../images/novasimagens/botao/bntprocurar.jpg" alt= "procurar" onclick="document.getElementById('procurar').submit()"></div>

<table width="339" border="0" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3"><img src="../images/novasimagens/1.gif" width="770" height="112" border="0" usemap="#Map">
<img src="../images/novasimagens/2.gif" width="769" height="89"> </td>
</tr>
<tr>
<td colspan="3" heig="14"> </td>
</form> </tr>
<tr>
<td width="147" valign="top"><img src="../images/novasimagens/pesquisa3.gif" width="147" height="648" border="0" usemap="#Map2">
</td>
<td width="442" valign="top">
<%dim busca1

busca1=request.form("NomeBusca")
sql2 = "select * from clientes where Endereco like '" & busca1 & "%' and del=0"
'db = server.MapPath ("dados\treino.mdb")
'set con = server.CreateObject("adodb.connection")
'con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("..\dados\treino.mdb") &";Persist Security Info=False"
set rs2 = server.CreateObject ("adodb.recordset")

rs2.Open sql2,con,3,3 %>
<table width="460" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2"><a href="Default.asp" target="_self">Home</a> <a href="../Endereco.asp" target="_self">Voltar</a>
</td>
<td width="173" colspan="9"><div align="right">Total de Registros
<%=rs2.recordcount%>
</div></td>
</tr>
<tr >
<td colspan="11"background="../images/novasimagens/fundodaTd.gif"><font size="2" face="Arial, Helvetica, sans-serif"><strong><font color="#990000">Pesquisa
por endereço da empresa </font></strong>>>
<%response.write busca1%></font></td>
</tr>
<%if rs2.eof=true then %>
<tr><td colspan="25"></td></tr>
<tr><td colspan="25"><marquee position=alternate><%response.write " Nenhum registro encontrado"%></marquee></td></tr>
<%
else%>
<% do while not rs2.eof%>
<tr >
<td colspan="11"background="../images/novasimagens/fundodacinza.gif"><font color="#000000" size="2" face="Arial, Helvetica, sans-serif"><strong>Empresa:
</strong><font color="#990000" size="2" face="Arial, Helvetica, sans-serif">
<strong><%response.write rs2("empresa")%></strong></font></td>
</tr>
<tr>
<td colspan="2"><font color="#666666" size="2" face="Arial, Helvetica, sans-serif"><strong><font color="#000000">Endereço:
</font></strong><font color="#000000" size="2" face="Arial, Helvetica, sans-serif">
<%response.write rs2("Endereco")%></font></td>
<td colspan="9"><font color="#666666" size="2" face="Arial, Helvetica, sans-serif"><strong><font color="#000000">Bairro:</font>
<%response.write rs2("Bairro")%></strong></font></td>
</tr>
<tr>
<td width="113"><font color="#333333" size="2" face="Arial, Helvetica, sans-serif"><strong><font color="#000000">Tel:</font></strong></font><font size="2" face="Arial, Helvetica, sans-serif"><strong>(12)
</strong><font color="#000000" size="2" face="Arial, Helvetica, sans-serif">
<% response.write rs2("Telefone")%>
</font></td>
<td colspan="10"><font color="#666666" size="2" face="Arial, Helvetica, sans-serif"><strong><font color="#000000">Site</font></strong></font><font color="#000000"><strong><font size="2" face="Arial, Helvetica, sans-serif">:
</font>
<% if rs2("site")<>"-" then%>
<a href ="Http://<%=rs2("site")%>"><font color="#000000" size="2" face="Arial, Helvetica, sans-serif"><%response.write rs2("Site")%>
</font>
<%else%>
<a href ="NaoSite.asp"><font color="#000000" size="2" face="Arial, Helvetica, sans-serif"><%response.write rs2("Site")%>
</font>
<%end if%>
</tr>
<%rs2.movenext%>
<%loop%>
<%end if%>
<% if con.state <> 0 then con.Close
If rs.state <> 0 Then rs.close
If rs2.state <> 0 Then rs2.close
If rs1.state <> 0 Then rs1.close
set con= Nothing
set rs = Nothing
set rs1 = Nothing%>
</table> </td>
<td width="146" valign="top"><img src="../images/novasimagens/4.gif" width="145" height="647"></td>
</tr>
</table>
<map name="Map">
<area shape="rect" coords="334,2,416,33" href="../default.asp" target="_self" alt="home">
<area shape="rect" coords="544,2,661,34" href="../Email.asp" target="_self" alt="Contato">
</map>
<map name="Map2">
<area shape="rect" coords="5,1,143,29" href="loja.asp" target="_self" alt="Empresas">
<area shape="rect" coords="4,28,142,56" href="DeAaZ.asp" target="_self" alt="De A a Z">
<area shape="rect" coords="3,57,145,86" href="../Categorias.asp" target="_self" alt="Categoria">
<area shape="rect" coords="3,86,142,118" href="../PN.asp" target="_self" alt="Por nome">
<area shape="rect" coords="3,119,141,150" href="../Endereco.asp">
<area shape="rect" coords="2,150,140,182" href="../Telefone.asp" target="_self" alt="Telefones">
<area shape="rect" coords="2,203,143,225" href="../Lendas.asp" target="_self" alt="Lendas">
<area shape="rect" coords="2,225,144,249" href="../turismo1.asp" target="_self" alt="Turismo">
</map>
</body>
</html>

Como armazenar na memória cache do usuário?

Entrar

Como Fazer A Busca Ser Rápida...

Pergunta

ju_rezende

Link para o comentário

Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

cyberalexxx

Link para o comentário

Compartilhar em outros sites

pogoball

Link para o comentário

Compartilhar em outros sites

ju_rezende

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades