写的很简单，只是实现了功能
<%
Functionformaturl(yes)
Ifmid(yes,5,1)<>""then
yes1=left(yes,3)
yes2=right(yes,cint(len(yes))-3)
formaturl=yes1&"."&yes2
else
formaturl=yes
endif
EndFunction
'取得远程网页二进制源代码
FunctiongetBoy(url)
'onerrorresumenext
SetobjXml=Server.CreateObject("Microsoft.XmlHttp")
withobjXml
.open"get",url,false,"",""
.send
getBoy=.responsebody
endwith
getBoy=BytesToBstr(GetBoy,"GB2312")
SetobjXml=nothing
endfunction
'处理二进制流代码
FunctionBytesToBstr(strBody,CodeBase)
dimobjStream
setobjStream=Server.CreateObject("Adodb.Stream")
objStream.Type=1
objStream.Mode=3
objStream.Open
objStream.WritestrBody
objStream.Position=0
objStream.Type=2
objStream.Charset=CodeBase
BytesToBstr=objStream.ReadText
objStream.Close
setobjStream=nothing
EndFunction
%>
未注册的域名如下
<%
'www.knowsky.com如果提交了查询
IfRequest.Form("yes")<>""Then
yes=replace(Request.Form("yes"),"","")'去除复选框字符串中的空格
yes=split(yes,",")'实例化一个数组yes，将用逗号隔开的yes数组赋值给yes新数组
Fori=0toubound(yes)'遍历数组循环开始
url="http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&Request.Form("domain")&"&ext="&yes(i)
wstr=getBoy(url)'获取查询后的源代码
Ifinstr(wstr,"未被注册的域名")<>0Then'判断是否为已经注册的域名
Response.WriteRequest.Form("domain")&"."&formaturl(yes(i))&"<br><br><br><br>"'列出未注册的域名
EndIf