写的很简单，只是实现了功能 <% 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 %>