El siguiente es el código fuente, por favor, por favor como .asp archivo
La copia del código es la siguiente:
<%
bpn = request ("bpn")
if (bpn = "") entonces
bpn = "0"
endif
intbpn = cint (bpn)
ifRequest ("acción") = "1" entonces
word = request ("Word")
url = request ("url")
ifword <> "" entonces
getCategories ()
ifurl <> "" entonces
getCategories2 ()
endif
endif
endif
FunctetCategories ()
Response.write ("<b> '" & Word & "' La palabra clave se encuentra entre los 10 sitios web principales en el ranking de búsqueda de Baidu! </b> <br>")
onerrorResumEnext
DIMOXMLHTTP
Dimocategorías
DimbodyText
Dimpos, pos1
Satexmlhttp = createObject ("Microsoft.xmlhttp")
oxmlhttp.open "Get", "http://www.baidu.com/baidu?word=" & Word, falso
oxmlhttp.send
BodyText = oxmlhttp.ResponseBody
BodyText = ByTestObstr (BodyText, "GB2312")
Pos = instr (bodyText, "<cuerpo")
pos1 = instr (bodyText, "</body>")
BodyText = Mid (BodyText, POS, POS1)
BodyText = Split (BodyText, "<Tabla")
ST = 5
fori = 1to10
thei = st+i
Pos = instr (bodyText (thei), "<td")
pos1 = instr (bodyText (thei), "</td>")
Body = Mid (BodyText (thei), pos, len (BodyText (thei))-pos)
Body1 = Split (cuerpo, "<br>")
Título = Body1 (0)
Theurl = Body1 (2)
theurl = reemplazar (theurl, "más resultados en", "")
Response.write ("T:" y título)
Response.write ("<br>")
Response.write ("U:" y Theurl)
Response.write ("<br> <hr>")
próximo
Satexmlhttp = nada
iferr.number <> 0then
Hubo una respuesta de error. Write "Response.Write, Error Descripción:" & Err.Description & "<br> Fuente de error" & Err.Source
respuesta.end ()
endif
Función final
FunctetCategories2 ()
onerrorResumEnext
DIMOXMLHTTP'ASObject
Dimocategorías'asObject
DimbodyText
Dimpos, pos1
Satexmlhttp = createObject ("Microsoft.xmlhttp")