O código é o seguinte:
<Tipo de entrada = ID do texto = tamanho http = 28 style = "cor: 888888" value = "http://www.haiyangtop.net">
<Tipo de entrada = botão onclick = VBS: isExist (http.value) value = "Detecção de se o URL existe" style = "cor: 888888">
<div id = "t"> </div>
<idioma de script = vbs>
função isExist (URL)
dic = "c: /dic.dic"
Set fso = createObject ("script.filesystemoBject")
set zidian = fso.opentExtfile (dic, 1, falso)
Faça enquanto zidian.atendofstream <> true
caminho = zidian.readline
Definir xmlhttp = CreateObject ("Microsoft.xmlHttp")
xmlhttp.open "get", http.value+caminho, false
xmlHttp.send
t.innerhtml = t.innerhtml & url & path & "----------" & xmlhttp.status & "<br>"
laço
Função final
</script>
Redação da versão JS:
Se você alterar o JS, remova o "VBS:" no "OnClick = VBS: isExist (http.value)" na segunda linha
O código é o seguinte:
<Cript>
função isExist (URL)
{
var myObject = new Object ();
myObject.lcx1 = "/admin/index.asp";
myObject.lcx2 = "/segurança";
myObject.lcx3 = "/segurança";
para (LCX em 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]+"existência <br>";
outro
t.innerhtml+= url+myObject [lcx]+"não existe <br>";
}
}
</script>
O método de escrita do dicionário colocado na versão VBScript da página:
O código é o seguinte:
<idioma de script = vbs>
função isExist (URL)
Escurecido
Set d = createObject ("script.dictionary")
d.add "a", "/admin/index.asp"
D.Add "B", "
D.Add "C", "
A = D.Keys
Para i = 0 a d.count -1 'atravessar a matriz.
Definir xmlhttp = CreateObject ("Microsoft.xmlHttp")
xmlhttp.open "get", http.value+d.iTem (a (i)), false
xmlHttp.send
Se xmlhttp.status = 200 então
t.innerhtml = t.innerhtml+url+d.item (a (i))+"existe <br>"
outro
t.innerhtml = t.innerhtml+url+d.item (a (i))+"não existe <br>"
final se
Próximo
Função final
</script>
O código é o seguinte:
<Tipo de entrada = ID do texto = tamanho http = 28 style = "cor: 888888" value = "http://www.haiyangtop.net">
<Tipo de entrada = botão onclick = isExist (http.value) value = "Abra o dicionário para adivinhar" style = "cor: 888888">
<div id = "t"> </div>