写的很简单,只是实现了功能
<%
Формат функции(да)
Если мид(да,5,1)<>"" тогда
да1 = слева(да,3)
да2 = верно(да,cint(len(да))-3)
formaturl = да1 & "." и да2
еще
форматурл=да
конец, если
Конечная функция
'取得远程网页二进制源代码
Функция getBoy(url)
'в случае ошибки продолжить дальше
Установите objXml = Server.CreateObject("Microsoft.XmlHttp")
с objXml
.open "get",url,false,"",""
.отправлять
getBoy = .responsebody
закончиться
getBoy = BytesToBstr(GetBoy,"GB2312")
Установить objXml = ничего
конечная функция
'处理二进制流代码
Функция BytesToBstr(strBody,CodeBase)
тусклый объектный поток
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
установить objStream = ничего
Конечная функция
%>
未注册的域名如下
<%
'www.knowsky.com如果提交了查询
Если Request.Form("да") <> "" Тогда
yes = replace(Request.Form("yes")," ","") '去除复选框字符串中的空格
да = разделение(да,",") '实例化一个数组yes，将用逗号隔开的yes数组赋值给yes新数组
Для 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 Тогда '判断是否为已经注册的域名
Response.Write Request.Form("domain")&"."&formaturl(yes(i))&"<br><br><br><br>" '列出未注册的域名
Конец, если
Следующий
ответ. Напишите "<p><p><p>已注册的域名如下:<br>"
Для 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 Тогда '判断是否为已经注册的域名
Response.Write Request.Form("domain")&"."&formaturl(yes(i))&"<br><br><br><br>" '列出已注册的域名
Конец, если
Следующий
Остальное
%>
<form name="form1" метод="post" action="">
<р>
<input name="domain" type="text" id="domain">
<input type="submit" name="Submit" value="查询">
</p>
<р>
<input name="yes" type="checkbox" id="yes" value="com">
.com
<input name="yes" type="checkbox" id="yes" value="net">
.сеть
<input name="yes" type="checkbox" id="yes" value="org">
.org </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">
org.cn
<input name="yes" type="checkbox" id="yes" value="govcn">
gov.cn </p>
<р>
<input name="да" type="checkbox" id="да" value="info">
.информация
<input name="да" type="checkbox" id="да" value="biz">
.biz
<input name="yes" type="checkbox" id="yes" value="tv">
.tv
<input name="да" type="checkbox" id="да" value="cc">
.cc</p>
<р>
<input name="да" type="checkbox" id="да" value="cn">
.cn
<input name="да" type="checkbox" id="да" value="name">
.имя </p>
</форма>
<%
Конец, если
%>