<% Option Explicit '=========================================== '設定項目 '=========================================== Const cMailTo = "tosyo@nichizeiwest.com" '注文を受けるアドレス 'Const cMailTo = "esaki@nichizeiwest.com" '注文を受けるアドレス Const cMailSV = "smtp.po-jp.com" 'メールサーバ Const cShopName = "九北税協・南九税協の日税ネット書店" 'ショップ名 Const cPage = 20 '1ページ表示数 '=========================================== ' 変数定義 '=========================================== Dim act,kbn,page Dim ObjConn,ObjRS,StrSQL '商品情報 Dim prodid Dim cateid Dim prodname Dim price Dim img Dim keyword Dim suuryou 'nk追加情報 Dim wwcateid 'ついか Dim catename Dim sypan Dim cyosya Dim pagesa Dim setumei Dim hakouymd Dim suryo Dim newukubun 'お客様情報 Dim name Dim yuubin Dim juusho Dim tel Dim mail '=========================================== ' パラメータの取得 '=========================================== act = Request("act") 'ページ区分 kbn = Request("kbn") 'DB操作区分(追加、修正、削除) prodid = Request("prodid") cateid = Request("cateid") wwcateid = Request("cateid") 'ついか prodname = Request("prodname") price = Request("price") keyword = Request("keyword") suuryou = Request("suuryou") name = Request("name") yuubin = Request("yuubin") juusho = Request("juusho") tel = Request("tel") mail = Request("mail") '================================================= ' 処理開始 '================================================= %> <% Call ConnDB %> 書籍購入申し込み | 日税サービス西日本

日税サービス西日本

TOP書籍購入申込

保険

PC・インターネット

書籍案内

税理士損保代理店提携制度

報酬自動支払制度「こもんくん」

ライセンスオンライン

会員様限定で図書の情報をお届けします。

このネット書店は、九州北部税理士協同組合及び南九州税理士協同組合の会員の皆様限定で、図書の情報をお届けし、注文をお受けいたします。
<送料は福岡県内は5kgまで594円(税込)となります。また、重量超過の場合はお問い合わせ下さい。なお、離島および沖縄県は別料金となります。>

<% '-- ページ内容の表示 Select Case act Case "ent" 'お客様情報入力 Call Gamen_ent Case "entconf" '注文内容確認 Call Gamen_entconf Case "prod" '商品表示 Call Gamen_prod Case "dispcart" 'カート表示 Call Gamen_dispcart Case "kan" '処理完了 Call Gamen_kan Case else '商品検索画面 Call Gamen_src end select %>
ページトップ
<% Call CloseDB %> <% '□□□□□□□□□□□□□□□□□□□□□□ ' サブルーチン定義 '□□□□□□□□□□□□□□□□□□□□□□ '================================================= '----- 商品検索画面 '================================================= Sub Gamen_src( ) %>
商品検索
カテゴリ検索
新会社法対応!!商業登記関係、申請・届出様式集はカテゴリの「様式・書式集」を選択してください。
別途注文はこちら
<% Call DispAll %>
<% End Sub '================================================= '----- お客様情報入力画面 '================================================= Sub Gamen_ent( ) %>

お客様情報入力画面

お客様情報入力画面です。 すべての項目は必須です。メールアドレスは注文内容送信確認のため正確に入力してください。

お名前
郵便番号
住所
電話番号
メールアドレス

<% End Sub '================================================= '----- 注文内容確認画面 '================================================= Sub Gamen_entconf( ) If EntChk = "NG" Then Exit Sub %>

注文内容確認画面

お名前 <% =name %>
郵便番号 <% =yuubin %>
住所 <% =juusho %>
電話番号 <% =tel %>
メールアドレス <% =mail %>
<% Call DispCart %>

<% End Sub '================================================= '----- 商品詳細表示画面 '================================================= Sub Gamen_prod( ) StrSQL = "select * from prod where prodid = " & prodid Set ObjRS = Server.CreateObject("ADODB.Recordset") ObjRS.Open StrSQL, ObjConn,3,3 if ObjRS.EOF then Exit Sub cateid = ObjRS("cateid") prodname = ObjRS("prodname") price = ObjRS("price") img = ObjRS("img") newukubun = ObjRS("newukubun") cyosya = ObjRS("cyosya") setumei = ObjRS("setumei") pagesa = ObjRS("pagesa") hakouymd = ObjRS("hakouymd") if isnull(img) then img = "print.gif" end if if suuryou = "" then suuryou = 1 end if %>

商品の詳細表示を表示しています。購入する場合は数量(冊数)を入力後、「購入する」ボタンを押してください。

<% =prodname %> <% =newukubun %>
価格:<% = FormatCurrency(price) %> (税込)  著者:<% =cyosya %>  <% =pagesa %>  発刊日:<% =hakouymd %>
 数量
