The code is as follows:
<input type=text id=http size=28 style="color:888888" value="http://www.haiyangtop.net">
<input type=button onclick=vbs:isExist(http.value) value="Detection of whether the url exists" 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 version writing:
If you change js, remove the "vbs:" in the "onclick=vbs:isExist(http.value)" on the second line
The code is as follows:
<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]+"existence<br>";
else
t.innerHTML+= url+myObject[lcx]+"Not exist<br>";
}
}
</script>
The writing method of the dictionary placed on the page vbscript version:
The code is as follows:
<script language=vbs>
function isExist(url)
Dim
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 ' traverse the array.
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))+"exist<br>"
else
t.innerHTML = t.innerHTML+url+d.Item(a(i))+"Not exist<br>"
end if
Next
end function
</script>
The code is as follows:
<input type=text id=http size=28 style="color:888888" value="http://www.haiyangtop.net">
<input type=button onclick=isExist(http.value) value="Open dictionary to guess" style="color:888888">
<div id="t"></div>