<% main() Sub main() If Not(InternetCheck()) Then Exit Sub End If ' If Not(VisitorCheck()) Then ' Exit Sub ' End If If Not(ShopAdminCheck()) Then Exit Sub End If 'Response.Write(GB_ShopAdmin) 'Exit Sub Dim ActShopID ActShopID = Request("ActShopID") If LCase(ActShopID) <> LCase(GB_ShopAdmin) Then Response.Write("別のウィンドウまたは別のタブページで現在と異なるIDでログインしました。
" & vbCrLf) Response.Write("同一PC上で複数のIDでログインすることはできません。
" & vbCrLf) Response.Write("
" & vbCrLf) Response.Write("戻る" & vbCrLf) Exit Sub End If %> <% Dim Query Dim Content Dim Content2 Dim Cnt 'ショップ情報取得 Dim HaisouFlg(4) Dim HaisouMei(4) Dim HaisouSoryo(4) Dim Haisou(4) Dim KessaiFlg(3) Dim KessaiMei(3) Dim Kessai(3) Dim DaibikiFlg Dim DaibikiKijun(7) Dim DaibikiTesuryo(7) Dim DaibikiKijunFlg Dim ActName Set Content = QueryGetShopAdmin(GB_ShopAdmin, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then For Cnt = 1 To 4 HaisouFlg(Cnt) = "" & Content.Fields("配送方法公開" & Cnt) HaisouMei(Cnt) = "" & Content.Fields("配送方法名称" & Cnt) HaisouSoryo(Cnt) = "" & Content.Fields("配送方法送料" & Cnt) If HaisouSoryo(Cnt) = "" Then HaisouSoryo(Cnt) = "0" End If Haisou(Cnt) = Replace("" & Content.Fields("配送方法" & Cnt), "
", vbCrLf) Next For Cnt = 1 To 3 KessaiFlg(Cnt) = "" & Content.Fields("決済方法公開" & Cnt) KessaiMei(Cnt) = "" & Content.Fields("決済方法名称" & Cnt) Kessai(Cnt) = Replace("" & Content.Fields("決済方法" & Cnt), "
", vbCrLf) Next DaibikiFlg = "" & Content.Fields("代金引換公開") DaibikiKijunFlg = "" & Content.Fields("代金引換算出基準") For Cnt = 1 To 7 DaibikiKijun(Cnt) = "" & Content.Fields("代金引換基準" & Cnt) DaibikiTesuryo(Cnt) = "" & Content.Fields("代金引換手数料" & Cnt) Next ActName = "" & Content.Fields("名称") If ActName = "" Then ActName = "" & Content.Fields("学校名") End If End If %>

[ <% = ActName %> ] のショップ管理

<% = Spacer(1, 10) %>

決済方法・配送方法の管理

<% = Spacer(7, 1) %>

<% = ActionButton3Image("MenuBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 112, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "管理メニューに戻る", "tx1214w", "center", "location.href='" & HomeAliasSL & "shopadminmenu.asp';") %>

<% = Spacer(7, 1) %>

<% = ActionButton3Image("LogoutBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 64, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "ログアウト", "tx1214w", "center", "location.href='" & HomeAliasSL & "?Logout=1';") %>

<% = Spacer(7, 1) %>

<% = ActionButton3Image("ReturnBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 76, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "モールに戻る", "tx1214w", "center", "location.href='" & HomeAliasSL & "';") %>

<% For Cnt = 1 To 7 %> <% Next %> <% For Cnt = 1 To 3 %> <% Next %> <% For Cnt = 1 To 4 %> <% Next %>

決済方法0 　 [ 代金引換 ] 　 checked<% End If %>> この決済方法を公開する

<% = Spacer(1, 3) %>

代金引換額円未満の手数料円

checked<% End If %>> 代金引換額の算出基準に手数料を含める
※代金引換額の算出基準に手数料を含めない場合はチェックを外してください。

一般的には「代金引換手数料を含めた全ての集金額」が代金引換額となります。
その場合、たとえば「代金引換額10,000円未満の手数料が324円」なら
手数料を含まない実質的な代金は 10,000 - 324 = 9,676円未満となります。

<% = Spacer(1, 8) %>

決済方法<% = Cnt %> 　名称　 checked<% End If %>> この決済方法を公開する

<% = Spacer(1, 3) %>

<% = Spacer(1, 7) %>

<% = Spacer(1, 9) %>

配送方法<% = Cnt %> 　名称　 checked<% End If %>> この配送方法を公開する

<% = Spacer(1, 3) %>

配送方法<% = Cnt %>の送料　 checked<% End If %>>無料　 checked<% End If %>>地域別　 checked<% End If %>>全国一律 <% Dim ZenkokuSoryo Set Content = QueryGetShopSoryo(GB_ShopAdmin, Cnt, "Pref", True, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then If Content.Fields("都道府県CD") = 0 Then ZenkokuSoryo = Content.Fields("送料") Content.MoveNext End If End If %> 　全国一律の送料

<% = Spacer(1, 3) %>

<% Dim CellCnt CellCnt = 0 Do While Not(Content.BOF Or Content.EOF) If (CellCnt + 6) Mod 6 = 0 And CellCnt > 0 Then %> <% End If %> <% CellCnt = CellCnt + 1 Content.MoveNext Loop %>

<% = Spacer(1, 3) %>
<% = Right("　" & Content.Fields("表示名称"), 3) %>	" value="<% = Content.Fields("送料") %>" style="width:36px;" class="tb1416r" maxlength="5" onKeyup="this.value=this.value.replace(/[^0-9]+/,'');" onBlur="this.value=this.value.replace(/[^0-9]+/,'');">	<% = Spacer(6, 1) %>

<% = Spacer(1, 7) %>

<% = ActionButton3Image("SubmitBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 72, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "更　新", "tx1416w", "center", "form1.submit();") %>

<% End Sub %>