รหัสมีดังนี้:
<ประเภทอินพุต = ข้อความข้อความ = http size = 28 style = "สี: 888888" value = "http://www.haiyangtop.net">
<อินพุตประเภท = ปุ่ม onClick = VBS: isExist (http.value) ค่า = "การตรวจจับว่า URL มีอยู่หรือไม่" สไตล์ = "สี: 888888">
<div id = "t"> </div>
<ภาษาสคริปต์ = VBS>
ฟังก์ชั่น isExist (URL)
dic = "c: /dic.dic"
ตั้งค่า fso = createObject ("Scripting.filesystemObject")
ตั้งค่า zidian = fso.opentextfile (dic, 1, false)
ทำในขณะที่ zidian.atendofstream <> true
path = zidian.readline
ตั้งค่า xmlhttp = createObject ("microsoft.xmlhttp"))
xmlhttp.open "get", http.value+path, false
xmlhttp.send
t.innerhtml = t.innerhtml & url & path & "----------" & xmlhttp.status & "<br>"
วง
ฟังก์ชันสิ้นสุด
</script>
การเขียนเวอร์ชัน JS:
หากคุณเปลี่ยน JS ให้ลบ "VBS:" ใน "onClick = VBS: isExist (http.value)" ในบรรทัดที่สอง
รหัสมีดังนี้:
<script>
ฟังก์ชั่น isExist (URL)
-
var myObject = new Object ();
myobject.lcx1 = "/admin/index.asp";
myobject.lcx2 = "/ความปลอดภัย";
myObject.lcx3 = "/safetyx";
สำหรับ (LCX ใน myObject)
-
xmlhttp = new ActiveXObject ("Microsoft.xmlhttp"))
xmlhttp.open ("รับ", http.value+myobject [lcx], false)
xmlhttp.send ()
if (xmlhttp.status == 200)
t.innerhtml+= url+myobject [lcx]+"การดำรงอยู่ <br>";
อื่น
t.innerhtml+= url+myobject [lcx]+"ไม่มีอยู่ <br>";
-
-
</script>
วิธีการเขียนของพจนานุกรมที่วางไว้ในหน้า VBScript หน้า:
รหัสมีดังนี้:
<ภาษาสคริปต์ = VBS>
ฟังก์ชั่น isExist (URL)
สลัว
ตั้งค่า d = createObject ("scripting.dictionary")
d.add "a", "/admin/index.asp"
d.add "b", "/ความปลอดภัย"
d.add "c", "/safetyx"
a = d.keys
สำหรับ i = 0 ถึง d.count -1 'สำรวจอาร์เรย์
ตั้งค่า xmlhttp = createObject ("microsoft.xmlhttp"))
xmlhttp.open "get", http.value+d.item (a (i)), false
xmlhttp.send
ถ้า xmlhttp.status = 200 แล้ว
t.innerhtml = t.innerhtml+url+d.item (a (i))+"มีอยู่ <br>"
อื่น
t.innerhtml = t.innerhtml+url+d.item (a (i))+"ไม่มีอยู่ <br>"
สิ้นสุดถ้า
ต่อไป
ฟังก์ชันสิ้นสุด
</script>
รหัสมีดังนี้:
<ประเภทอินพุต = ข้อความข้อความ = http size = 28 style = "สี: 888888" value = "http://www.haiyangtop.net">
<อินพุต type = ปุ่ม onclick = isExist (http.value) value = "Open Dictionary to Guess" style = "สี: 888888">
<div id = "t"> </div>