Response.Cookies を 使った ソースコードを紹介する表示色の説明：ASP VBScriptは <% 〜 %>
キーワードはResponse.Cookies です。
<%@LANGUAGE=VBScript%>
<%
'ユーザー名が送られていたら、クッキーにセットする
D = Request.QueryString("UNAME") 'データを代入
If Len(D) <> 0 Then 'データあり
Response.Cookies("USERNAME") = D '名前の代入
'期限のセット
Response.Cookies("USERNAME").Expires = DateAdd("d", 7, Date)
End If
%>
<html>
<head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">
<title>Request.Cookies("USERNAME")とクッキーを使ってみた</title>
</head>
<body>
<h2>Request.Cookies("USERNAME")とクッキーを使ってみた</h2>
クッキーのセットと参照で<br>
<b>Request.Cookies("USERNAME")</b><br>
有効期限のテストで<br>
<b>Response.Cookies("USERNAME").Expires = DateAdd("d", 7, Date)</b><br>
を使用してみました。<br>
期限の設定を忘れなければ、比較的簡単に使えると思います<br>
<h3>じゃんけんゲーム(Cookies クッキーで名前の管理)</h3>
<%
'パラメータをチェックする、クッキーに名前が入っているか？
USER_NAME = Request.Cookies("USERNAME") 'クッキーから変数へ代入
'Lenで変数の長さをチェックする
If Len(Trim(USER_NAME)) = 0 Then '名前が未入力なら
Call INPUT_NAME() '名前入力フォームの表示
Else
D = Request.QueryString("DATA") 'データを代入(選択された手)
If Len(D) = 1 Then 'データあり
Call HANTEI(D) '判断用の関数を呼ぶ
End If
Call INPUT_FORM() '入力用のフォームを表示する、再度入力させる
End If
%>
<hr>
セッション変数と違って、一回クッキーとして登録すると、<br>
再度このＨＰへきた時に、<br>
USER_NAME = Request.Cookies("USERNAME") 'クッキーから変数へ代入<br>
と、USERNAMEを取り出すことが出来る。<br>
パソコンのＨＤ内のクッキーを参照するので、使い方によっては便利です<br>
</body>
</html>
<% '名前入力フォームの表示
Sub INPUT_NAME()
Response.Write "<HR>"
Response.Write "<FORM ACTION='test066-1.asp' METHOD='GET'>"
Response.Write "あなたのお名前は？<br>"
Response.Write "<INPUT TYPE='text' NAME='UNAME'><br>"
Response.Write "<INPUT TYPE='submit' VALUE='名前の登録'><br>"
Response.Write "</FORM>"
End Sub
%>
<% '入力フォームの表示(勝負する手を入力)
Sub INPUT_FORM()
Response.Write "<HR>"
Response.Write "<FORM ACTION='test066-1.asp' METHOD='GET'>"
Response.Write "<b>" & USER_NAME & "</b>さん、あなたの手は？<br>"
Response.Write "<INPUT TYPE='RADIO' NAME='DATA' VALUE='1'>１．グー<br>"
Response.Write "<INPUT TYPE='RADIO' NAME='DATA' VALUE='2'>２．チョキ<br>"
Response.Write "<INPUT TYPE='RADIO' NAME='DATA' VALUE='3'>３．パー<br>"
Response.Write "<INPUT TYPE='submit' VALUE='勝負する'><br>"
Response.Write "</FORM>"
End Sub
%>
<% '乱数を発生させて勝負する
Sub HANTEI(strNO) 'ユーザーの手を受取り判断する
Dim nCON 'コンピュータの手１〜３の数値が入る
Dim nPC 'ユーザーさんの手
'配列にメッセージを代入
strTE = Array("", "グー", "チョキ", "パー")
Dim nMSGNO 'メッセージの番号
'メッセージ表示用の配列
strMSG = Array("", "アナタの勝ちです<br>", "引き分けです<br>", _
"私（コンピュータ）の勝ちです<br>" )
'入力値の判断、エラーならメッセージを表示させ抜ける
'If文で1,2,3以外を判断する
If strNO <> "1" And strNO <> "2" And strNO <> "3" Then
Response.Write "[" & strNO & "]は不正な入力です"
Exit Sub '<--Exit Subを使用してここでプログラムを抜ける
End If
'コンピュータの手を決定
Randomize ' 乱数発生ルーチンを初期化します。
nCON = Int((3 * Rnd) + 1) '1 から 3 までの乱数を発生させます。
'結果判断と表示
'ユーザーの手を表示する
nPC = CInt(strNO) 'CInt関数で数値型に変換する
Response.Write USER_NAME & "さんの手は、"
Response.Write strTE(nPC) & "です<br>" '(*3)ここでnPC番目を表示
'(*4)同様にコンピュータの手を表示する
Response.Write "コンピュータの手は" & strTE(nCON) & "です<br>"
'結果の判断
' グー(1) チョキ(2) パー(3) ←コンピュータの手
'グー(1) 2引き分け 1勝ち 3負け
'チョキ(2) 3負け 2引き分け 1勝ち
'パー(3) 1勝ち 3負け 2引き分け
'↑自分の手
'勝負の結果表を作る
strCHK = Array( "", Array( 0, 2, 1, 3 ), _
Array( 0, 3, 2, 1 ), _
Array( 0, 1, 3, 2 ) )
'結果を代入
nMSGNO = strCHK(nPC)(nCON) '結果表の値を代入
'結果のメッセージを表示する(メッセージ番号を使用して)
Response.Write strMSG(nMSGNO)
End Sub
%>
| 商品:最近の人気関係を紹介(広告)
最近の人気商品の人気
-
ニュートロジーナ社製プルミエールルミエール！超強力ニキビ治療薬 - 2/1注目商品 新作や予約商品
-
[フルーコ]FLUCO 時計バンドベルト アメリカ 20mm グリーン 2/1人気上昇中
-
時計工具シリーズ バネ棒 6mm~22mm - 1/31注目商品 新作や予約商品
-
クロムハーツ[Chrome Hearts]ギターピック CHプラスペンダ 1/31人気上昇中
-
PLAYTECH ウクレレ PTUK-200 - 1/30注目商品 新作や予約商品
-
新潟県妙高市特産の香辛料「かんずり」 - 1/30人気上昇中
-
キングジム ショットノート専用カバー Lサイズ 黒 9102Cクロ - 1/29注目商品 新作や予約商品
-
(エムツースクエアード)M2SQUARED フェイクレイヤードアーガイル 1/29人気上昇中
続き(一覧)を見る
|