<%
Function AddCm(Num)
Dim ln ' As Integer
Dim Pm ' As String
Dim Pm2 ' As String
Dim Cnt ' As Integer
ln = Fix(Num / 1000)
If ln > 0 Then
Select Case Len(CStr(ln))
Case 1,2,3 ' 千
Pm = Left(CStr(Num),Len(CStr(ln)))
Pm = Pm & "," & Right(CStr(Num),3)
Case 4,5,6 ' 百万
Pm = Left(CStr(Num),Len(CStr(ln))-3)
Pm2 = Mid(CStr(Num),Len(CStr(ln))-2,3)
Pm = Pm & "," & Pm2 & "," & Right(CStr(Num),3)
End Select
Else
Pm = CStr(Num)
End If
AddCm = Pm
End Function
%>
<%
' 文字コードの指定
Session.CodePage = 932
Response.Charset = "Shift_JIS"
mode = Request.QueryString("mode")
%>
[ HARADE Online-Shop ]
<%
' ***********************************
' メイン処理
' ***********************************
' カーゴ内容作成＆取得
If IsObject(Session("cart")) Then
Set DictCart = Session("Cart")
Set DictName = Session("Name")
Set DictPrice = Session("Price")
Set DictCount = Session("Count")
Else
Set DictCart = Server.CreateObject("Scripting.Dictionary")
Set DictName = Server.CreateObject("Scripting.Dictionary")
Set DictPrice = Server.CreateObject("Scripting.Dictionary")
Set DictCount = Server.CreateObject("Scripting.Dictionary")
End If
Select Case mode
Case "buy"
CargoDataGet()
ShowBuy1View()
Case "buy2"
ShowBuy2View()
Case "buy3"
ShowBuy3View()
Case "buy4"
ShowBuy4View()
Case "clear"
CargoDateClear()
ShowTopView()
Case "ADel"
ItemAllDel()
Case "1Del"
ItemOneDel()
Case Else
ShowTopView()
End Select
' セッション情報受け渡し
Set Session("Cart") = DictCart
Set Session("Name") = DictName
Set Session("Price") = DictPrice
Set Session("Count") = DictCount
%>
<%
' **************************************
' CargoDateClear - カートアイテム除去 -
' **************************************
Sub CargoDateClear()
DictCart.RemoveAll
DictCount.RemoveAll
DictName.RemoveAll
DictPrice.RemoveAll
End Sub
%>
<%
' **************************************
' ItemAllDel - カートアイテム除去 -
' **************************************
Sub ItemAllDel()
ItemID = CInt(Request.QueryString("id"))
DictCart.Remove(ItemID)
DictCount.Remove(ItemID)
DictName.Remove(ItemID)
DictPrice.Remove(ItemID)
If DictCart.Count <> 0 Then
ShowBuy1View()
Else
ShowTopView()
End If
End Sub
%>
<%
' **************************************
' ItemOneDel - カートアイテム除去 -
' **************************************
Sub ItemOneDel()
ItemID = CInt(Request.QueryString("id"))
If CInt(DictCount(ItemID)) > 1 Then
DictCount(ItemID) = DictCount(ItemID) - 1
Else
DictCart.Remove(ItemID)
DictCount.Remove(ItemID)
DictName.Remove(ItemID)
DictPrice.Remove(ItemID)
End If
If DictCart.Count <> 0 Then
ShowBuy1View()
Else
ShowTopView()
End If
End Sub
%>
<%
' **************************************
' CargoDataGet - カートアイテム取得 -
' **************************************
Sub CargoDataGet()
ItemID = CInt(Request.QueryString("id"))
ItemName = Request.QueryString("Name")
ItemPrice = Request.Form("price")
ItemCount = Request.Form("cnt")
If DictCart.Exists(ItemID) Then
lp = DictCount(ItemID)
DictCount(ItemID) = CInt(lp) + CInt(ItemCount)
Else
DictCart.Add ItemID, ItemID
DictName.Add ItemID, ItemName
DictPrice.Add ItemID, ItemPrice
DictCount.Add ItemID, ItemCount
End If
End Sub
%>
<%
' **************************************
' ShowBuy4View - 購入画面表示 -
' **************************************
Sub ShowBuy4View()
' 原さんに送信
tb = Request.TotalBytes
Set basp = Server.CreateObject("basp21")
host = "itech-ss.co.jp"
fromAddr = "kou@itech-ss.co.jp"
fromName = "[HARADEN]オンラインショップ"
mailFrom = fromName & "<" & fromAddr & ">"
mailTo = "hara@itech-ss.co.jp"
body = Request.Form("Name") & " 様" & chr(13) & chr(10)
body = body & chr(13) & chr(10)
body = body & "お買いあげ誠にありがとうございます。" & chr(13) & chr(10)
body = body & "本日『佐川急便』にて商品出荷しました。" & chr(13) & chr(10)
body = body & "伝票番号は です。" & chr(13) & chr(10)
body = body & chr(13) & chr(10)
body = body & "こちらでお荷物の状況を確認できます。" & chr(13) & chr(10)
body = body & "http://k2k.sagawa-exp.co.jp/cgi-bin/SagawaWeb.pcgi" & chr(13) & chr(10)
body = body & chr(13) & chr(10)
body = body & "以上宜しくお願いします。" & chr(13) & chr(10)
body = body & chr(13) & chr(10)
body = body & chr(13) & chr(10)
body = body & chr(13) & chr(10)
body = body & chr(13) & chr(10)
body = body & chr(13) & chr(10)
body = body & chr(13) & chr(10)
body = body & Request.Form("mail")
rc = basp.SendMail(host, mailTo, mailFrom, subject, body, fpath)
Set basp = Nothing
' 原さん携帯に送信
tb = Request.TotalBytes
Set basp = Server.CreateObject("basp21")
host = "itech-ss.co.jp"
fromAddr = "kou@itech-ss.co.jp"
fromName = "[HARADEN]"
mailFrom = fromName & "<" & fromAddr & ">"
mailTo = "lancer.evolution.4-7777@docomo.ne.jp"
subject = "受注"
body = "HARADEN.jpより受注有"
rc = basp.SendMail(host, mailTo, mailFrom, subject, body, fpath)
Set basp = Nothing
' 原さんに送信
tb = Request.TotalBytes
Set basp = Server.CreateObject("basp21")
host = "itech-ss.co.jp"
fromAddr = "kou@itech-ss.co.jp"
fromName = "[HARADEN]オンラインショップ"
mailFrom = fromName & "<" & fromAddr & ">"
mailTo = "hara@itech-ss.co.jp"
subject = "受注"
body = Request.Form("Name") & " 様"
body = body & "より下記の商品をご注文いただきました。" & chr(13) & chr(10)
body = body & chr(13) & chr(10)
body = body & "[商品名] [価格] [個数] [合計]" & chr(13) & chr(10)
For Each key In DictCart
' 税別価格の算出
ItemSPrice = DictCount(key) * DictPrice(key)
Syoukei = ItemSPrice + Syoukei
body = body & DictName(key) & " " & AddCm(DictPrice(key)) & " " & DictCount(key) & " " & ItemSPrice & chr(13) & chr(10)
Next
TAX = Syoukei * 0.05
body = body & "-----------------------------------------------------" & chr(13) & chr(10)
body = body & "小 計 " & Syoukei & chr(13) & chr(10)
body = body & "消費税 " & TAX & chr(13) & chr(10)
body = body & "送 料 " & 600 & chr(13) & chr(10)
Goukei = Syoukei + TAX + 600
If Request.Form("pay") = "代金引換" Then
body = body & "代引手数料 " & 315 & chr(13) & chr(10)
Goukei = Goukei + 315
End If
body = body & "合 計 " & Goukei & chr(13) & chr(10)
body = body & chr(13) & chr(10)
body = body & "お支払い方法：" & Request.Form("pay") & chr(13) & chr(10)
body = body & chr(13) & chr(10)
body = body & "お客様情報" & chr(13) & chr(10)
body = body & "名前：" & Request.Form("Name") & chr(13) & chr(10)
body = body & "ふりがな：" & Request.Form("Furigana") & chr(13) & chr(10)
body = body & "電話番号：" & Request.Form("TEL") & chr(13) & chr(10)
body = body & "郵便番号：" & Request.Form("Zip") & chr(13) & chr(10)
body = body & "都道府県：" & Request.Form("tdhk") & chr(13) & chr(10)
body = body & "住所：" & Request.Form("jusyo1") & " " & Request.Form("jusyo2") & chr(13) & chr(10)
body = body & "メール：" & Request.Form("mail") & chr(13) & chr(10)
body = body & "電話番号：" & Request.Form("TEL") & chr(13) & chr(10)
body = body & "支払方法：" & Request.Form("pay") & chr(13) & chr(10)
rc = basp.SendMail(host, mailTo, mailFrom, subject, body, fpath)
Set basp = Nothing
' ------------------------------------------------------
' お客様へ送信
tb = Request.TotalBytes
Set basp = Server.CreateObject("basp21")
host = "itech-ss.co.jp"
fromAddr = "kou@itech-ss.co.jp"
fromName = "[HARADEN]オンラインショップ"
mailFrom = fromName & "<" & fromAddr & ">"
mailTo = "hara@itech-ss.co.jp"
subject = "[HARADEN-オンラインショップ]ご注文有り難う御座いました"
body = Request.Form("Name") & " 様"
body = body & "平素よりハラデンをご愛顧いただきまして" & chr(13) & chr(10)
body = body & "誠にありがとうございます。" & chr(13) & chr(10)
body = body & "お客様より下記の商品をご注文いただきました。" & chr(13) & chr(10)
body = body & chr(13) & chr(10)
body = body & "[商品名] [価格] [個数] [合計]" & chr(13) & chr(10)
For Each key In DictCart
' 税別価格の算出
ItemSPrice = DictCount(key) * DictPrice(key)
Syoukei = ItemSPrice + Syoukei
body = body & DictName(key) & " " & AddCm(DictPrice(key)) & " " & DictCount(key) & " " & ItemSPrice & chr(13) & chr(10)
Next
TAX = Syoukei * 0.05
body = body & "-----------------------------------------------------" & chr(13) & chr(10)
body = body & "小 計 " & Syoukei & chr(13) & chr(10)
body = body & "消費税 " & TAX & chr(13) & chr(10)
body = body & "送 料 " & 600 & chr(13) & chr(10)
Goukei = Syoukei + TAX + 600
If Request.Form("pay") = "代金引換" Then
body = body & "代引手数料 " & 315 & chr(13) & chr(10)
Goukei = Goukei + 315
End If
body = body & "合 計 " & Goukei & chr(13) & chr(10)
body = body & chr(13) & chr(10)
body = body & "お支払い方法：" & Request.Form("pay") & chr(13) & chr(10)
If Request.Form("pay") = "銀行振込" Then
body = body & "振込先口座：三井住友銀行 江坂支店" & chr(13) & chr(10)
body = body & " （普）１４４２９８２" & chr(13) & chr(10)
End If
body = body & "−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−" & chr(13) & chr(10)
body = body & "ご注文に関するお問い合わせ等ありましたら下記までご連絡願います。" & chr(13) & chr(10)
body = body & "TEL:06-6392-0243" & chr(13) & chr(10)
body = body & "E-MAIL:info@haraden.jp"
body = body & chr(13) & chr(10) & chr(13) & chr(10) & chr(13) & chr(10)
body = body & "お客様メールアドレス：" & Request.Form("mail")
rc = basp.SendMail(host, mailTo, mailFrom, subject, body, fpath)
Set basp = Nothing
Session.Abandon
%>
<% = Request.Form("Name") %>(<% = Request.Form("mail") %>) 様、ご注文有り難う御座いました。
早速では御座いますが、お客様メールアドレスに商品購入に関するメールを送信致します。
また、ご不明な点などが御座いましたら電話・メールにてご連絡下さい。
今後とも、ハラデン-オンラインショップのご利用をスタッフ一同心よりお待ちしております。
戻 る
 |
 |
