Kodenya adalah sebagai berikut:
<Input Tipe = Text ID = http size = 28 style = "Color: 888888" value = "http://www.haiyangtop.net">
<input type = tombol onClick = vbs: isExist (http.value) value = "Deteksi apakah URL ada" style = "Color: 888888">>
<Div id = "t"> </div>
<bahasa skrip = vbs>
function isexist (url)
DIC = "C: /DIC.DIC"
Atur fso = createObject ("Scripting.filesystemObject")
set zidian = fso.opentextFile (DIC, 1, false)
Lakukan sementara zidian.atendofstream <> true
Path = Zidian.Readline
Setel xmlhttp = createObject ("microsoft.xmlhttp")
xmlhttp.open "get", http.value+path, false
xmlhttp.send
t.innerHtml = t.innerHtml & url & path & "----------" & xmlhttp.status & "<br>"
lingkaran
Fungsi akhir
</script>
Penulisan versi JS:
Jika Anda mengubah JS, hapus "VBS:" di "OnClick = VBS: Isexist (http.value)" di baris kedua
Kodenya adalah sebagai berikut:
<script>
function isexist (url)
{
var myobject = objek baru ();
myobject.lcx1 = "/admin/index.asp";
myobject.lcx2 = "/safety";
myobject.lcx3 = "/safetyx";
untuk (lcx di myObject)
{
xmlhttp = ActivexObject baru ("microsoft.xmlhttp")
xmlhttp.open ("get", http.value+myObject [lcx], false)
xmlhttp.send ()
if (xmlhttp.status == 200)
t.innerHtml+= url+myObject [lcx]+"keberadaan <br>";
kalau tidak
t.innerHtml+= url+myObject [lcx]+"tidak ada <br>";
}
}
</script>
Metode penulisan kamus ditempatkan pada versi halaman VBScript:
Kodenya adalah sebagai berikut:
<bahasa skrip = vbs>
function isexist (url)
Redup
Set D = CreateObject ("Scripting.Dictionary")
D. Tambah "A", "/Admin/Index.asp"
d.add "b", "/keamanan"
D. Tambah "C", "/SafetyX"
A = D.Keys
Untuk i = 0 ke D.Count -1 'melintasi array.
Setel xmlhttp = createObject ("microsoft.xmlhttp")
xmlhttp.open "get", http.value+d.item (a (i)), false
xmlhttp.send
jika xmlhttp.status = 200 lalu
t.innerHtml = t.innerHtml+url+d.item (a (i))+"ada <br>"
kalau tidak
t.innerHtml = t.innerHtml+url+d.item (a (i))+"tidak ada <br>"
akhiri jika
Berikutnya
fungsi akhir
</script>
Kodenya adalah sebagai berikut:
<Input Tipe = Text ID = http size = 28 style = "Color: 888888" value = "http://www.haiyangtop.net">
<input type = tombol onclick = isExist (http.value) value = "buka kamus untuk menebak" style = "color: 888888">
<Div id = "t"> </div>