HTA 애플릿은 배경을 추측하는 데 사용되었습니다

코드는 다음과 같습니다.

<입력 유형 = 텍스트 id = http size = 28 style = "색상 : 888888"value = "http://www.haiyangtop.net">

<입력 유형 = 버튼 onclick = vbs : isexist (http.value) value = "URL이 존재하는지 여부의 감지"스타일 = "색상 : 888888">

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

<스크립트 언어 = vbs>

함수 ISEXIST (URL)

dic = "c : /dic.dic"

set fso = createobject ( "scripting.filesystemobject")

set zidian = fso.opentextfile (dic, 1, false)

zidian.atendofstream <> true 중

경로 = 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>"

고리

엔드 기능

</스크립트>

JS 버전 쓰기 :

JS를 변경하면 두 번째 줄에서 "vbs :"에서 "onclick = vbs : isexist (http.value)"를 제거하십시오.

코드는 다음과 같습니다.

<cript>

함수 ISEXIST (URL)

{

var myObject = new Object ();

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

myObject.lcx2 = "/안전";

myObject.lcx3 = "/safetyx";

for (myobject의 lcx)

{

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>";

}

}

</스크립트>

페이지 vbscript 버전에 배치 된 사전의 쓰기 방법 :

코드는 다음과 같습니다.

<스크립트 언어 = vbs>

함수 ISEXIST (URL)

어둑한

set d = createobject ( "scripting.dictionary")

D.add "a", "/admin/index.asp"

D.add "B", "/Safety"

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 인 경우

t.innerhtml = t.innerhtml+url+d.item (a (i))+"Evention <br>"

또 다른

t.innerhtml = t.innerhtml+url+d.item (a (i))+"존재하지 않음 <br>"

끝 If

다음

엔드 기능

</스크립트>

코드는 다음과 같습니다.

<입력 유형 = 텍스트 id = http size = 28 style = "색상 : 888888"value = "http://www.haiyangtop.net">

<입력 유형 = 버튼 onclick = isexist (http.value) value = "style"style = "색상 : 888888">

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