%
'ファイル名:session.asp
'内容:Session利用可否確認
'
'History
'V0.00 - 2000/09/09
'======================================================
if Request.ServerVariables("HTTP_REFERER") = "" Then
Response.Write(str_Header & vbCrLf)
Response.Write("処理エラー
")
Response.Write("参照元URLが取得できません。
")
Response.Write("あなたのサーバではご利用できません。
")
Response.Write("ブラウザの[戻る]ボタンを押して前の画面に移動してください。")
Response.Write(str_Footer)
Response.End
End If
if Request.QueryString("result") <> "true" Then
Session("s_check") = str_URL_Session
Response.Redirect(str_URL_Session & "?result=true")
Elseif Request.QueryString("result") = "true" Then
If Session("s_check") = str_URL_Session Then
Response.Write(str_Header & vbCrLf)
Response.Write("動作試験結果")
Response.Write("