The following provides the record inquiry program is a use of the ASP Tutorial Microsoft.XMLDOM remote Crawl valu.cn Web site code.
<% @language = "VBScript" codepage= "936"%>
<!doctype HTML PUBLIC "-//W3C//DTD XHTML 1.0 transitional//en" "http://www.w3.org/tr/xhtml1/dtd/ Xhtml1-transitional.dtd ">
<meta http-equiv= "Content-type" content= "text/html; charset=gb2312 "/>
<title> Untitled Document </title><body>
<form id= "Form1" Name= "Form1" method= "Get" action= "" >
Enter a domain name
<input name= "q" type= "text" id= "Q"/>
<input type= "Submit" value= "Query"/>
<%
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 ("Next
End If
%>
</form>
<p>
This site data by <a href= "http://icp.valu.cn" target= "_blank" >[ICP filing Inquiry network]</a> provide
</p>
</body>
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
