List 8-19　ログインフォームの情報を受け取り，クッキー情報を書き込むASPファイル（logincookie.asp） 


  1：<HTML>
  2：<BODY>
  3：<%
  4：  ' ログイン名を得る
  5：  LOGINNAME = Request("LOGINNAME")
  6：
  7：  ' 実際には，ここでログイン名とパスワードが
  8：  ' 正しいかどうかを確認する処理が入るわけだが，ここでは省略する
  9：  
 10：  ' ----ここにログイン名とパスワードの確認処理が入る---
 11：  
 12：  Response.Write "ようこそ" & LOGINNAME & "さん"
 13：
 14：  ' ログイン名をCookie情報として保存する
 15：  If LOGINNAME <> "" Then
 16：   ' クッキー情報に書き込む
 17：   Response.Cookies("LOGINNAME") = LOGINNAME
 18：   ' 有効期間は現在から仮に1日とする
 19：   Response.Cookies("LOGINNAME").Expires = DateAdd("d", 1, Now())
 20：  End If
 21：%>
 22：</BODY>
 23：</HTML>