Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

NewUser

Busca com BD access

Por , em ASP Clássico

Recommended Posts

NewUser    0

NewUser
Postado

Olá galera,

Estou elaborando uma página de produtos para cama e, presiso colcar uma busca por produtos onde liste todos os encontrados no BD.

Já concegui adaptar quase todo o código mais na hora de fazer a busca a página pedi logo, como faço para tirar isso?

Segue meu código atualmente:

 

Página com campo para busca:

 

<form name="form2" method="post" action="busca.asp" id="busca" class="style2">

<td colspan="5" rowspan="5" bgcolor="#FFFFFF"><span class="text3">

<input name="buscar" type="text" class="botton" value="Buscar no site" />

<input name="Submit2" type="submit" class="botton" value="GO!" />

</span></td>

</form>

 

Página busca.asp:

 

<%@ LANGUAGE = VBScript.Encode %>

<%#@~^eQAAAA==(6Pj/kkW `rCNs{sWTkUE*P',ol^/+,G.P&/gEsVcj/dkKU`rl[h|VWLr Jb#,x,K.!+,Ytx@#@&I/2W /n "+Nb.+1YJ^GLk Rm/2J@#@&Ax[P&W@#@&2yUAAA==^#~@%>

<%#@~^NQAAAA==@#@&frsP(E/1l8@#@&(EdmmFx];EdYcsWMhcJ(EkmCFEb,P@#@&+Q0AAA==^#~@%>

<%#@~^mwEAAA==@#@&/nDP"/{(Ek^l,'~?D-nMRZMnlD+r(%nmD`rb9r9$cInmK.Nk+OE*@#@&]d|4;/1Ccb^Dk7+ZKx nmDkGx,'~\t{mm[lkYDKmjK"qgM@#@&~@#@&Id{(;/1l jKED^n,'~JU3d2/:PCPs"rt~mmNC/DDG~qC2"3P W:~Jqn2,BYJ'8!/^l8'JuB~GMP+h2M+dl,sb3n,BuJ[(Ek^l8[E]EPG.,+:mrV,Vk0n~BuJL4;/^C8[E]E~WMPUGs+Psr0+~BuEL4;kmmF[r]EE@#@&@#@&Ik{8;kmlc/EM/WMPzwP{PT@#@&]k{8Ek^lcZ;.kWDJG1lOkKU,'~y@#@&I/|4!dmmRJW13Pza+P{~&@#@&Ikm8EkmmR6wnUv#@#@&"d{(Ed^m{x;h"WA/,x,!@#@&RXkAAA==^#~@%>

<%#@~^mwAAAA==@#@&frsP"+wlDq{|x;:"WAd@#@&I2+mYF|mUEsIKhdPx~ F@#@&Gr:,In2lYqm|kUNa@#@&]wlY8{|rx9+aP{PT@#@&I/|8Ekml|U;:"WS/~'~]k{8Ek^l|x;h"Whd~3P]+anmYq|{ E:"WSd@#@&NzAAAA==^#~@%>

