<% 'ファイル名: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("

") Response.Write("ショッピングバスケットが利用可能です。

") Response.Write("
") Response.Write("戻る") Response.Write(str_Footer) Else Response.Write(str_Header & vbCrLf) Response.Write("動作試験結果") Response.Write("

") Response.Write("あなたのブラウザでは、ショッピングバスケットはご利用できません。
") Response.Write("ネットスケープまたはインターネットエクスプローラをご利用ください。

") Response.Write("
") Response.Write("戻る") Response.Write(str_Footer) End If End If %>