Der Code ist wie folgt:
<Eingabetyp = Text ID = http size = 28 style = "color: 888888" value = "http://www.haiyangtop.net">
<Eingabetyp = Taste Onclick = VBS: iSexist (http.value) value = "Erkennung, ob die URL existiert" style = "Farbe: 888888">
<div id = "t"> </div>
<script Language = VBS>
Funktion isexist (URL)
dic = "c: /dic.dic"
Setzen Sie fso = createObject ("scripting.filesystemObject").
Setzen Sie Zidian = fso.opentextfile (DIC, 1, Falsch)
Tun, während Zidian.atendofstream <> wahr ist
Path = Zidian.readline
Setzen Sie xmlhttp = createObject ("microsoft.xmlhttp").
xmlhttp.open "get", http.value+path, false
xmlhttp.send
T.innerhtml = T.innerhtml & url & path & "----------" & xmlhttp.status & "<br>"
Schleife
Endfunktion
</script>
JS -Version Schreiben:
Wenn Sie JS ändern, entfernen Sie in der zweiten Zeile die "VBS:" in "Onclick = VBS: ISEXIST (http.value)"
Der Code ist wie folgt:
<Script>
Funktion isexist (URL)
{
var myObject = new Object ();
myObject.lcx1 = "/admin/index.asp";
myObject.lcx2 = "/Sicherheit";
myObject.lcx3 = "/Safetyx";
für (lcx in myObject)
{
xmlhttp = new ActiveXObject ("microsoft.xmlhttp"))
xmlhttp.open ("get", http.value+myObject [lcx], falsch)
xmlhttp.send ()
if (xmlhttp.status == 200)
t.innerHtml+= url+myObject [lcx]+"existenz <br>";
anders
t.innerHtml+= url+myObject [lcx]+"nicht existieren <br>";
}
}
</script>
Die Schreibmethode des Wörterbuchs auf der Seite vbscript -Version von Seite:
Der Code ist wie folgt:
<script Language = VBS>
Funktion isexist (URL)
Düster
SET D = CREATEOBJECT ("Scripting.Dictionary")
D.Add "a", "/admin/index.asp"
D.Add "B", "/Sicherheit"
D.Add "C", "/Safetyx"
A = D.Keys
Für i = 0 bis d.count -1 'durchqueren Sie das Array.
Setzen Sie xmlhttp = createObject ("microsoft.xmlhttp").
xmlhttp.open "get", http.value+D.Item (a (i)), falsch
xmlhttp.send
Wenn xmlhttp.status = 200 dann
t.innerhtml = t.innerhtml+url+d.iTem (a (i))+"exist <br>"
anders
t.innerhtml = t.innerhtml+url+d.iTem (a (i))+"nicht existieren <br>"
Ende wenn
Nächste
Endfunktion
</script>
Der Code ist wie folgt:
<Eingabetyp = Text ID = http size = 28 style = "color: 888888" value = "http://www.haiyangtop.net">
<Eingabetyp = Taste onclick = isExist (http.value) value = "Open Dictionary to Rate" style = "Farbe: 888888">
<div id = "t"> </div>