コードコピーは次のとおりです。
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