VBScript code:
Set http=Server.CreateObject("MSXML2.ServerXMLHTTP")
http.Open "post","http://www.yodao.com/smartresult-xml/search.s?type=ip&q=221.123.123.123",false
http.send
Set xml = Server.CreateObject("Microsoft.XMLDOM")
xml.Async = false
xml.ValidateOnParse = true
xml.setProperty "ServerHTTPRequest",true
xml.load(http.ResponseXML)
if xml.ParseError.errorCode<>0 then
Response.Write("Error: " & xml.parseError.reason & "<br>")
Response.Write("Code: 0x" & hex(xml.parseError.errorCode) & "<br>")
Response.Write("At Line: " & xml.parseError.line & "<br>")
Response.Write("At pos: " & xml.parseError.linePos & "<br>")
else
set objRootElement = xml.documentElement
Response.Write objRootElement.childnodes(0).text
end if
这段代码挺好，简单易懂。顶
太感谢2楼了
<%if request.QueryString("start") <>"" then%>
<%if cint(start)>0 then%>
<a href="search.asp?q= <%=q%>&start= <%if request.Query ......
