코드 사본은 다음과 같습니다.
웹 페이지의 새로 고침
<%
'무작위 검증 코드의 필수 새로 고침
'IE 뒤로 버튼이 IE의 뒤로 버튼을 누를 때마다 무작위 검증 코드를 자동으로 새로 고치게하십시오.
응답 .expires = -1
Response.addheader "Pragma", "No-Cache"
response.addheader "Cache-Control", "No-Store"
%>
파일 주소가 유효한지 확인하십시오
코드 사본은 다음과 같습니다.
<%
'오리지널 저자 : Xiaoyi QQ : 52093 시간 : 2005.6.30
response.write ( "<head> <style> <!-Span {font-size : 9pt}-> </style> </head>")
onerrorresumenext
DimthisUrl, Thistext
thisUrl = request ( "thisUrl") '파일 주소를 정의합니다 (Non-HTML 형식 문서)!
if thisUrl = ""그럼
response.write ( "<pan> 파일 주소를 먼저 입력하십시오! </span>")
응답. 엔드
endif
functionobjxmlhttp (xmlurl)
onerrorresumenext
setobjxml = createobject ( "microsoft.xmlhttp")
objxml.open "get", xmlurl, false
objxml.setRequestheader "Content-Type", "Application/X-www-form-urlencoded"
objxml.send
objxmlhttp = objxml.responsebody
iferrthen
err.clear
response.write ( "<Span> 연결에 실패, 파일이 존재하지 않거나 네트워크 문제가 없습니다!; 오류 이유 :"& err.Description & "!
</span> ")
응답. 엔드
endif
최종 기능 장애
functionbytes2bstr (vin)
strreturn = ""
fori = 1tolenb (vin)
thischarCode = ASCB (MIDB (Vin, I, 1))
ifthischarcode <& h80then
strreturn = strreturn & chr (thischarcode)
또 다른
NextCharCode = ASCB (MIDB (VIN, I+1,1))
strreturn = strreturn & chr (clng (thischarcode)*& h100+cint (nextcharcode))
i = i+1
endif
다음
바이트 2bstr = strreturn
최종 기능 장애
thisurl2 = split (thisurl, ",")
foreachiiinthisurl2
thistext = bytes2bstr (objxmlhttp (ii))
ifinstr (thistext, "<html>") <> 0then
response.write ( "<pan>"& ii & "<b> × </b> </span> <br>")
또 다른
response.write ( "<pan>"& ii & "<b> √ </b> </span> <br>")
endif