Web ページを強制的に更新する
<%
'ランダムな検証コードの必須更新
'IE の戻るボタンを押してログイン ページに戻るたびに、ランダムな確認コードが自動的に更新されるようにします。
応答.期限切れ=-1
Response.AddHeaderpragma、キャッシュなし
Response.AddHeadercache-control、no-store
%>
ファイルアドレスが有効かどうかを判断する
<%
'原著者: Xiaoyi QQ:52093 時間: 2005.6.30
Response.Write()
エラー時は次へ再開
このURL、このテキストを暗くします
thisurl=Request(thisurl) 'ファイルアドレス（非HTML形式ドキュメント）を定義してください！
if thisurl=then
Response.Write(最初にファイルアドレスを入力してください!)
応答.終了
次の場合に終了
関数objxmlhttp(xmlurl)
エラー時は次へ再開
objxml = CreateObject(Microsoft.XMLHTTP) を設定します。
objxml.Open get,xmlurl,false
objxml.setrequestheader content-type,application/x-www-form-urlencoded
objxml.send
objxmlhttp = objxml.responsebody
エラーの場合は
エラークリア
Response.Write (接続の確立に失敗しました。ファイルが存在しないか、ネットワークに問題があります!; エラーの理由: &Err.Description&!)
応答.終了
次の場合に終了
終了機能
関数 bytes2BSTR(vIn)
strReturn =
For i = 1 から LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 then
strReturn = strReturn & Chr(ThisCharCode)
それ以外
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
終了する場合
次
bytes2BSTR = strReturn
終了機能
thisurl2=分割(このurl,,)
For Each ii この URL 内 2
thistext=bytes2BSTR(objxmlhttp(ii))
if InStr(thistext,)<>0 then
Response.Write(& ii & ×
）
それ以外
Response.Write(& ii & √
）
次の場合に終了
次
エラーの場合は
エラークリア
Response.Write(予期せぬ!; エラーの理由: &Err.Description&!)
応答.終了
次の場合に終了
%>