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

核心提示：写的很简单，只是实现了功能<%Function formaturl(yes) If mid(yes,5,1)<>"" then yes1 = left(yes,3) yes2 = right(yes,cint(len(yes))-3) formaturl = yes1 & &quo

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

<%
Function formaturl(yes)
 If mid(yes,5,1)<>"" then
 yes1 = left(yes,3)
 yes2 = right(yes,cint(len(yes))-3)
 formaturl = yes1 & "." & yes2
 else
 formaturl=yes
 end if
End Function
'取得远程网页二进制源代码
Function getBoy(url)
 'on error resume next
 Set objxml = Server.CreateObject("Microsoft.xmlhttp")
 with objXml
  .open "get",url,false,"",""
  .send
  getBoy = .responsebody
 end with
 getBoy = BytesToBstr(GetBoy,"GB2312")
 Set objXml = nothing
end function

'处理二进制流代码
Function BytesToBstr(strBody,CodeBase)
　　　  dim objStream
　　　  set objStream = Server.CreateObject("Adodb.Stream")
　　　  objStream.Type = 1
　　　  objStream.Mode =3
　　　  objStream.Open
　　　  objStream.Write strBody
　　　  objStream.Position = 0
　　　  objStream.Type = 2
　　　  objStream.Charset = CodeBase
　　　  BytesToBstr = objStream.ReadText
　　　  objStream.Close
　　　  set objStream = nothing
End Function
%>
未注册的域名如下
<%
'www.cncms.com如果提交了查询
If Request.Form("yes") <> "" Then
 yes = replace(Request.Form("yes")," ","")  '去除复选框字符串中的空格
 yes = split(yes,",")  '实例化一个数组yes，将用逗号隔开的yes数组赋值给yes新数组
 
 For i = 0 to ubound(yes)　 '遍历数组循环开始
  url = "http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&Request.Form("domain")&"&ext="&yes(i)
  wstr = getBoy(url)  '获取查询后的源代码
  If instr(wstr,"未被注册的域名") <> 0 Then　 '判断是否为已经注册的域名
　 Response.Write Request.Form("domain")&"."&formaturl(yes(i))&"<br><br><br><br>"  '列出未注册的域名
  End If 
 Next
 response.Write "<p><p><p>已注册的域名如下：<br>"
 For i = 0 to ubound(yes)　 '遍历数组循环开始
  url = "http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&Request.Form("domain")&"&ext="&yes(i)
  wstr = getBoy(url)  '获取查询后的源代码
  If instr(wstr,"已被注册的域名") <> 0 Then　 '判断是否为已经注册的域名
　 Response.Write Request.Form("domain")&"."&formaturl(yes(i))&"<br><br><br><br>"  '列出已注册的域名
  End If 
 Next
 
Else

%>
<form name="form1" method="post" action="">
  <p>
　  <input name="domain" type="text" id="domain">
　  <input type="submit" name="Submit" value="查询">
  </p>
  <p>
　  <input name="yes" type="checkbox" id="yes" value="com">
　  .com
　  <input name="yes" type="checkbox" id="yes" value="net">
.net
<input name="yes" type="checkbox" id="yes" value="org">
.org </p>
  <p>
　  <input name="yes" type="checkbox" id="yes" value="comcn">
　  .com.cn
　  <input name="yes" type="checkbox" id="yes" value="netcn">
  .net.cn
  <input name="yes" type="checkbox" id="yes" value="orgcn">
org.cn
<input name="yes" type="checkbox" id="yes" value="govcn">
gov.cn </p>
  <p>
　  <input name="yes" type="checkbox" id="yes" value="info">
　  .info
　  <input name="yes" type="checkbox" id="yes" value="biz">
.biz
<input name="yes" type="checkbox" id="yes" value="tv">
.tv
<input name="yes" type="checkbox" id="yes" value="cc">
.cc</p>
  <p>
　  <input name="yes" type="checkbox" id="yes" value="cn">
　  .cn
　  <input name="yes" type="checkbox" id="yes" value="name">
.name  </p>
</form>
<%
End If
%>