asp XMLHTTP备案信息查询程序

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

<%@language="vbscript" codepage="936"%>
<!doctype html public "-//w3c//dtd xhtml 1.0 transitional//en" "http://www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>
<form id="form1" name="form1" method="get" action="">
输入域名
    <input name="q" type="text" id="q" />
    <input type="submit" value="查询" />
<%
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.respon易做图ml)

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("<hr/>域名：" & domain.item(0).text &" 备案号："& icp.item(0).text)
next
end if
%>
</form>
<p>
<hr />
本站数据由<a href="http://icp.valu.cn" target="_blank">[icp备案查询网]</a>提供
</p>
</body>
</html>

补充：asp教程,高级应用