コードコピーは次のとおりです。
Webページの強制リフレッシュ
<%
'ランダム検証コードの必須リフレッシュ
'IEのバックボタンに押し付けられるたびに、ランダム検証コードを自動的に更新します。
Response.Expires = -1
response.addheader「プラグマ」、「ノーキャッシュ」
Response.Addheader "Cache-Control"、 "No-Store"
%>
ファイルアドレスが有効かどうかを判断します
コードコピーは次のとおりです。
<%
'元の著者:Xiaoyi QQ:52093時間:2005.6.30
Response.Write( "<head> <style> <! - span {font-size:9pt} - > </style> </head>")
onerrorresumenext
dimthisurl、このテキスト
thisurl = request( "thisurl") 'はファイルアドレス(非HTML形式のドキュメント)を定義します!
iftisurl = "" then
Response.write( "<span>最初にファイルアドレスを入力してください!</span>")
Response.End
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> ")
Response.End
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
次
bytes2bstr = strreturn
エンド機能
thisurl2 = split(thisurl、 "、")
foreachiiinthisurl2
thistext = bytes2bstr(objxmlhttp(ii))
ifinstr(thistext、 "<html>")<> 0then
Response.write( "<span>"&ii& "<b>×</b> </span> <br>")
それ以外
Response.write( "<span>"&ii& "<b>√</b> </span> <br>")
endif