Ir para conteúdo

Arquivado

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

turboibest

Sistema de busca

Por , em ASP Clássico

Recommended Posts

turboibest    0

turboibest
Postado

Eu baixei um script que faz busca com resultados do Google, só que ele tá com erro de páginação. Fui tentar mudar o script para ver se dava pra ajeitar mais não consegui, parece que o código está criptografado, se puderem me ajudar eu agradeço, segue o código abaixo:

 

<%@ LANGUAGE = VBScript.Encode %><%#@~^DQQAAA==@#@&B4DYa)zJoKGo^+ k1; ^K:zknlMmtJ.n/!VD/&g5xS+8_9n/boU@#@&BtOOa)&zTGKosRbm;cmKhzk+CD1t&./E^O/Q;'Sn8_9+kkLx'dDl.Y{X!L/Cxg@#@&9rsPjYMi"S@#@&fb:PUYMuKtS@#@&Gkh~}4LqnlDt+M@#@&@#@&wmDC:nOMExI5E/O 5E+.zUY.k	LvJi"Sr#@#@&k6~I;;+kY }!+DHjYMkxTcE;r#,@!@*PEE,Y4+	@#@&al.Cs+Y.;{In;!nkY 5EDXUYMrxT`E;r#@#@&kYlMO'"+;!ndYcp!+.XjOMkUovE/Dl.Or#@#@&jDDiId~{J4DYa)zJoKGo^+ k1; ^K:zknlMmtJ.n/!VD/&g5xr[2lMC:Y.;LJ[dOmDO'r'kYCMY@#@&@#@&+^d+@#@&@#@&UY.i"SP{~J4YYal&zTWKos+ r1; mKhzk+C.1tz.nkEsYk&Q;xr[alDm:OD!@#@&BUY.i"SP{EtDYw=&&hShcoGWLsR^WsE@#@&+U[,k0@#@&&0~1KO,wCMls+YME,xPrJ~K4+U@#@&@#@&i@#@&@#@&di@#@&@#@&dirUP3.MW.P"n/!:n~g+6O@#@&@#@&d@#@&idjY,Vr(LqnlDtnD,'~jD\.R;D+mOnr(LmOPcEtk^DKdW6Y ptSCPPhJb@#@&7i@#@&@#@&id@#@&di(0,2.D,K4n	@#@&i7dV+Y`]JP{Pr2.DG.=PEPL~2MD 9/m.raYrW	@#@&d7i@#@&ddAx9~q6@#@&di@#@&7irx,3DMWD,!GYKPZ@#@&@#@&7irY4~V}4%	lY4nM@#@&di7cr2x,JMAKrSPkY.EMVS~wlVkn~,JJB~EJ@#@&id7Rjn	N@#@&i7dV+Oi"SPx~cIn/aG	/n:+XY@#@&di3x9P	kDt@#@&id?OPdW4N	nlDtD~'~HKY4k	L@#@&@#@&7i/Y.u:HJP{~V+O`Id@#@&@#@&UN,kW@#@&@#@&@#@&@#@&@#@&@#@&@#@&CxQBAA==^#~@%><!doctype html public "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><link rel="stylesheet" href="styles.css"></head><BODY  ><H1>Busca</H1><FORM>  <INPUT size="50" name="URL" value="<%=#@~^CQAAAA==2mDCs+DDE0QMAAA==^#~@%>">	<INPUT type="Submit" value="Search"></FORM><%#@~^KQUAAA==@#@&/^MkaYxm:xI;;+kY jD\..mDkm8s+k`r?/I(K:{Hbt3J*@#@&@#@&q0~HKY~wm.m:nDD!'PrJ,Ptx@#@&kY.u:HS{.+aVl1nc/DD_K\SSEJ/nlM^tJDnd!VYd&r~dmMraYUm:#@#@&/D.C:HJ'M+2smm+vdYMCKtJSJJ/l.m4&M+dE^O/r~d^MkwOUm:n#@#@&kY._KtS'M+asl1+c/DDuPtS~r4YDw)J&LWKo^+ k^5cmG:rSJr#@#@&ED+d2Kxd+cAMkOP	DwmDmhd@#@&vD/2G	/+cADbY+,dOD_KtS@#@&C.M'dw^rY,`dOMtYhsBJ^Vmdk'Lr~ F~8#@#@&xMwxj(W;U9`lM.#@#@&0K.~L{F,YGPU.aOq@#@&dYMkUL^k/OxkY.k	L^kdD[mDDvL*@#@&	+aY@#@&@#@&EY+kOlMD'k2skDPv/ODrUTVr/DSJDl8sJ~RqBFb@#@&O/OmDM'/aVbOPv/OD4YhsBJYm8VJ~ qSF*@#@&x.'i8KEUNvO+kYC.M#@#@&sb/O+m"m'E@!4MJ@#@&k6~xM'*PDtnU,@#@&@#@&0KDPbx*PDW,x.O*@#@&Vr/Dnl.lxsb/YnC.l'YdDl.M`b#[rYm8VJ@#@&	+aO@#@&+^d+@#@&0K.~k{G,YGPU. v@#@&@#@&@#@&Y.rsEkOxM+2Vm^`O/DlDM`bb~rtOYa)ESrJ#@#@&k6PVUcY/Dl.Dcr*#~@!@*~VxcOMk:;rD#~PmU9Pr@* ,Ytx@#@&\mDq'rt.n6'JL^tM`&Wb'J4YDwlz&E@#@&-lM+'rYC.T+YxELm4DvfW#'r{(Vl	3r'm4Dc&W#'E,tDW'r[m4.c&W#LJ4YO2=z&J@#@&\mVGCM+:COMk^'MnaVC1+vY+kYm.Dvkb~7l.qB\lM+#@#@&@#@&O.ksEbY)f#xM+2Vm^+vYndDlD.cb#SJ9r7JSrJ*@#@&b0,s+	`O+kYC.M`k*bP@!@*P^nU`DDb:;kO)G.bP,~Y4+U@#@&@#@&-C^WCDhmY.bm{JJ@#@&@#@&+	N~k6@#@&@#@&VkkO+myl{sr/D+myC[-C^WCDhlDDr^LJYC8^+E@#@&n^/n@#@&^k/D+m"l{Vr/D+C"m[YdYmDDvrb[rYm4s+E@#@&@#@&+	[Pb0@#@&@#@&@#@&U6O@#@&@#@&@#@&@#@&xN,k6@#@&@#@&vD/2G	/+cADbY+,U.[r@!(D@*J@#@&M+dwKU/RA.bY+~sb/O+m"m[E@*J@#@&BM+k2W	/nRSDrOP/D.k	oVbdO@#@&+	N~kW@#@&dH4BAA==^#~@%><%#@~^fAAAAA==@#@&DnkwKx/RS.kD+~J@!4@*/M+lDnN,4X,@!&0KxD@*@!b~4M+W'4OYa)&&Shh n^mU+D 1WhJDKzwmDknDctO:@*P3J;P1APP,@!zz@*@!z(@*@!A]@*E@#@&eiIAAA==^#~@%><BR><BR>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Elbrinner    0

