asp下多个域名后缀同时查询的域名查询系统

时间:2022-09-18 14:14:36

写的很简单,只是实现了功能

  1. <%  
  2. Function formaturl(yes)  
  3.  If mid(yes,5,1)<>"" then  
  4.  yes1 = left(yes,3)  
  5.  yes2 = right(yes,cint(len(yes))-3)  
  6.  formaturl = yes1 & "." & yes2  
  7.  else  
  8.  formaturl=yes  
  9.  end if  
  10. End Function   
  11. '取得远程网页二进制源代码  
  12. Function getBoy(url)  
  13.  'on error resume next  
  14.  Set objXml = Server.CreateObject("Microsoft.XmlHttp")  
  15.  with objXml  
  16.   .open "get",url,false,"",""  
  17.   .send  
  18.   getBoy = .responsebody  
  19.  end with  
  20.  getBoy = BytesToBstr(GetBoy,"GB2312")  
  21.  Set objXml = nothing   
  22. end function  
  23.  
  24. '处理二进制流代码  
  25. Function BytesToBstr(strBody,CodeBase)  
  26.         dim objStream  
  27.         set objStream = Server.CreateObject("Adodb.Stream")  
  28.         objStream.Type = 1  
  29.         objStream.Mode =3  
  30.         objStream.Open  
  31.         objStream.Write strBody  
  32.         objStream.Position = 0  
  33.         objStream.Type = 2  
  34.         objStream.Charset = CodeBase  
  35.         BytesToBstr = objStream.ReadText   
  36.         objStream.Close  
  37.         set objStream = nothing  
  38. End Function  
  39. %>  
  40. 未注册的域名如下  
  41. <%  
  42. 'www.knowsky.com如果提交了查询  
  43. If Request.Form("yes") <> "" Then  
  44.  yes = replace(Request.Form("yes")," ","")  '去除复选框字符串中的空格  
  45.  yes = split(yes,",")  '实例化一个数组yes,将用逗号隔开的yes数组赋值给yes新数组  
  46.  
  47.  For i = 0 to ubound(yes)   '遍历数组循环开始  
  48.   url = "http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&Request.Form("domain")&"&ext="&yes(i)  
  49.   wstr = getBoy(url)  '获取查询后的源代码  
  50.   If instr(wstr,"未被注册的域名") <> 0 Then   '判断是否为已经注册的域名  
  51.    Response.Write Request.Form("domain")&"."&formaturl(yes(i))&"<br><br><br><br>"  '列出未注册的域名  
  52.   End If    
  53.  Next  
  54.  response.Write "<p><p><p>已注册的域名如下:<br>"  
  55.  For i = 0 to ubound(yes)   '遍历数组循环开始  
  56.   url = "http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&Request.Form("domain")&"&ext="&yes(i)  
  57.   wstr = getBoy(url)  '获取查询后的源代码  
  58.   If instr(wstr,"已被注册的域名") <> 0 Then   '判断是否为已经注册的域名  
  59.    Response.Write Request.Form("domain")&"."&formaturl(yes(i))&"<br><br><br><br>"  '列出已注册的域名  
  60.   End If    
  61.  Next  
  62.  
  63. Else   
  64.  
  65. %>  
  66. <form name="form1" method="post" action="">  
  67.   <p>  
  68.     <input name="domain" type="text" id="domain">  
  69.     <input type="submit" name="Submit" value="查询">  
  70.   </p>  
  71.   <p>  
  72.     <input name="yes" type="checkbox" id="yes" value="com">   
  73.     .com  
  74.     <input name="yes" type="checkbox" id="yes" value="net">  
  75. .net   
  76. <input name="yes" type="checkbox" id="yes" value="org">   
  77. .org </p>  
  78.   <p>  
  79.     <input name="yes" type="checkbox" id="yes" value="comcn">   
  80.     .com.cn  
  81.     <input name="yes" type="checkbox" id="yes" value="netcn">   
  82.   .net.cn   
  83.   <input name="yes" type="checkbox" id="yes" value="orgcn">  
  84. org.cn   
  85. <input name="yes" type="checkbox" id="yes" value="govcn">   
  86. gov.cn </p>  
  87.   <p>  
  88.     <input name="yes" type="checkbox" id="yes" value="info">   
  89.     .info  
  90.     <input name="yes" type="checkbox" id="yes" value="biz">  
  91. .biz   
  92. <input name="yes" type="checkbox" id="yes" value="tv">   
  93. .tv   
  94. <input name="yes" type="checkbox" id="yes" value="cc">   
  95. .cc</p>  
  96.   <p>  
  97.     <input name="yes" type="checkbox" id="yes" value="cn">   
  98.     .cn   
  99.     <input name="yes" type="checkbox" id="yes" value="name">  
  100. .name  </p>  
  101. </form>  
  102. <%  
  103. End If  
  104. %>