寫的很簡單，只是實現了功能
<%
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