<%
' ASPCOOKIE.ASP Ver 0.9 1998.07
' クッキー書込みの例
' 原作者 古口正巳 [koguchi@sf.airnet.ne.jp]
' VB4CGI4.INC が必要
'
' このプログラムはコード改変可能なフリーフェアであり、いかなる条件でも正しく動作する事を保証してません。
' 各自のリスクで実行して下さい。このプログラムを利用していかなるトラブルが発生しても関知しません。
'
If Request.QueryString("MODE") = "Write" Then
Response.Cookies("test")("field1") = Request.Form("field1")
Response.Cookies("test")("field2") = Request.Form("field2")
Response.Cookies("test")("field3") = Request.Form("field3")
Response.Cookies("test")("field4") = Request.Form("field4")
Response.Cookies("test")("field5") = Request.Form("field5")
Response.Cookies("test").Expires = Date + 30 '有効期限 (30日後の場合)
End if
If Request.QueryString("MODE") = "Delete" Then
Response.Cookies("test").Expires = Date - 1 '有効期限 (削除の場合)
End If
sendheader "Cookie Sample"
%>
CGIVB4クッキーサンプルフォーム
<%
'以下vb4cgi.incの定義関数を使用 HTMLが主かVBSが主かで見易さが違います。
send "クッキーに書きこまれている情報
"
send "Field1=" & Request.Cookies("test")("field1") & "
"
send "Field2=" & Request.Cookies("test")("field2") & "
"
send "Field3=" & Request.Cookies("test")("field3") & "
"
send "Field4=" & Request.Cookies("test")("field4") & "
"
send "Field5=" & Request.Cookies("test")("field5") & "
"
%>