asp下多個域名后綴同時查詢的域名查詢系統
2024-05-04 10:58:15
供稿：網友
寫的很簡單，只是實現了功能
<%
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
