<% 'ファイル名:cart.asp '内容:ショッピングバスケット本体 ' 'History '2004/03/12 '====================================================== Dim str_Action Dim str_Goods Dim int_Unit Dim str_Amount Dim str_Rem Dim str_Rem2 Dim str_Rem3 Dim bln_Data_Exist Dim dbl_Tax Dim int_All_Price If Request.ServerVariables("REQUEST_METHOD") = "POST" Then str_Action = Request.Form("action") str_Goods = Request.Form("goods") int_Unit = Request.Form("unit") str_Amount = Request.Form("amount") str_Rem = Request.Form("rem") str_Rem2 = Request.Form("rem2") str_Rem3 = Request.Form("rem3") ElseIf Request.ServerVariables("REQUEST_METHOD") = "GET" Then str_Action = Request.QueryString("action") str_Goods = Request.QueryString("goods") int_Unit = Request.QueryString("unit") str_Amount = Request.QueryString("amount") str_Rem = Request.QueryString("rem") str_Rem2 = Request.QueryString("rem2") str_Rem3 = Request.QueryString("rem3") End If '商品登録 If str_Action = "regist" Then If IsNumeric(str_Amount) Then str_Amount = CLng(str_Amount) Else Response.Write(str_Header & vbCrLf) Response.Write("入力エラー

") Response.Write("数量には、半角数字で入力して下さい。") Response.Write(str_Footer) Response.End End If If str_Amount = "" Or str_Amount <= 0 Then Response.Write(str_Header & vbCrLf) Response.Write("入力エラー

") Response.Write("数量を入力してください。") Response.Write(str_Footer) Response.End End If Call sub_Add_Session(str_Goods, int_Unit, str_Amount, str_Rem,str_Rem2,str_Rem3) '商品削除 ElseIf str_Action = "remove" Then Call sub_Remove_Session(str_Goods, int_Unit, str_Amount, str_Rem,str_Rem2,str_Rem3) '商品表示 Else Call sub_Html() End If %> <% sub sub_Html() Dim CookieArray() Dim int_Max Dim int_Count %> <%= str_Title %> <%= str_Body%>
ロゴ アドレス


<% bln_Data_Exist = 0 On Error Resume Next int_Max = UBound(Session(Session.SessionID)) If Err <> 0 Then bln_Data_Exist = 0 Else For int_Count = 0 To int_Max If (Session(Session.SessionID)(int_Count) <> "") And (InStr(Session(Session.SessionID)(int_Count), "/remove/") < 1) Then bln_Data_Exist = 1 End If Next End If On Error Goto 0 Err.Clear If bln_Data_Exist = 1 Then %>
現在お買い物カゴには以下の商品が入っています。
<% Call sub_Shopping_Result() Else %> お買い物を続ける
<% Response.End End If End Sub %> <% ' '金額にカンマ(桁区切り)を付加 ' Function sub_Money(ByVal int_Money) Dim int_Count Dim str_Result For int_Count = 0 to (Len(int_Money) - 1) str_Result = CStr(Mid(int_Money, (Len(int_Money) - int_Count), 1)) & str_Result If (InStr(((int_Count + 1) / 3), ".") < 1) And (int_Count <> (Len(int_Money) -1)) Then str_Result = "," & str_Result End If Next sub_Money = str_Result End Function %> <% ' '買い物内容 ' sub sub_Shopping_Result() Dim int_Count Dim str_Goods Dim int_Unit Dim str_Amount Dim str_Rem Dim str_Session_In int_All_Price = 0 For int_Count = 0 To UBound(Session(Session.SessionID)) str_Session_In = Split(Session(Session.SessionID)(int_Count), vbTab) If str_Session_In(0) <> "/remove/" And str_Session_In(0) <> "" Then str_Goods = str_Session_In(0) int_Unit = str_Session_In(1) str_Amount = str_Session_In(2) str_Rem = str_Session_In(3) str_Rem2 = str_Session_In(4) str_Rem3 = str_Session_In(5) %> <% int_All_Price = int_All_Price + CLng(int_Unit) * CLng(str_Amount) + 800 End If Next dbl_Tax = int(int_All_Price * (int_TaxRate * 0.01)) %> <% If int_TaxRate <> 0 Then %> <% End If %>
 商 品 名   単 価   数 量   送 料   小 計   取 消 し 
 <%= str_Goods %>   <%= sub_Money(int_Unit) %>円   <%= sub_Money(str_Amount)%>   <%= str_Rem %>800円   <%= sub_Money(CLng(int_Unit) * CLng(str_Amount) + 800) %>円 
action="./cart.asp">
合 計 金 額 (税込 税率5%) <%= sub_Money(int_All_Price) %>円

お買い物を続ける


action="<%= str_Webform_URL %>">
お買い物商品がお決まりでしたら入力画面へお進みください。  は必ず記入をお願いします。
<% int_All_Price = 0 For int_Count = 0 To UBound(Session(Session.SessionID)) str_Session_In = Split(Session(Session.SessionID)(int_Count), vbTab) If str_Session_In(0) <> "/remove/" And str_Session_In(0) <> "" Then str_Goods = str_Session_In(0) int_Unit = str_Session_In(1) str_Amount = str_Session_In(2) str_Rem = str_Session_In(3) str_Rem2 = str_Session_In(4) str_Rem3 = str_Session_In(5) %> <% int_All_Price = int_All_Price + CLng(int_Unit) * CLng(str_Amount) + 800 End If Next dbl_Tax = int_All_Price * (int_TaxRate * 0.01) %> <% If int_TaxRate <> 0 Then %> <% End If %>
 申込者氏名   様 (例:ABC株式会社 山本 一郎)
 フリガナ    (例:ABC ヤマモト イチロウ)
 郵便番号    (例:001-0001)
 申込者住所    ※都道府県をお選びください (例:東京都)

 (例:千代田区1-1 ABCハイツ 2003号室)
 申込者電話番号    (例:087-862-3452)
 申込者eメール  
 (例:root@shiki-1984.com)
 お間違えのないよう正確に入力してください。間違えると、確認メールが届きません。
 お支払い方法 商品代引(手数料無料)   銀行振込  郵便振替 
 (チェックボタンで指定してください。)
 配送日指定  (例:2006/04/01)
 配送時間
 ラッピングサービス 不要 要 (チェックボタンで指定してください。)


これより下はお申し込みの方とお届け先が異なる場合のみご記入下さい。
 届け先氏名  様 (例:山本 一郎)
 フリガナ  (例:ヤマモト イチロウ)
 届け先住所  ※都道府県をお選びください (例:東京都)

 (例:千代田区1-1 ABCハイツ 2004号室)
 届け先電話番号  (例:087-862-3452)


メッセージ(無料)  ご希望の方は下記へご記入ください。
商品番号と
メッセージ

(例:商品番号 AM-001 祝 イロハ株式会社さまへ 山田太郎より)

その他・ご要望などありましたらご記入ください。

    
お電話でのご注文はこちらで承ります。
四季:香川県高松市瓦町1丁目13番11 ビルド・四季 1F 087-862-3452 / 責任者 川原輝男

<% End Sub %>