List 8-24　クッキーにデータを保存するようにしたpay.asp


  1： <!-- #include file="allproducts.asp" -->
  2： <HTML>
  3： <BODY>
  4： <H1>支払い方法と配送先の選択</H1>
  5： <FORM METHOD="POST" ACTION="submit.asp">
  6： <INPUT TYPE="RADIO" NAME="pay" VALUE="1" CHECKED>クレジットカード<BR>
  7： <INPUT TYPE="RADIO" NAME="pay" VALUE="2">代金引換<BR>
  8： <INPUT TYPE="RADIO" NAME="pay" VALUE="3">銀行振込<BR>
  9： 配送先：<INPUT TYPE="TEXT" NAME="ADDRESS" SIZE="60"><BR>
 10： <%
 11：   ' ここでproducts.aspページで入力された商品の個数を
 12：   ' クッキー情報として書き込む
 13：   For i = 0 To UBOUND(Products)
 14：     Response.Cookies(CStr(i)) = Request(i)
 15：   Next
 16： %>
 17： <INPUT TYPE="SUBMIT" VALUE="次のページへ">
 18： </FORM>
 19： </BODY>
 20： </HTML>