الرمز كما يلي:
<نوع الإدخال = معرف النص = http size = 28 style = "color: 888888" value = "http://www.haiyangtop.net">
<نوع الإدخال = زر OnClick = vbs: isexist (http.value) value = "اكتشاف ما إذا كان عنوان URL موجودًا" style = "color: 888888">
<div id = "t"> </viv>
<لغة البرنامج النصي = vbs>
وظيفة isexist (url)
DIC = "C: /dic.dic"
set fso = createObject ("scripting.filesystemObject")
تعيين zidian = fso.opentextFile (DIC ، 1 ، خطأ)
تفعل بينما zidian.atendofstream <> صحيح
المسار = 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 = "/safety" ؛
myobject.lcx3 = "/safetyx" ؛
ل (LCX في myobject)
{
xmlhttp = new ActiveXobject ("Microsoft.xmlhttp")
xmlhttp.open ("get" ، http.value+myobject [lcx] ، false)
xmlhttp.send ()
if (xmlhttp.status == 200)
T.innerhtml+= url+myobject [lcx]+"الوجود <br>" ؛
آخر
T.innerhtml+= url+myobject [lcx]+"غير موجود <br>" ؛
}
}
</script>
طريقة الكتابة للقاموس الموضوعة على إصدار Page VBScript:
الرمز كما يلي:
<لغة البرنامج النصي = vbs>
وظيفة isexist (url)
خافت
set 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 = "color: 888888" value = "http://www.haiyangtop.net">
<نوع الإدخال = زر OnClick = isexist (http.value) value = "Open Dictionary to guess" style = "color: 888888">
<div id = "t"> </viv>