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

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

　　<%
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
%>
未注册的域名如下
<%
如果提交了查询
If Request.Form(yes) <> Then
yes = replace(Request.Form(yes), ,) 去除复选框字符串中的空格
yes = split(yes,,) 实例化一个数组yes，将用逗号隔开的yes数组赋值给yes新数组

For i = 0 to ubound(yes) 遍历数组循环开始
url =
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 =
wstr = getBoy(url) 获取查询后的源代码
If instr(wstr,已被注册的域名) <> 0 Then 判断是否为已经注册的域名
Response.Write Request.Form(domain).formaturl(yes(i))<br><br><br><br> 列出已注册的域名
End If
Next

Else

　　%>
<form name=form1 method=post action=>
<p>
<input name=domain type=text id=domain>
<input type=submit name=Submit value=查询>