<% =setumei %>
   商品検索画面へ
<% ObjRS.Close Set ObjRS = Nothing End Sub '================================================= '----- カート表示画面 '================================================= Sub Gamen_dispcart( ) If not isnumeric(suuryou) Then Response.Write "

数量には数値を入力してください" Exit Sub End If if kbn = "add" or kbn = "del" then Call Update_item end if %>

現在のカートの中身

<% Call DispCart %> <% End Sub '================================================= '----- 処理完了画面 '================================================= Sub Gamen_kan( ) Dim mailbody Dim i Dim cartitem Dim cartname Dim total Dim kingaku '注文メール送信 mailbody = GenMailBody("注文") '本番用 Call SendMail(cMailSV,mail,cMailTo,"注文メール",mailbody) '社内テスト用 'Call nkSendMail(cMailSV,mail,cMailTo,"注文メール",mailbody) '注文確認メール送信 mailbody = GenMailBody("確認") '本番用 Call SendMail(cMailSV,cMailTo,mail,"注文確認",mailbody) '社内テスト用 'Call nkSendMail(cMailSV,cMailTo,mail,"注文確認",mailbody) %>

ご注文ありがとうございました

商品検索画面へ <% End Sub '================================================= '----- お客様情報入力チェック '================================================= Function EntChk() Dim StrErr StrErr = "" If name = "" Then Response.Write "

お名前が入力されていません" StrErr = "1" End If If yuubin = "" Then Response.Write "

郵便番号が入力されていません" StrErr = "1" End If If juusho = "" Then Response.Write "

住所が入力されていません" StrErr = "1" End If If tel = "" Then Response.Write "

電話番号が入力されていません" StrErr = "1" End If If mail = "" Then Response.Write "

メールアドレスが入力されていません" StrErr = "1" End If If StrErr = "1" Then EntChk = "NG" Else EntChk = "OK" End If End Function '=========================================== '----- メール送信内容作成 '=========================================== Function GenMailBody(mailkbn) Dim tempbody Dim i Dim cartitem Dim cartname Dim total Dim kingaku cartname = "item" & Session.SessionID cartitem = Split(Session(cartname),",") 'メール本文のヘッダ if mailkbn = "注文" then tempbody = tempbody & "Webから注文がありました。" & vbNewLine tempbody = tempbody & "注文受付:" & now & vbNewLine & vbNewLine else tempbody = tempbody & name & "様" & vbNewLine tempbody = tempbody & "ご注文ありがとうございます。" & vbNewLine tempbody = tempbody & cShopName & "からの注文確認メールです。" tempbody = tempbody & vbNewLine & vbNewLine end if 'メール本文の内容 tempbody = tempbody & String(50, "-") & vbNewLine tempbody = tempbody & "お名前:" & name & vbNewLine tempbody = tempbody & "電話番号:" & tel & vbNewLine tempbody = tempbody & "メールアドレス: " & mail & vbNewLine tempbody = tempbody & String(50, "-") & vbNewLine tempbody = tempbody & "【注文内容】" & vbNewLine for i = 0 to Ubound(cartitem) -1 step 2 StrSQL = "select * from prod where prodid= " & cartitem(i) Set ObjRS = Server.CreateObject("ADODB.Recordset") ObjRS.Open StrSQL, ObjConn,3,3 kingaku = ObjRS("price") * cartitem(i+1) tempbody = tempbody & ObjRS("prodname") & _ "(" & FormatCurrency(ObjRS("price")) & _ " 数量:" & cartitem(i+1) & " " & _ FormatCurrency(kingaku) & ")" & vbNewLine total = total + kingaku next ObjRS.Close Set ObjRS = Nothing tempbody = tempbody & String(50, "=") & vbNewLine tempbody = tempbody & "合計金額(税込):" & FormatCurrency(total) & vbNewLine tempbody = tempbody & String(50, "=") & vbNewLine tempbody = tempbody & "" & vbNewLine tempbody = tempbody & String(50, "-") & vbNewLine tempbody = tempbody & "【お届け先】" & vbNewLine tempbody = tempbody & "郵便番号:" & yuubin & vbNewLine tempbody = tempbody & "住所:" & juusho & vbNewLine tempbody = tempbody & String(50, "-") & vbNewLine & vbNewLine 'メール本文のフッタ if mailkbn = "確認" then tempbody = tempbody & String(50, "=") & vbNewLine tempbody = tempbody & "何かございましたらご連絡ください。" & vbNewLine tempbody = tempbody & cShopName & "  " & cMailTo & vbNewLine tempbody = tempbody & "注文受付:" & now & vbNewLine tempbody = tempbody & String(50, "=") & vbNewLine end if GenMailBody = tempbody End Function '=========================================== '----- メール送信 '=========================================== Sub SendMail(msv,mfrom,mto,msub,mbody) Dim ObjBasp Dim rc if mfrom = "" or mto = "" then Exit Sub 'Basp21でメールを送信します。 Set ObjBasp = Server.CreateObject("basp21pro") ObjBasp.Env = "IUSR_MACHINE:" & Request.ServerVariables("REMOTE_ADDR") ObjBasp.mailfrom = "tosyo@nichizeiwest.com" '送信元のメールアドレス 'ObjBasp.mailfrom = "esaki@nichizeiwest.com" '送信元のメールアドレス 'rc = ObjBasp.SendMail(msv,mto,mfrom,msub,mbody) rc = ObjBasp.SendMail(mto,msub,mbody) If rc <> 1 Then Response.Write "メール送信に失敗しました" & rc End If Set ObjBasp = Nothing 'セッションオブジェクトを破棄します。 Session.Abandon End Sub '=========================================== '----- 社内テストメール送信 '=========================================== Sub nkSendMail(msv,mfrom,mto,msub,mbody) Dim ObjBasp Dim rc if mfrom = "" or mto = "" then Exit Sub 'Basp21でメールを送信します。 Set ObjBasp = Server.CreateObject("basp21") rc = ObjBasp.SendMail(msv,mto,mfrom,msub,mbody,"") If rc <> "" Then Response.Write "メール送信に失敗しました" & rc End If Set ObjBasp = Nothing 'セッションオブジェクトを破棄します。 Session.Abandon End Sub '=========================================== '----- カテゴリ表示 '=========================================== Sub DispCate( ) StrSQL = "select * from cate" Set ObjRS = Server.CreateObject("ADODB.Recordset") ObjRS.Open StrSQL, ObjConn,3,3 'カテゴリ表示 Do Until ObjRS.EOF %>

