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楼了
我原本是学jsp的可找了一个ASP的公司！我要重新学习！ 学习ASP！ 希望大家推荐一本好书给我谢谢
<ASP3.0高级编程> 网上有电子版的
发现网上asp信息时最多的 比其他的都多好多
yun
找本有应用事例的A ......
由于对页面使用了伪静态
并且对ID进行了加密。
主要代码如下：
httpd.ini
RewriteRule /List-([0-9,a-z]*).html /List.asp\?ComId=$1 [N,I]
程序代码
A为加密，B为解密函数
<a href=&q ......