<%#@~^UAMAAA==@#@&B~,eCeP"+1GD9/nY,?OCD/~,\W7+P:G~ImKD[~~C N~MK~KKP]n1WD[l,Nnm^CM+~kYmY/,\m.km4s+k@#@&@#@&BPknY,Yt~.+1WMN~mG; Y@#@&"d{(Ed^m{YGOmV~',]k{8!/1lR"+1GD9ZGE Y@#@&@#@&B,d+DPY4n~x!:(+.PGW,DGhk~Nb/2smX+[~Kx~Y4rkP2mo@#@&&0,cIk{8EkmCm E:"GhkP@!,TbP:tx@#@&~~"/m4!dmm{U;sIWAd,'~Ikm(Ed1l|YWDl^@#@&AVd+b0~c"/{(;/1l{ ;hIKhkPxPTb,K4+ @#@&,P]d|4Ed^m{UEs]Khd,',F@#@&2 [P&0@#@&@#@&v~k+Y,OtP0b.dY,l N~VCdDP[kk2VmXn[,D+^GMN@#@&"d|4;kmm{0bDkOP{Pq@#@&Idm(E/1C{^l/D~~',Ik{8Ed^m{WkMdY,_~]k{4;d1lmx!h"WAkP PF@#@&@#@&B,kWPS+~4m\+,OtPmK..+1Y,DnmG.9P^W!UYBP^4m3~O4+~WD4D~kYmY/@#@&&WPvId{(Ed^m{YKOl^P@!@*~RF*P:tnx@#@&,P(0,cIk{8;kmlmWbDdY,@*,Id|4!/mm{DGYmVbP:tnU,I/|8Ekml|WrDkY,'~Idm(EdmmmYKYCs@#@&P~(6PcIkm(Ed1l|VlkY,@*P"/m4!/^C|YWDCV*PK4nUP"/|4;/^C|você/D~',Idm(E/^C|YGYms@#@&~,q6P`"/|8EkmC{ Eh]Kh/,@*P"/{(;dmm{DWOlsb,K4+ ~Ik{8;kmlmU!:]WSd,'~"/|4EkmmmYKYCV@#@&3U9Pq6@#@&TwsBAA==^#~@%>

<%#@~^ygMAAA==@#@&B~CeCPImK.Nk+OPUYCOk)PbWPS+P9GUBDP0xGh~O4+~D^WMN~^KExOS,:Cx!C^Vz,mKExDPD4+s@#@&@#@&qW~vI/|8Ekml|OGYmV,'~Oqb,K4+ @#@&@#@&~~EPmG; Y~Y4n,YGDl^PDmK.NkP8X,kOnMlYbUo,YtMG;o4PDtnP.n1W.NknY@#@&~~"/{8;kmC{DGDls{!@#@&P,4rVPc1KY~]k{4!dmmR2}ob@#@&P,P~Idm(EdmmmYKYCs,'P]d|4;/1C|YGDl^P_,F@#@&P,P~Ik{8;kmlc\W7+1aO@#@&P,nx[@#@&@#@&P,vPM+dnDPY4n,m;DkGMPOKPDt+,4Lk xrxT@#@&~,q0,cIk{4!d^lcZ!DdW.PHwnP@*~!*PP4x@#@&~,P~Ikm(Ed1lcHW7+wrDkY@#@&,P3sk+@#@&~P,PIkm8EkmmR]+5;Dz@#@&~PAx[~&0@#@&@#@&P~B,dY~DtPx!:(nD,WWPMWAd,Nkk2VmX+9~Gx,Y4kdP2CT+@#@&,~q6Pc]k{4;d1lmx!h"WAkP@!P!,rM~Ik{8EkmCm E:"GhkP@*,]d{(EkmC{OGDls#,Ptx@#@&,PP~]k{8Ek^m{U!:"WhkP{~Ik{8EkmCmDWYms@#@&PPAU[P&0@#@&@#@&~~EPd+D~Y4+~WbD/O~mx[P^CkY~9kkwVmX[PM+^WMN@#@&,PIkm4!/mmmWkM/DPxPq@#@&P~Ikm4!/^C|VldO,'~Ikm(Ed1l|0kM/D~_,Id{(Ed^m{x!hIKh/,R~F@#@&,P(0~c"/m4!dmm{WrM/Y~@*,Id{(;kmC|YKYl^#,Ptx~Ik{8;kml|WkM/Y,x~Ik{(EdmCmDWOl^@#@&,P(W,`Idm(Edmmm^ldDP@*PIk{(;/1lmYKYCs*PK4nx,I/|8;/1l|você/O~{P]/|8EkmCmDWYCs@#@&@#@&AU9P(6@#@&WyUBAA==^#~@%>

<!--#include file="connections.asp" -->

 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"