カートは空です" Response.Write "

商品検索画面へ" else cartitem = Split(Session(cartname),",") %> <% if act = "dispcart" then %> <% else %> <% end if %> <% for i = 0 to Ubound(cartitem) -1 step 2 StrSQL = "select * from prod where prodid= " & cartitem(i) Set ObjRS = Server.CreateObject("ADODB.Recordset") ObjRS.Open StrSQL, ObjConn,3,3 prodname = ObjRS("prodname") price = ObjRS("price") suuryou = cartitem(i+1) kingaku = price * suuryou %> <% if act = "dispcart" then %> <% end if %> <% if act = "dispcart" then %> <% end if %> <% total = total + kingaku next ObjRS.Close Set ObjRS = Nothing %> <% if act = "dispcart" then %> <% else %> <% end if %> <% if act = "dispcart" then %> <% end if %>
商品名 数量商品名 数量金額
<% = prodname %> <% = suuryou %>
<% = FormatCurrency(kingaku) %>
  合計(税込)  合計(税込)<% = FormatCurrency(total) %>
商品検索画面へ(買い物を続ける)
<% end if End Sub '================================================= '----- ページナビゲーション表示 '================================================= Sub DispPageNav() Dim pp,np,tmpsql pp = page - 1 np = page + 1 '== cateid == if cateid <> "" then tmpsql = tmpsql & "&cateid=" & Server.URLEncode(cateid) end if '== keyword == if keyword <> "" then tmpsql = tmpsql & "&keyword=" & Server.URLEncode(keyword) end if %>

<% if page > 1 then %> <前 <% end if %> <% if page < ObjRS.PageCount then %> 次>

<% end if %> <% End Sub '================================================= '----- カートの中身を更新 '================================================= Sub Update_item() Dim i Dim cartitem Dim cartitemnew Dim cartname Dim updflg cartname = "item" & Session.SessionID 'カートに追加/変更する if kbn = "add" then if Session(cartname) = "" then Session(cartname) = prodid & "," & suuryou & "," else cartitem = Split(Session(cartname),",") updflg = false for i = 0 to Ubound(cartitem) -1 step 2 if prodid = cartitem(i) then cartitem(i+1) = suuryou updflg = true end if next if updflg = false then Session(cartname) = Session(cartname) & _ prodid & "," & suuryou & "," else Session(cartname) = Join(cartitem, ",") end if end if end if 'カートから削除する if kbn = "del" then if Session(cartname) <> "" then cartitem = Split(Session(cartname),",") Session(cartname) = "" for i = 0 to Ubound(cartitem) -1 step 2 if prodid <> cartitem(i) then Session(cartname) = Session(cartname) & _ cartitem(i) & "," & cartitem(i+1) & "," end if next end if end if End Sub '================================================= '----- DB接続 '================================================= Sub ConnDB() Set ObjConn = Server.CreateObject("ADODB.Connection") ObjConn.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & _ Server.Mappath("Tosyo.mdb") End Sub '================================================= '----- DB閉じる '================================================= Sub CloseDB() ObjConn.Close Set ObjConn = Nothing End Sub %>