Elbrinner
Postado

presentinho

 

 

ASP [/tr][tr]<%@ LANGUAGE = VBScript.Encode %>

 

<%

'http://google.icq.com/search/results/?q=web+design

'http://google.icq.com/search/results?q=web+design&start=50&sa=N

Dim StrURL

Dim StrHTML

Dim ObjWeather

 

parametru=Request.QueryString("URL")

if Request.QueryString("q") <> "" then

parametru=Request.QueryString("q")

start=Request.QueryString("start")

StrURL ="http://google.icq.com/search/results/?q="&parametru&"&start="&start

 

else

 

StrURL = "http://google.icq.com/search/results/?q="&parametru

'StrURL ="http://www.google.com"

end if

If Not parametru = "" Then

 

 

 

 

 

On Error Resume Next

 

 

Set lObjWeather = Server.CreateObject ("Microsoft.XMLHTTP")

 

 

 

If Err Then

GetURL = "Error: " & Err.Description

 

End If

 

On Error Goto 0

 

With lObjWeather

.Open "GET", strurl, False, "", ""

.Send

GetURL = .ResponseText

End With

Set LobjWeather = Nothing

 

strHTML = GetURL

 

end if

 

 

 

 

 

 

%>

<!doctype html public "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>

 

<head>

 

<link rel="stylesheet" href="styles.css">

</head>

<BODY >

 

 

 

<FORM>

<INPUT size="50" name="URL" value="<%=parametru%>">

<INPUT type="Submit" value="Search">

</FORM>

 

 

 

 

 

 

 

<%

scriptname=Request.ServerVariables("SCRIPT_NAME")

 

If Not parametru= "" Then

strHTML=replace(strHTML,"/search/results/",scriptname)

strHTML=replace(strHTML,"/search/results",scriptname)

strHTML=replace(strHTML,"http://google.icq.com","")

'response.write nrparam

'response.write strHTML

arr=split (strhtml,"class=g",-1,1)

nrp=Ubound(arr)

for j=1 to nrp-1

stringlist=stringlist&arr(j)

next

 

'testarr=split (stringlist,"table",-1,1)

testarr=split (strhtml,"table",-1,1)

nr=Ubound(testarr)

listeaza="<br"

if nr=4 then

 

for i=4 to nr-4

listeaza=listeaza&testarr(i)&"table"

next

else

for i=7 to nr-6

 

 

trimuit=replace(testarr(i),"http:","")

if len(testarr(i)) <> len(trimuit) and i>2 then

var1="href="&chr(34)&"http://"

var2="target="&chr(34)&"_blank"&chr(34)&" href="&chr(34)&"http://"

valoarematric=replace(testarr(i),var1,var2)

 

trimuitADV=replace(testarr(i),"div","")

if len(testarr(i)) <> len(trimuitADV) then

 

valoarematric=""

 

end if

 

listeaza=listeaza&valoarematric&"table"

else

listeaza=listeaza&testarr(i)&"table"

 

end if

 

 

next

 

 

 

end if

 

'response.write nr&"<br>"

response.write listeaza&">"

'response.write stringlist

end if

%>

 

<!------ Start of HTML Code ------->

<!------ End of HTML Code ------->

<%

'response.write "<b>Created by </font><A href=http://www.elcnet.com/ro/parser.htm> ELC NET </A></b><BR>"

%>

 

 

 

<BR><BR>

<script>

window.defaultStatus = " ...:: M E U P A Í S . C O M ::... "

</script>

 

 

 

 

[/tr]

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