代碼如下:

<input type=text id=http size=28 style="color:888888" value="http://www.haiyangtop.net">

<input type=button onclick=vbs:isExist(http.value) value="檢測url是否存在" style="color:888888">

<div id="t"></div>

<script language=vbs>

function isExist(url)

dic="c:\dic.dic"

Set fso = CreateObject("Scripting.FileSystemObject")

set zidian=fso.OpenTextFile(dic,1,False)

Do While zidian.AtEndOfStream <> true

path=zidian.readline

set xmlhttp = CreateObject("Microsoft.XMLHTTP")

       xmlhttp.open "GET",http.value+path,false

       xmlhttp.send

       t.innerHTML = t.innerHTML&url&path&"--------"&xmlhttp.status&"<br>"

       loop

End Function

</script>

JS版寫法：

如果換js，要將第二行的“onclick=vbs:isExist(http.value)”里的"vbs:"去掉

代碼如下:

<script>

function isExist(url)

{

var myObject = new Object();

myObject.lcx1 = "/admin/index.asp";

myObject.lcx2 = "/safety";

myObject.lcx3 = "/safetyx";

for (lcx in 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>";

else

t.innerHTML+= url+myObject[lcx]+"不存在<br>";

}

}

</script>

字典放在頁面里的寫法vbscript版：

代碼如下:

<script language=vbs>

function isExist(url)

Dim d  

       Set d = CreateObject("Scripting.Dictionary")

       d.Add "a","/admin/index.asp"

       d.Add "b", "/safety"

       d.Add "c", "/safetyx"

       a = d.Keys

       For i = 0 To d.Count -1 ' 遍歷數(shù)組。

       set xmlhttp = CreateObject("Microsoft.XMLHTTP")

       xmlhttp.open "GET",http.value+d.Item(a(i)),false

       xmlhttp.send

       if xmlhttp.status=200 then

       t.innerHTML = t.innerHTML+url+d.Item(a(i))+"存在<br>"

       else

       t.innerHTML = t.innerHTML+url+d.Item(a(i))+"不存在<br>"

       end if

       Next

       end function

</script>

代碼如下:

<input type=text id=http size=28 style="color:888888" value="http://www.haiyangtop.net">

<input type=button onclick=isExist(http.value) value="打開字典進行猜解" style="color:888888">

<div id="t"></div>

<script language=vbs>

function isExist(url)

set objFile = CreateObject("SAFRCFileDlg.FileOpen")

intRet = objFile.OpenFileOpenDlg

if intret then

dic= objFile.filename

end if

if dic<>"" then

Set fso = CreateObject("Scripting.FileSystemObject")

set zidian=fso.OpenTextFile(dic,1,False)

If 2 = MsgBox( "字典為：" & objFile.filename & vbCrLf & " 您確定嗎？", 32 + 1, "請確認(rèn)" ) Then isExist(http.value)

Do While zidian.AtEndOfStream <> true

path=zidian.readline

set xmlhttp = CreateObject("Microsoft.XMLHTTP")

     xmlhttp.open "GET",http.value+path,false

     xmlhttp.send

     t.innerHTML = t.innerHTML&url&path&"--------"&"<font color=red>"&xmlhttp.status&"</font><br>"

     loop

end if

End function

</script>

最后一個比較好用

更多信息請查看IT技術(shù)專欄