下面提供这款备案查询程序是一款利用了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备案查询网]提供
<%@language="vbscript" codepage="936"%>
VBS 批量Ping的项目讲解
如何封装一个Ajax函数介绍
ASP实现加法验证码方法
ASP错误捕获的几种常规处理方法介绍
ajax实现城市三级联动的代码介绍
asp中获取日期为星期几的技巧
一剑斩仙
超级雷电战机
烈火一刀
天使纪元
完美修真
高清画质体验,华丽场景视觉盛宴
永恒领主
3D魔幻MMO
九州八荒录
九州八荒,一剑入魂。
航海王燃烧意志
热血激战动作冒险游戏
君临传奇
经典RPG战斗手游