"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<!-- saved from url=(0014)about:internet -->

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<title>Navarro Enxovais</title>

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

<meta name="description" content="FW 8 DW 8 XHTML" />

<style type="text/css">td img {display: block;}</style>

<!--Fireworks 8 Dreamweaver 8 target. Created Wed Dec 06 13:14:25 GMT-0200 (Hora oficial do Brasil) 2006-->

<link href="style.css" rel="stylesheet" type="text/css" />

<style type="text/css">

<!--

.style1 {color: #1672A3}

-->

</style>

<link rel="stylesheet" href="css/lightbox.css" type="text/css" media="screen" />

 

<script src="js/prototype.js" type="text/javascript"></script>

<script src="js/scriptaculous.js?load=effects" type="text/javascript"></script>

<script src="js/lightbox.js" type="text/javascript"></script>

<style type="text/css">

<!--

.style2 {color: #FF9900}

body {

background-image: url(images/bg.jpg);

}

.style3 {color: #8685AD}

.style5 {color: #FF0000}

.style6 {color: #0099FF}

-->

</style> 180 linhas<br />na cor Rosa.<br />

Por apenas<br /> <span class="left">R$ 110,00</span></td>

<td><img src="images/spacer.gif" width="1" height="14" border="0" alt="" /></td>

</tr>

<tr><!-- row 15 -->

<td rowspan="18" bgcolor="#FFFFFF"><img name="home_r15_c4" src="images/home_r15_c4.jpg" width="22" height="440" border="0" id="home_r15_c4" alt="" /></td>

<td colspan="10" rowspan="10" align="left" valign="top" bgcolor="#FFFFFF" class="text"><b><span class="title">Encontrado(s): <font color="#990000"><%=#@~^EAAAAA==c"/m(Ekml|YKOl^#BgYAAA==^#~@%></font></span> </b> <b><span class="10_preto_grena"><br />

<img src="imagens/spacer.gif" width="10" height="7" /></span></b><br />

<%#@~^IwIAAA==~,@#@&b0,I/|4!dmm{OWDls~{J!r~Y4+x@#@&]+kwKxd+ MkO+,E@!(D@*@!1+xOnM@*@!/aC P^^lk/'EF2mwM+OW|o.n lB@*@!4@*@!0KUOP1W^W.'v:wsT!ZTB@*1nU4E:~.or/D.KPn mKxYMl9G@!J0GxD@*@!8M@*@!m~tM+0{v%l7lkm.k2O=tr/DGDHR8C13`qbEP^Vmdk'v8!|ly!V|LDxCB@*@!8.@*P@*,P+ YlM~UW7ls+UYn~@!P@!zm@*@!J4@*@!J/wCU@*@!&mUD+.@*J@#@&+^/@#@&x[Pb0~~@#@&@#@& tbV+,ccIwlOFmm EhIKA/,@!@*~Z#P)HGPc1}P,Id|4!/mmRA6s*#~@#@&kW~1WVK.0bVl,x~!,Y4+UP@#@&1WsWMxPra9GA2{E,P@#@&1G^W.y',Jawcw*sWJ~@#@&mGsKD0bsl{FP@#@&nVk+,@#@&mGsKDxJ[ocwco*rPP@#@&1WsWM+{PE[f+fAAGr~@#@&mGVKDWr^l'Z~@#@&+x9~r0@#@&d5QAAA==^#~@%>

<table width=100%" border="0" cellspacing="0" cellpadding="0">

<tr>

<td width="37%" class="barra" bgcolor="<%=#@~^BQAAAA==^KVGMHwIAAA==^#~@%>">  <%#@~^IQAAAA==r9{^^kxY'"d{(Edmm`Er9{m^r+ Y+rbJAwAAA==^#~@%> <%=#@~^JAAAAA==c"/m(EkmlcsbnV9/ qD+hcrxWsnJ*R.ms;+*NAwAAA==^#~@%></td>

<td width="42%" class="barra" bgcolor="<%=#@~^BQAAAA==^KVGMHwIAAA==^#~@%>"><%=#@~^JwAAAA==c"/m(EkmlcsbnV9/ qD+hcr+:a.+klJ* #l^E#cg0AAA==^#~@%></td>

<td width="21%" bordercolor="#FF9900" bgcolor="#F3F4EE" class="center"><div align="center"><a href="detalhes_cliente.asp?id_cliente=<%=#@~^CgAAAA==r9{^^kxYEAQAAA==^#~@%>" class="10_azul_grena"><b>+Detalhes</b></a></div></td>

</tr>

</table>

<%#@~^dAAAAA==~@#@&~,Iw+mY8m{bx[+X]na+lDq{|kx9na_8@#@&P~In2lOF|mx!:]GS/']na+CY8m|x;sIKh/ F@#@&P,Id{(Ed^mRHK-+g+6Dcb@#@&x[@#@&YiIAAA==^#~@%> </td>

<td rowspan="13"><img name="home_r15_c15" src="images/home_r15_c15.jpg" width="13" height="376" border="0" id="home_r15_c15" alt="" /></td>

<td><img src="images/spacer.gif" width="1" height="86" border="0" alt="" /></td>

</tr>

<tr><!-- row 16 -->

<td colspan="8" bgcolor="#FFFFFF"><img name="home_r16_c16" src="images/home_r16_c16.jpg" width="90" height="6" border="0" id="home_r16_c16" alt="" /></td>

<td colspan="5" bgcolor="#FFFFFF"><img name="home_r16_c25" src="images/home_r16_c25.jpg" width="94" height="6" border="0" id="home_r16_c25" alt="" /></td>

<td><img src="images/spacer.gif" width="1" height="6" border="0" alt="" /></td>

</tr>

<tr><!-- row 17 -->

<td colspan="14" bgcolor="#FFFFFF" class="center"><a href="#">+ detalhes </a></td>

<td><img src="images/spacer.gif" width="1" height="15" border="0" alt="" /></td>

</tr> <tr><!-- row 32 -->

<td colspan="25"><img name="home_r32_c5" src="images/home_r32_c5.jpg" width="521" height="2" border="0" id="home_r32_c5" alt="" /></td>

<td><img src="images/spacer.gif" width="1" height="2" border="0" alt="" /></td>

</tr>

<!-- This table was automatically created with Macromedia Fireworks -->

<!-- http://www.macromedia.com -->

</table>

</center>

<!--========================= STOP COPYING THE HTML HERE =========================-->

</body>

</html>

<%#@~^GAAAAA==@#@&Id|4!/mmR;sWk+c#@#@&1QUAAA==^#~@%>

 

Como o código HTML é muito grande limpei o desnecessário e destaquei os códigos ASP.

Espero que possam me ajudar, OBRIGADO!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

sr.silva    1

sr.silva
Postado

Olá NewUser,

 

O que pretende com esse código criptografado??

Entendi a sua dúvida só que não vi condições de te ajudar.

 

Espero que melhore o seu código, clicando em Editar.

 

Até!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

arr    0

arr
Postado

Tá aí o código desencodado pelo site http://www.greymagic.com/security/tools/decoder/

 

Tem uns erros ainda trocou alguns "n" por "-" e outras coisas mais.

 

<%@ LANGUAGE = VBScript.Encode %><%If Sessio-("adm_login") = False or IsNull(Session("adm_logi-")) = True thenRespo-se.Redirect"logi-.asp"End If%><%Dim busca1busca1=Request.Form("busca1")  %><%set Rs_busca = Server.CreateObject("ADODB.Recordset")Rs_busca.ActiveCon-ection = MM_cadastro_STRING Rs_busca.Source = "SELECT * FROM cadastro WHERE -ome LIKE '%"&busca1&"%' or empresa like '%"&busca1&"%' or email like '%"&busca1&"%' or nome like '%"&busca1&"%'"Rs_busca.CursorType = 0Rs_busca.CursorLocation = 2Rs_busca.LockType = 3Rs_busca.Open()Rs_busca_numRows = 0%><%Dim Repeat1__numRowsRepeat1__numRows = -1Dim Repeat1__indexRepeat1__index = 0Rs_busca_numRows = Rs_busca_numRows + Repeat1__-umRows%><%'  *** Recordset Stats, Move To Record, a-d Go To Record: declare stats variables' set the record cou-tRs_busca_total = Rs_busca.RecordCou-t' set the number of rows displayed on this pageIf (Rs_busca_-umRows < 0) Then  Rs_busca_numRows = Rs_busca_totalElseif (Rs_busca_-umRows = 0) The-  Rs_busca_numRows = 1E-d If' set the first a-d last displayed recordRs_busca_first = 1Rs_busca_last  = Rs_busca_first + Rs_busca_numRows - 1' if we have the correct record count, check the other statsIf (Rs_busca_total <> -1) Then  If (Rs_busca_first > Rs_busca_total) Then Rs_busca_first = Rs_busca_total  If (Rs_busca_last > Rs_busca_total) Then Rs_busca_6F4êCrB=[;LcX"ClH`tD%aF, Ix{(RCK1u|c*_."P%TPC9> !7IqLca_]ot:mA[Th22BR|71qi_:a~Gm[fw	[\,RsKhus_catPt*l+~J{1x%><%' *** Recordset Stats: if we don't know the record count, manually count themIf (Rs_busca_total = -1) The-  ' cou-t the total records by iterating through the recordset  Rs_busca_total=0  While (Not Rs_busca.EOF)	Rs_busca_total = Rs_busca_total + 1	Rs_busca.MoveNext  Wend  ' reset the cursor to the begi-ning  If (Rs_busca.CursorType > 0) Then	Rs_busca.MoveFirst  Else	Rs_busca.Requery  End If  ' set the number of rows displayed on this page  If (Rs_busca_numRows < 0 Or Rs_busca_-umRows > Rs_busca_total) Then	Rs_busca_numRows = Rs_busca_total  End If  ' set the first and last displayed record  Rs_busca_first = 1  Rs_busca_last = Rs_busca_first + Rs_busca_numRows - 1  If (Rs_busca_first > Rs_busca_total) Then Rs_busca_first = Rs_busca_total  If (Rs_busca_last > Rs_busca_total) Then Rs_busca_6F4êC9,7 [CK1u|_*crf%*FE~D{Xf%><!--#include file="connections.asp" --><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><!-- saved from url=(0014)about:internet --><html xmlns="http://www.w3.org/1999/xhtml"><head><title>Navarro Enxovais</title><meta http-equiv="Content-Type" content="text/html; charset=utf-8" /><meta name="description" content="FW 8 DW 8 XHTML" /><style type="text/css">td img {display: block;}</style><!--Fireworks 8 Dreamweaver 8 target. Created Wed Dec 06 13:14:25 GMT-0200 (Hora oficial do Brasil) 2006--><link href="style.css" rel="stylesheet" type="text/css" /><style type="text/css"><!--.style1 {color: #1672A3}--></style><link rel="stylesheet" href="css/lightbox.css" type="text/css" media="screen" /><script src="js/prototype.js" type="text/javascript"></script><script src="js/scriptaculous.js?load=effects" type="text/javascript"></script><script src="js/lightbox.js" type="text/javascript"></script><style type="text/css"><!--.style2 {color: #FF9900}body {background-image: url(images/bg.jpg);}.style3 {color: #8685AD}.style5 {color: #FF0000}.style6 {color: #0099FF}--></style> 180 linhas<br />na cor Rosa.<br /> Por apenas<br /> <span class="left">R$ 110,00</span></td><td><img src="images/spacer.gif" width="1" height="14" border="0" alt="" /></td></tr><tr><!-- row 15 --><td rowspan="18" bgcolor="#FFFFFF"><img name="home_r15_c4" src="images/home_r15_c4.jpg" width="22" height="440" border="0" id="home_r15_c4" alt="" /></td><td colspan="10" rowspan="10" align="left" valign="top" bgcolor="#FFFFFF" class="text"><b><span class="title">Encontrado(s): <font color="#990000"><%=(Rs_busca_total)%></font></span> </b> <b><span class="10_preto_grena"><br /><img src="imagens/spacer.gif" width="10" height="7" /></span></b><br /><%  if Rs_busca_total ="0" thenResponse.*s-29'<Xt><96n-e*><C#*.{$c5i=u7Ea\G6-fKXVe.5'><h><fTStTN4$4V&6#\m]GCgJ>cPnh'm,r6XOCrzP{P.aTJtG5JD<"k7=r><b*><cBZG6f_(j:^5iaV|Et~MOCrD]M8}a9+(I)"{$kcL|\6buK5z0GK&]WJHJ><}r>{>9{22]aGBnf^5F6~%P <{<yc><"h><LpHn><3_WS]6V>/e$WWJ&TAk, -ZAGe9.(;WFW5-Kc_.'w;TEC9<> !` :No{49Z{[Y	`h0cc8Bfl5`,so 94lTz8AGa9J G9]b6~T94FfGJTOpJ6oEE_"[{NDc4V$\9/#p.p)lo/,a7lPtfAm:_7 eki69_7lPtnL&X(p.g4i{ 94FfG67{ud$e$BBDOBa7kTtoic5=CB6nJBi8%><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td width="37%" class="barra" bgcolor="<%=color%>">  <%id_cliente=Rs_busca("id_clie-te")%> <%=(Rs_busca.Fields.Item("nome").Value)%></td><td width="42%" class="barra" bgcolor="<%=color%>"><%=(Rs_busca.Fields.Item("empresa").Value)%></td><td width="21%" bordercolor="#FF9900" bgcolor="#F3F4EE" class="center"><div align="center"><a href="detalhes_cliente.asp?id_cliente=<%=id_cliente%>" class="10_azul_grena"><b>+Detalhes</b></a></div></td></tr></table><%   Repeat1__index=Repeat1__index+1  Repeat1__numRows=Repeat1__numRows-1  Rs_busca.MoveNext()Wend%> </td><td rowspan="13"><img name="home_r15_c15" src="images/home_r15_c15.jpg" width="13" height="376" border="0" id="home_r15_c15" alt="" /></td><td><img src="images/spacer.gif" width="1" height="86" border="0" alt="" /></td></tr><tr><!-- row 16 --><td colspan="8" bgcolor="#FFFFFF"><img name="home_r16_c16" src="images/home_r16_c16.jpg" width="90" height="6" border="0" id="home_r16_c16" alt="" /></td><td colspan="5" bgcolor="#FFFFFF"><img name="home_r16_c25" src="images/home_r16_c25.jpg" width="94" height="6" border="0" id="home_r16_c25" alt="" /></td><td><img src="images/spacer.gif" width="1" height="6" border="0" alt="" /></td></tr><tr><!-- row 17 --><td colspan="14" bgcolor="#FFFFFF" class="center"><a href="#">+ detalhes </a></td><td><img src="images/spacer.gif" width="1" height="15" border="0" alt="" /></td></tr> <tr><!-- row 32 --><td colspan="25"><img name="home_r32_c5" src="images/home_r32_c5.jpg" width="521" height="2" border="0" id="home_r32_c5" alt="" /></td><td><img src="images/spacer.gif" width="1" height="2" border="0" alt="" /></td></tr><!-- This table was automatically created with Macromedia Fireworks --><!-- http://www.macromedia.com --></table></center><!--========================= STOP COPYING THE HTML HERE =========================--></body></html><%Rs_busca.Close()%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito