Applet hta digunakan untuk menebak latar belakang

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>