| 商 品 名 |
単 価 |
個 数 |
小 計 |
<%
For Each key In DictCart
Response.Write ""
Response.Write "| " & DictName(key) & " | "
Response.Write "\ " & AddCm(DictPrice(key)) & " | "
Response.Write "" & CInt(DictCount(key)) & " | "
' 税別価格の算出
ItemSPrice = DictCount(key) * DictPrice(key)
Syoukei = ItemSPrice + Syoukei
Response.Write "\ " & AddCm(ItemSPrice) & " | "
Response.Write "
"
Next
' 消費税の算出
TAX = Fix(Syoukei * 0.05)
Response.Write ""
Response.Write "| 小 計 | "
Response.Write "\ " & AddCm(Syoukei) & " | "
Response.Write "
"
Response.Write ""
Response.Write "| 消費税 | "
Response.Write "\ " & AddCm(TAX) & " | "
Response.Write "
"
Response.Write ""
Response.Write "| 送 料 | "
Response.Write "\ 600 | "
Response.Write "
"
If Request.Form("pay") = 1 Then
Response.Write ""
Response.Write "| 代引手数料(税込) | "
Response.Write "\ 315 | "
Response.Write "
"
Response.Write ""
End If
Response.Write "| 合 計 | "
If Request.Form("pay") = 1 Then
Response.Write "\ " & AddCm(Syoukei + TAX + 600 + 315) & " | "
Else
Response.Write "\ " & AddCm(Syoukei + TAX + 600) & " | "
End If
Response.Write "
"
%>
※ 離島の場合、送料は実費を請求致します。その際、メールにてご連絡差し上げます。
※ 銀行振込を選択された場合、振込手数料はお客様負担でお願い申し上げます。
<% End Sub %>
<%
' **************************************
' ShowBuy2View - 購入画面表示 -
' **************************************
Sub ShowBuy2View()
%>
| 商 品 名 |
単 価 |
個 数 |
小 計 |
<%
For Each key In DictCart
Response.Write ""
Response.Write "| " & DictName(key) & " | "
Response.Write "\ " & AddCm(DictPrice(key)) & " | "
Response.Write "" & CInt(DictCount(key)) & " | "
' 税別価格の算出
ItemSPrice = DictCount(key) * DictPrice(key)
Syoukei = ItemSPrice + Syoukei
Response.Write "\ " & AddCm(ItemSPrice) & " | "
Response.Write "
"
Next
' 消費税の算出
TAX = Fix(Syoukei * 0.05)
Response.Write ""
Response.Write "| 小 計 | "
Response.Write "\ " & AddCm(Syoukei) & " | "
Response.Write "
"
Response.Write ""
Response.Write "| 消費税 | "
Response.Write "\ " & AddCm(TAX) & " | "
Response.Write "
"
Response.Write ""
Response.Write "| 合 計 | "
Response.Write "\ " & AddCm(Syoukei + TAX) & " | "
Response.Write "
"
%>
<% End Sub %>
<%
' **************************************
' ShowBuy1View - 初期購入画面表示 -
' **************************************
Sub ShowBuy1View()
' Response.Write("
")
' Response.Write("ShowBuy1View:ItemName->" & DictName(1) & "
")
' Response.Write("ShowBuy1View:ItemCount->" & DictCount(1) & "
")
' Response.Write("ShowBuy1View:ItemPrice->" & DictPrice(1) & "
")
%>
|
|
| 商 品 名 |
単 価 |
個 数 |
小 計 |
削 除 |
<%
For Each key In DictCart
Response.Write ""
Response.Write "| " & DictName(key) & " | "
Response.Write "\ " & AddCm(DictPrice(key)) & " | "
Response.Write "" & CInt(DictCount(key)) & " | "
' 税別価格の算出
ItemSPrice = DictCount(key) * DictPrice(key)
Syoukei = ItemSPrice + Syoukei
Response.Write "\ " & AddCm(ItemSPrice) & " | "
Response.Write ""
Response.Write "１つ削除 "
Response.Write "全て削除"
Response.Write " | "
Response.Write "
"
Next
' 消費税の算出
TAX = Fix(Syoukei * 0.05)
Response.Write ""
Response.Write "| 小 計 | "
Response.Write "\ " & AddCm(Syoukei) & " | "
Response.Write ""
Response.Write "カゴを空にする"
Response.Write " | "
Response.Write "
"
Response.Write ""
Response.Write "| 消費税 | "
Response.Write "\ " & AddCm(TAX) & " | "
Response.Write "
"
Response.Write ""
Response.Write "| 合 計 | "
Response.Write "\ " & AddCm(Syoukei + TAX) & " | "
Response.Write "
"
%>
<% End Sub %>
<%
' **************************************
' ShowTopView - 初期ページ表示 -
' **************************************
Sub ShowTopView()
%>
|
|
| 阪神タイガース スタンドライト（阪神タイガース優勝記念！７７個限定販売） |
 |
