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

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

<% 
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.knowsky.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 
%> 

上一个：一段在asp中加密与解密对应的函数
下一个：ASP中怎么实现SQL数据库备份、恢复！