<% bpn = request("bpn") if(bpn = "") then bpn = "0" end if intbpn = cint(bpn)
if request("action") = "1" then word = request("word") url = request("url") if word <> "" then getCategories() if url <> "" then getCategories2() end if end if end if
st = 5 for i = 1 to 10 thei = st + i Pos=Instr(BodyText(thei),"<td") pos1=Instr(BodyText(thei),"</td>") Body=mid(BodyText(thei),pos,len(BodyText(thei))-pos)
body1=split(body,"<br>")
title = body1(0) theurl = body1(2) theurl = replace(theurl,"上的更多結果","") response.write ("T:"& title) response.write ("<br>") response.write ("U:"& theurl) response.write ("<br><hr>") next
Set oXMLHTTP = Nothing if err.number<>0 then response.write "出錯了，錯誤描述："&err.description & "<br>錯誤來源"& err.source response.End() end if End Function
Function getCategories2() on error resume next Dim oXMLHTTP ' As Object Dim oCategories ' As Object Dim BodyText Dim Pos,Pos1 Set oXMLHTTP = CreateObject("Microsoft.XMLHTTP")
