Das Folgende ist der Quellcode, bitte nennen Sie ihn. ASP -Datei.
Die Codekopie lautet wie folgt:
<metahttp-äquiv = "content-type" content = "text/html; charSet = gb2312">
<%
IFREQUEST ("Action") = "1" dann
Word = Request ("Word")
url = request ("url")
Ifword <> "" dann
getCategories ()
ifurl <> "" dann
GetCategories2 ()
Endif
Endif
Endif
FunctionGetCategories ()
response.write ("<b> '" & word & "' Schlüsselwort gehört zu den Top 10 Websites im Google -Search -Ranking! </b> <br>")
onErrorresumeNext
Dimoxmlhttp
Dimokategorien
DimbodyText
Dimpos, POS1
Setoxmlhttp = createObject ("microsoft.xmlhttp"))
http = "http://www.google.com/search?q=" & word & "& hl = en-cn"
oxmlhttp.open "get", http, false
oxmlhttp.send
BodyText = oxmlhttp.responseBody
BodyText = byTestObstr (bodyText, "utf-8")
Pos = instr (bodytext, "<body")
pos1 = instr (bodytext, "</body>")
BodyText = Mid (BodyText, POS, POS1)
Pos = instr (bodytext, "<div>")
BodyText = Mid (BodyText, POS)
pos1 = instr (bodytext, "</div>")
BodyText = Mid (BodyText, 1, POS1)
'response.write ("::::" & bodytext & "::::")
BodyText = split (bodyText, "<pclass = g>")
fei = 1to10
Pos = instr (bodytext (i), "</a>")
thet = mid (bodytext (i), 1, pos+3)
Pos = instr (bodytext (i), "<spandir = ltr>")
theU = MID (BodyText (i), pos)
pos1 = instr (theU, "</span>")
theU = Mid (theu, 1, pos1-1)
response.write ("t:" & thet & "<br>")
response.write ("u:" & theu & "<br> <hr>")
nächste
Setoxmlhttp = nichts
Ifr.number <> 0Then
Es gab eine Fehlerantwort. "Antwort" Antwort.
Antwort.end ()
Endif
Endfunktion
FactionGetCategories2 ()
onErrorresumeNext
Dimoxmlhttp'asObject
Dimocategories'asObject
DimbodyText
Dimpos, POS1
Setoxmlhttp = createObject ("microsoft.xmlhttp"))