Код заключается в следующем:
<input type = text id = http size = 28 style = "color: 888888" value = "http://www.hiyangtop.net">
<input type = кнопка onclick = vbs: isexist (http.value) value = "Обнаружение того, существует ли URL" Style = "Color: 888888">
<div id = "t"> </div>
<script language = VBS>
функция ISexist (URL)
dic = "c: /dic.dic"
Установить fso = createObject ("scripting.filesystemobject")
SET ZIDIAN = FSO.OPENTEXTFILE (DIC, 1, FALSE)
Делать, пока 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>"
петля
Конечная функция
</script>
JS версия написана:
Если вы измените JS, удалите «VBS:» в «onclick = vbs: isexist (http.value)» на второй строке
Код заключается в следующем:
<Скрипт>
функция ISexist (URL)
{
var myObject = new Object ();
myobject.lcx1 = "/admin/index.asp";
myobject.lcx2 = "/безопасность";
myobject.lcx3 = "/safetyx";
для (LCX в 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>";
еще
t.innerhtml+= url+myobject [lcx]+"не существует <br>";
}
}
</script>
Метод написания словаря, размещенный на версии VBScript Page:
Код заключается в следующем:
<script language = VBS>
функция ISexist (URL)
Тусклый
Установите D = CreateObject ("scripting.dictionary")
D.Add "a", "/admin/index.asp"
D.Add "B", "/безопасность"
D.Add "c", "/safetyx"
A = D.Keys
Ибо i = 0 до d.count -1 'Переезд на массив.
set xmlhttp = createObject ("microsoft.xmlhttp")
xmlhttp.open "get", http.value+d.item (a (i)), false
xmlhttp.send
Если xmlhttp.status = 200 then
t.innerhtml = t.innerhtml+url+d.item (a (i))+"существует <br>"
еще
t.innerhtml = t.innerhtml+url+d.item (a (i))+"не существует <br>"
конец, если
Следующий
конечная функция
</script>
Код заключается в следующем:
<input type = text id = http size = 28 style = "color: 888888" value = "http://www.hiyangtop.net">
<input type = кнопка onclick = isexist (http.value) value = "Открыть словарь, чтобы угадать" style = "color: 888888">
<div id = "t"> </div>