多个域名后缀同时查询的域名查询系统_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)