写的很简单，只是实现了功能
<%
Formaturl fungsi (ya)
Jika pertengahan(ya,5,1)<>"" maka
ya1 = kiri(ya,3)
ya2 = benar(ya,cint(len(ya))-3)
formaturl = ya1 & "." & ya2
kalau tidak
formaturl=ya
berakhir jika
Fungsi Akhir
'取得远程网页二进制源代码
Fungsi getBoy(url)
'pada kesalahan lanjutkan berikutnya
Setel objXml = Server.CreateObject("Microsoft.XmlHttp")
dengan objXml
.buka "dapatkan", url, salah,"",""
.mengirim
getBoy = .responsebody
diakhiri dengan
getBoy = BytesToBstr(GetBoy,"GB2312")
Setel objXml = tidak ada
fungsi akhir
'处理二进制流代码
Fungsi BytesToBstr(strBody,CodeBase)
redupkan objStream
setel objStream = Server.CreateObject("Adodb.Stream")
objStream.Jenis = 1
objStream.Mode =3
objStream.Buka
objStream.Tulis strBody
objStream.Posisi = 0
objStream.Jenis = 2
objStream.Charset = Basis Kode
BytesToBstr = objStream.ReadText
objStream.Tutup
setel objStream = tidak ada
Fungsi Akhir
%>
未注册的域名如下
<%
'www.knowsky.com如果提交了查询
Jika Permintaan.Form("ya") <> "" Lalu
yes = replace(Request.Form("yes"),," ","") '去除复选框字符串中的空格
yes = split(yes,",") '实例化一个数组yes，将用逗号隔开的yes数组赋值给yes新数组
Untuk i = 0 hingga ubound(ya) '遍历数组循环开始
url = " http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&Request.Form("domain")&"&ext="&yes(i )
wstr = getBoy(url) '获取查询后的源代码
Jika instr(wstr,"未被注册的域名") <> 0 Lalu '判断是否为已经注册的域名
Respon.Tulis Permintaan.Formulir("domain")&"."&formaturl(yes(i))&"<br><br><br><br>" '列出未注册的域名
Akhiri Jika
Berikutnya
respon.Tulis "<p><p><p>已注册的域名如下：<br>"
Untuk i = 0 hingga ubound(ya) '遍历数组循环开始
url = " http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&Request.Form("domain")&"&ext="&yes(i )
wstr = getBoy(url) '获取查询后的源代码
Jika instr(wstr,"已被注册的域名") <> 0 Lalu '判断是否为已经注册的域名
Respon.Tulis Permintaan.Form("domain")&"."&formaturl(yes(i))&"<br><br><br><br>" '列出已注册的域名
Akhiri Jika
Berikutnya
Lainnya
%>
<form nama="form1" metode="posting" action="">
<p>
<masukan nama="domain" type="teks" id="domain">
<input type="kirim" name="Kirim" value="查询">
</p>
<p>
<masukan nama="ya" type="kotak centang" id="ya" value="com">
.com
<masukan nama="ya" type="kotak centang" id="ya" value="net">
.bersih
<masukan nama="ya" type="kotak centang" id="ya" value="org">
.org</p>
<p>
<masukan nama="ya" type="kotak centang" id="ya" value="comcn">
.com.cn
<masukan nama="ya" type="kotak centang" id="ya" value="netcn">
.net.cn
<masukan nama="ya" type="kotak centang" id="ya" value="orgcn">
org.cn
<masukan nama="ya" type="kotak centang" id="ya" value="govcn">
pemerintah.cn </p>
<p>
<masukan nama="ya" type="kotak centang" id="ya" value="info">
.info
<masukan nama="ya" type="kotak centang" id="ya" value="biz">
.biz
<masukan nama="ya" type="kotak centang" id="ya" value="tv">
.televisi
<masukan nama="ya" type="kotak centang" id="ya" value="cc">
.cc</p>
<p>
<masukan nama="ya" type="kotak centang" id="ya" value="cn">
.cn
<masukan nama="ya" type="kotak centang" id="ya" value="nama">
.nama </p>
</bentuk>
<%
Akhiri Jika
%>