多域名后缀同时查询的域名查询系统

　2007-12-10 12:40:35　来源：WEB开发网　　　

核心提示：多域名后缀同时查询的域名查询系统，代码非常简洁：<%Function formaturl(yes) If mid(yes,5,1)<>"" then yes1 = left(yes,3) yes2 = right(yes,cint(len(yes))-3) formaturl =

多域名后缀同时查询的域名查询系统，代码非常简洁：

<%
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.xml(标准化越来越近了)Http")
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.acnow.net如果提交了查询
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