asp XMLHTTP备案信息查询程序

下面提供这款备案查询程序是一款利用了asp教程 的microsoft.xmldom远程抓取valu.cn网站的代码。

<%@language="vbscript" codepage="936"%>

输入域名
   
   
<%
dim q
q = request.querystring("q")
if (q <> "") then
 set http=server.createobject("microsoft.xmlhttp")
 http.open "get","http://icp.valu.cn/api/querydomainxml/" & q,false
 http.send
 
 
 set xml=server.createobject("microsoft.xmldom")
 xml.async=false
 xml.validateonparse=false
 xml.load(http.responsexml)
 
 set item=xml.getelementsbytagname("icpinfo")
 for i=0 to (item.length-1)
  set domain=item.item(i).getelementsbytagname("domain")
  set icp=item.item(i).getelementsbytagname("icp")
  response.write("

---

域名：" & domain.item(0).text &"   备案号："& icp.item(0).text)
 next
end if
%>

 

---

 本站数据由[icp备案查询网]提供