<% 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 Sample Sample = Request("Sample") Dim Query Dim Content Dim Content2 Dim Cnt 'ショップ情報取得 Dim LoginID Dim Password Dim Meisho Dim Jigyosha Dim Gakko Dim Postal Dim ToDoFuKen Dim Address Dim TEL Dim FAX Dim Biko Dim MailAddr Dim ShopAddr Dim OrderAddr Dim Henpin Dim FuryoHason Dim OrderLimit Dim Etc Dim Sekininsha Dim TimeTable Dim OrderBiko Dim OrderMes Dim Publish Dim ActName Dim OrderRegion If Sample = "1" Then Meisho = "商高ショップ" Jigyosha = "システム・フューチャー株式会社" Postal = "124-0022" ToDoFuKen = "13" Address = "東京都台東区松が谷3-5-8高山ビル3F" TEL = "03-5828-1031" FAX = "03-5828-1034" Biko = "" MailAddr = "sfc-inf@sfc-jpn.co.jp" ShopAddr = "sfc-inf@sfc-jpn.co.jp" OrderAddr = "sfc-inf@sfc-jpn.co.jp" OrderRegion = "" Sekininsha = "福島 茂美" TimeTable = "営業時間　9：00〜17：00（日・祝・年末年始を除く）" Henpin = "●商品の交換・返品のご連絡は、商品到着後8日以内にお願いいたします。" & vbCrLf & "●お客様の都合による返品の場合は、返送料はお客様負担でお願いいたします。" & vbCrLf & "また、お届けの際に送料をいただいている場合、送料の返金はいたしかねます。" FuryoHason = "●万一、商品不良または破損等がありましたら、大変お手数ではございますが、商品到着後6日以内にお問合せフォームまたはメールにてご連絡ください。" & vbCrLf & "●配送途中の汚損や不良品、ご注文と異なった商品が届いた場合等の理由による返送料のお客様負担はございません。" OrderLimit = "注文確定日より10営業日。" Etc = "商品の発送は、ご注文を承ってから3〜5日以内に発送いたします。" & vbCrLf & "地域により多少の遅れがございます。" OrderBiko = "注文を送信された時点では注文は確定しません。注文確認後に送料等を含めた代金及び入金先を返信いたしますので、ご確認の上で代金をご入金ください。" OrderMes = "この度は【ショップ商高】をご利用いただきありがとうございました。" & vbCrLf & "全国○○評会において「二年連続日本一」、モンドセレクションで「最高賞・金賞」を受賞した「○○」です。" & vbCrLf & "私たち○○高生も自信を持ってお薦めします。" & vbCrLf & "是非、ご賞味ください。またのご利用を、お待ちしております。" Else Set Content = QueryGetShopAdmin(GB_ShopAdmin, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then LoginID = "" & Content.Fields("ログインID") Password = "" & Content.Fields("パスワード") Gakko = "" & Content.Fields("学校名") Meisho = "" & Content.Fields("名称") Jigyosha = "" & Content.Fields("事業者名") Postal = "" & Content.Fields("郵便番号") ToDoFuKen = "" & Content.Fields("都道府県CD") Address = "" & Content.Fields("住所") TEL = "" & Content.Fields("TEL") FAX = "" & Content.Fields("FAX") Biko = Replace("" & Content.Fields("備考"), "
", vbCrLf) MailAddr = "" & Content.Fields("メールアドレス") ShopAddr = "" & Content.Fields("店舗メールアドレス") OrderAddr = "" & Content.Fields("受注メールアドレス") OrderRegion = "" & Content.Fields("対象都道府県") If OrderRegion <> "" Then OrderRegion = "," & OrderRegion & "," End If Sekininsha = "" & Content.Fields("責任者") TimeTable = Replace("" & Content.Fields("営業時間等"), "
", vbCrLf) Henpin = Replace("" & Content.Fields("返品条件等"), "
", vbCrLf) FuryoHason = Replace("" & Content.Fields("不良破損"), "
", vbCrLf) OrderLimit = Replace("" & Content.Fields("注文有効期限"), "
", vbCrLf) Etc = Replace("" & Content.Fields("その他条件"), "
", vbCrLf) OrderBiko = Replace("" & Content.Fields("注文画面補足"), "
", vbCrLf) OrderMes = Replace("" & Content.Fields("受注メッセージ"), "
", vbCrLf) Publish = "" & Content.Fields("公開フラグ") ActName = Meisho If ActName = "" Then ActName = Gakko End If End If End If '学校モール存在チェック（文言トグルのため） Dim TmpGakkoCD If InStr(LoginID, "-") > 0 Then Dim TmpGakkoCDAry TmpGakkoCDAry = Split(LoginID, "-") TmpGakkoCD = TmpGakkoCDAry(0) Query = "" Query = Query & " " Query = Query & " SELECT * " Query = Query & " FROM TM学校 " Query = Query & " WHERE 学校CD = '" & TmpGakkoCD & "' " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Content.BOF Or Content.EOF Then TmpGakkoCD = "" End If End If %>
<% If Sample <> "1" Then %> <% 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 & "';") %>
<% If Sample <> "1" Then %> <% If LocalMode <> "1" Then %> <% Else %> <% End If %> <% End If %> <% If LocalMode <> "1" Then %> <% Else %> <% End If %>
checked<% End If %> onChange="PublishCheck();"> ショップを公開する
公開するとインターネットに公開され、不特定多数が閲覧できる状態になります。
<% If TmpGakkoCD <> "" Then %> （学校モールが非公開であっても、全国はすねすにはショップが公開されます）
<% End If %> 非公開状態での準備段階においては絶対に公開しないでください。
<% = Spacer(1, 7) %>
ログインID  
<% = Spacer(1, 5) %>
パスワード  
<% = Spacer(1, 5) %>
連絡先メールアドレス   ※公開されません
<% = Spacer(1, 5) %>
ショップ名称  
<% = Spacer(1, 5) %>
受注メールアドレス <% If LocalMode <> "1" Then %>   ※公開されません <% Else %>   <% End If %>
<% = Spacer(1, 5) %>
事業者名  
<% = Spacer(1, 5) %>
郵便番号  
<% = Spacer(1, 5) %>
住所  <% = HTMLToDoFuKenSelect("", "", ToDoFuKen, "select14", "") %>
<% = Spacer(1, 5) %>
TEL  
<% = Spacer(1, 5) %>
FAX  
<% = Spacer(1, 5) %>
責任者氏名  
<% = Spacer(1, 5) %>
お問合せメールアドレス <% If LocalMode <> "1" Then %>   <% Else %>   <% End If %>
<% If Sample <> "1" Then %> <% = ActionButton3Image("SampleBtn", "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", "window.open('" & HomeAliasSL & "shopbasic.asp?ActShopID=" & ActShopID & "&Sample=1', 'SampleWindow');") %> <% End If %> <% If Sample <> "1" Then %> <% End If %>
<% = Spacer(1, 7) %>
受注対象都道府県 [全選択/全解除]
<% Query = "" Query = Query & " " Query = Query & " SELECT TM都道府県.* " Query = Query & " FROM TM都道府県 " Query = Query & " WHERE TM都道府県.都道府県CD >= 1 " Query = Query & " AND TM都道府県.都道府県CD <= 47 " Query = Query & " ORDER BY TM都道府県.都道府県CD " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Do While Not(Content.BOF Or Content.EOF) Response.Write(" 0 Then Response.Write(" checked") End If Response.Write(">" & vbCrLf) Content.MoveNext Loop %>
<% = Spacer(1, 7) %>
営業時間・問合せ受付時間・休業日等
<% = Spacer(1, 5) %>
返品に関わる条件
<% = Spacer(1, 5) %>
不良品・破損時の対応
<% = Spacer(1, 5) %>
ご注文の有効期限　※誤った注文などを破棄するための期限を設けましょう。
<% = Spacer(1, 5) %>
その他販売条件
<% = Spacer(1, 5) %>
注文画面補足　※注文画面に表示される補足メッセージです。
<% = Spacer(1, 5) %>
受注メッセージ　※注文者に送信される自動応答メールに付加されます。
<% = Spacer(1, 5) %>
備考　※この項目は公開されません。メモ書きなどにお使いください。
<% = Spacer(1, 5) %>
<% = 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", "SubmitCheck();") %>
<% End Sub %>