มันง่ายมากที่จะเขียน แต่มันแค่ใช้ฟังก์ชั่น
-
functionFormaturl (ใช่)
IFMID (ใช่ 5,1) <> "" แล้ว
ใช่ 1 = ซ้าย (ใช่ 3)
ใช่ 2 = ถูกต้อง (ใช่, cint (len (ใช่))-3)
formaturl = yes1 & "." & ใช่ 2
อื่น
FormatuRl = ใช่
endif
endfunction
'รับซอร์สโค้ดแหล่งข้อมูลไบนารีจากระยะไกล
FunctionGetBoy (URL)
'onerrorresumenext
setObjxml = server.createObject ("microsoft.xmlhttp"))
ไม่มี bjxml
.Open "Get", url, false, "", ","
.ส่ง
getBoy = .ResponseBody
จบลงด้วย
getBoy = bytestobstr (getBoy, "GB2312"))
setObjxml = ไม่มีอะไร
endfunction
'การประมวลผลรหัสสตรีมไบนารี
FunctionByTestObstr (strbody, codebase)
dimobjstream
setObjstream = server.createObject ("adodb.stream")
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.writessstrbody
objstream.position = 0
objstream.type = 2
objstream.charset = codebase
bytestobstr = objstream.readText
objstream.close
setObjstream = ไม่มีอะไร
endfunction
-
ชื่อโดเมนที่ไม่ได้ลงทะเบียนมีดังนี้
-
'www.knowsky.com หากส่งแบบสอบถาม
ifrequest.form ("ใช่") <> "" แล้ว
ใช่ = แทนที่ (request.form ("ใช่"), "", "") 'ลบช่องว่างในสตริงช่องทำเครื่องหมาย
ใช่ = แยก (ใช่, ",") 'ยกตัวอย่างอาร์เรย์ของใช่และกำหนดอาร์เรย์ที่คั่นด้วยเครื่องหมายจุลภาคให้กับอาร์เรย์ใหม่ของใช่
fori = 0toubund (ใช่) 'ถ่ายโอนลูปอาร์เรย์เริ่มต้น
url = "http://panda.www.net.cn/cgi-bin/check.cgi?domain=" & request.form ("โดเมน") & "& ext =" & ใช่ (i)
wstr = getBoy (url) 'รับซอร์สโค้ดหลังจากสอบถาม
IFSTR (WSTR, "ชื่อโดเมนที่ไม่ได้ลงทะเบียน") <> 0 แล้ว 'กำหนดว่าเป็นชื่อโดเมนที่ลงทะเบียน
response.writequest.form ("โดเมน") & "." & formaturl (ใช่ (i)) & "<br> <br> <br> <br> <br> <br>" 'รายการชื่อโดเมนที่ไม่ได้ลงทะเบียน
endif