ระบบสืบค้นชื่อโดเมนสำหรับการสืบค้นคำต่อท้ายชื่อโดเมนหลายรายการพร้อมกัน

写的很简单，只是实现了功能

<%
ฟังก์ชัน formaturl(ใช่)
ถ้ากลาง(ใช่,5,1)<>""แล้ว
ใช่1 = ซ้าย(ใช่,3)
yes2 = ขวา(ใช่,cint(len(ใช่))-3)
formaturl = yes1 & "." และใช่2
อื่น
formaturl=ใช่
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
取得远程网页二进制源代码
ฟังก์ชั่น getBoy(url)
'เมื่อเกิดข้อผิดพลาดให้ดำเนินการต่อต่อไป
ตั้ง objXml = Server.CreateObject("Microsoft.XmlHttp")
ด้วย objXml
.open "get",url,false,"",""
.ส่ง
getBoy = .responsebody
ลงท้ายด้วย
getBoy = BytesToBstr(GetBoy,"GB2312")
ตั้ง objXml = ไม่มีเลย
สิ้นสุดฟังก์ชัน

'处理二进制流代码
ฟังก์ชั่น BytesToBstr (strBody, CodeBase)
objStream สลัว
ตั้ง objStream = Server.CreateObject("Adodb.Stream")
objStream.Type = 1
objStream.Mode =3
objStream.เปิด
objStream เขียน strBody
objStream.ตำแหน่ง = 0
objStream.Type = 2
objStream.Charset = CodeBase
BytesToBstr = objStream.ReadText
objStream ปิด
ตั้งค่า objStream = ไม่มีเลย
ฟังก์ชันสิ้นสุด
-
未注册的域名如下
-
'www.knowsky.com如果提交了查询
ถ้า Request.Form("yes") <> "" จากนั้น
ใช่ = แทนที่(คำขอ.แบบฟอร์ม("ใช่")," ","") '去除复选框字符串中的空格
ใช่ = แยก(ใช่,,”) '实例化一个数组ใช่,将用逗号隔เปิดร้านใช่数组赋值给ใช่新数组

สำหรับ i = 0 ถึง 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>" '列出未注册的域名
สิ้นสุดถ้า
ต่อไป
response.Write "<p><p><p>已注册的域名如下：<br>"
สำหรับ i = 0 ถึง 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>" '列出已注册的域名
สิ้นสุดถ้า
ต่อไป

อื่นๆ

%>
<ชื่อแบบฟอร์ม = "form1" method = "โพสต์" การกระทำ = "">
<p>
<input name="domain" type="text" id="domain">
<input type="submit" name="Submit" value="查询">
</p>
<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>
<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>
<p>
<input name="yes" type="checkbox" id="yes" value="info">
.ข้อมูล
<input name="yes" type="checkbox" id="yes" value="biz">
.บิซ
<input name="yes" type="checkbox" id="yes" value="tv">
.ทีวี
<input name="yes" type="checkbox" id="yes" value="cc">
.ซีซี</p>
<p>
<input name="yes" type="checkbox" id="yes" value="cn">
.cn
<input name="yes" type="checkbox" id="yes" value="name">
.ชื่อ </p>
</แบบฟอร์ม>
-
สิ้นสุดถ้า
-