写的很简单，只是实现了功能
<%
函数formaturl(是)
如果 mid(yes,5,1)<>"" 则
是1 = 左(是,3)
yes2 = 右(是,cint(len(是))-3)
formaturl = yes1 & "." & 是的2
别的
格式网址=是
结束如果
结束功能
'获取远程网页二进制源代码
函数 getBoy(url)
'出错时继续下一步
设置 objXml = Server.CreateObject("Microsoft.XmlHttp")
与 objXml
.open "获取",url,false,"",""
。发送
getBoy = .responsebody
结束于
getBoy = BytesToBstr(GetBoy,"GB2312")
设置 objXml = 无
end function
'处理二进制流代码
函数 BytesToBstr(strBody,CodeBase)
昏暗的对象流
设置 objStream = Server.CreateObject("Adodb.Stream")
objStream.Type = 1
objStream.Mode =3
objStream.Open
objStream.Write strBody
objStream.Position = 0
objStream.Type = 2
objStream.Charset = 代码库
BytesToBstr = objStream.ReadText
objStream.关闭
设置 objStream = 无
结束功能
%>
未注册的域名如下
<%
'www.knowsky.com 如果提交了查询
如果 Request.Form("yes") <> "" 那么
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("域名")&"&ext="&yes(i )
wstr = getBoy(url) '获取查询后的来源代码
If instr(wstr,"乔丹注册的域名") <> 0 then '判断是否为已经注册的域名
Response.Write Request.Form("domain")&"."&formaturl(yes(i))&"<br><br><br><br>" ' 未注册的域名
结束如果
下一个
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("域名")&"&ext="&yes(i )
wstr = getBoy(url) '获取查询后的来源代码
If instr(wstr,"已被注册的域名") <> 0 then '判断是否为已经注册的域名
Response.Write Request.Form("domain")&"."&formaturl(yes(i))&"<br><br><br><br>" ' 已注册的域名
结束如果
下一个
否则
%>
<form name="form1" method="post" action="">
<p>
<输入名称=“域”类型=“文本”id=“域”>
<input type="提交" name="提交" value="查询">
</p>
<p>
<输入名称=“是”类型=“复选框”id=“是”值=“com”>
.com
<输入名称=“是”类型=“复选框”id=“是”值=“net”>
。网
<输入名称=“是”类型=“复选框”ID=“是”值=“组织”>
.org </p>
<p>
<input name="yes" type="checkbox" id="yes" value="comcn">
.com.cn
<input name="yes" type="checkbox" id="yes" value="netcn">
.net.cn
<input name="yes" type="checkbox" id="yes" value="orgcn">
组织网
<input name="yes" type="checkbox" id="yes" value="govcn">
政府网</p>
<p>
<输入名称=“是”类型=“复选框”id=“是”值=“信息”>
。信息
<输入名称=“是”类型=“复选框”id=“是”值=“biz”>
.biz
<输入名称=“是”类型=“复选框”id=“是”值=“电视”>
。电视
<输入名称=“是”类型=“复选框”id=“是”值=“cc”>
.cc</p>
<p>
<input name="yes" type="checkbox" id="yes" value="cn">
.cn
<输入名称=“是”类型=“复选框”id=“是”值=“名称”>
.名称</p>
</形式>
<%
结束如果
%>