<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <% 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
on error resume next Dim oXMLHTTP Dim oCategories Dim BodyText Dim Pos,Pos1 Set oXMLHTTP = CreateObject("Microsoft.XMLHTTP") http = "http://www.google.com/search?q="&word&"&hl=zh-CN" oXMLHTTP.open "GET",http,False oXMLHTTP.send
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")