<本体寸法>
セード部：Φ１６０mm、高さ１８０mm
ベース部：Φ１２０mm、高さ２５．５mm
全高：３０８ｍｍ
<仕様・特徴>
１．ランプ：ミニランプ４０Ｗ
２．本体色：ブラック （本体には“シリアルナンバー”を貼付）
３．カバー色：阪神タイガースのイメージカラーに基き
（１）白に黒縦縞→ユニホーム調（阪神タイガースロゴ入り）
（２）黄色（阪神タイガースロゴ入り）
４．スイッチ ： 中間スイッチ（コード間）→ スライド式
|
| 商品名 |
型 名 |
販売価格 |
|
| 阪神タイガース スタンドライト |
ＡＫＡ０１６４Ｙ：
セード白黒縦縞
（ユニホームイメージ） |
3,980 円 |
|
| 阪神タイガース スタンドライト（阪神タイガース優勝記念！７７個限定販売） |
 |
<本体寸法>
セード部：Φ１６０mm、高さ１８０mm
ベース部：Φ１２０mm、高さ２５．５mm
全高：３０８ｍｍ
<仕様・特徴>
１．ランプ：ミニランプ４０Ｗ
２．本体色：ブラック （本体には“シリアルナンバー”を貼付）
３．カバー色：阪神タイガースのイメージカラーに基き
（１）白に黒縦縞→ユニホーム調（阪神タイガースロゴ入り）
（２）黄色（阪神タイガースロゴ入り）
４．スイッチ ： 中間スイッチ（コード間）→ スライド式
|
| 商品名 |
型 名 |
販売価格 |
|
| 阪神タイガース スタンドライト |
ＡＫＡ０１６５Ｙ：セード黄色 |
3,980 円 |
|
| アストニッシュ（ホームページリニューアル記念！限定販売） |
 |
|
本当に汚れが良く落ちる
用途：
台所用、住宅用 磨き剤
レンジまわり
調理器具
お鍋類
タイル
バーベキューコンロ
窓ガラス
アルミサッシ
鏡
使用方法：
湿った布やスポンジに適量取ってやさしく磨き、
その後水で洗い流して下さい。
金属やガラス面は、光沢が出るように乾いた布で
磨いて下さい。
|
|
| 商品名 |
販売価格 |
|
| アストニッシュ５個パック |
2,000 円 |
|
<% End Sub %>
