<% If 0=1 Then Session("ECMallVisitorID") = "" Session("ECMallUserID") = "" Session("ECMallPassword") = "" Session("ECMallPracticeCD") = "" End If main() Sub main() 'インターネットアクセス拒否時に強制許可するフラグ If Request("permit") <> "" Then Session("ECMallPermit") = Request("permit") End If 'ショップ非公開時に強制表示するフラグ If Request("visible") <> "" Then Session("ECMallShopVisible") = Request("visible") End If '管理画面からの非公開モール強制表示（強制管理者＆強制表示） If Request("ForceSchoolAdmin") <> "" Then 'Response.Write(Request("ForceSchoolAdmin")) 'Exit Sub '管理者フラグ Session("ECMallSchoolAdmin") = Request("ForceSchoolAdmin") GB_SchoolAdmin = Session("ECMallSchoolAdmin") '強制表示フラグ Session("ECMallShopVisible") = GB_SchoolAdmin End If '管理画面からの非公開ショップ強制表示（同一サイト内遷移のため強制管理者は不要） If Request("ForceShopAdmin") <> "" Then 'Response.Write(Request("ForceShopAdmin")) 'Exit Sub '強制表示フラグ Session("ECMallShopVisible") = Request("ForceShopAdmin") End If '公開/ローカルモード強制 If Request("ForceLocalMode") <> "" Then 'ローカルモードフラグ Session("ECMallLocalMode") = Request("ForceLocalMode") LocalMode = Session("ECMallLocalMode") 'セッションを全てクリアする Session("ECMallSysAdmin") = "" GB_SysAdmin = Session("ECMallSysAdmin") Session("ECMallSchoolAdmin") = "" GB_SchoolAdmin = Session("ECMallSchoolAdmin") Session("ECMallShopAdmin") = "" GB_ShopAdmin = Session("ECMallShopAdmin") Session("ECMallVisitorID") = "" GB_VisitorID = Session("ECMallVisitorID") Session("ECMallUserID") = "" GB_UserID = Session("ECMallUserID") Session("ECMallPassword") = "" GB_Password = Session("ECMallPassword") Session("ECMallPracticeCD") = "" GB_PracticeCD = Session("ECMallPracticeCD") End If If Not(InternetCheck()) Then Exit Sub End If If Not(VisitorCheck()) Then Exit Sub End If 'Response.Write(GB_VisitorID) 'Exit Sub %> <% Dim fso Set fso = Server.CreateObject("Scripting.FileSystemObject") Dim ItemViewCnt ItemViewCnt = GB_ItemViewCnt '1ページの表示件数 Dim Page Page = Request("Page") If Page = "" Or Not(IsNumeric(Page)) Then Page = "0" End If Page = CInt(Page) Dim Shoplist Shoplist = Request("Shoplist") If Area = "0" Then 'データ補正 Query = " UPDATE TF商品 SET 地方CD = 0, 都道府県CD = 0 WHERE 地方CD IS NULL " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) End If Dim Search Search = Request("Search") Dim Order Order = Request("Order") If Order = "" Then '学校モール設定による初期ソート Order = "New" If MallItemSort = 1 Then Order = "Old" ElseIf MallItemSort = 2 Then Order = "Low" ElseIf MallItemSort = 3 Then Order = "High" End If End If Dim Query Dim Content Dim Content2 'ランダムバナー用 Dim RndBunnerNo Dim BunnerIDAry Dim BunnerUrlAry Dim BunnerSrcAry Dim BunnerAryCnt Dim BunnerCnt Dim BCnt 'ランダム姉妹はすねす用 Dim GakkoAryCnt Dim RndGakkoNo Dim GakkoHostAry Dim GakkoTitleAry Dim GCnt %> <% '左メニュー非表示定義 If GB_UserAgent = "PC" Then 'スマフォ非表示 If Mode <> "News" And Mode <> "Courtesy" And Mode <> "Recruit" And Mode <> "Link" And Mode <> "Guide" And Mode <> "Contact" And Mode <> "Agree" And Mode <> "Copyright" And Mode <> "Privacy" Then %> <% End If %> <% End If %>
<% = Spacer(1, 1) %>
<% = ActionButton3Image("GuideBtn", "images/shoplist_pl.png", "images/shoplist_pl_over.png", 4, "images/shoplist_pc.png", "images/shoplist_pc_over.png", 176, "images/shoplist_pr.png", "images/shoplist_pr_over.png", 4, 24, "ショッピングご利用方法", "tx1416", "center", "location.href='" & HomeAliasSL & "?Mode=Guide';") %>
<% = Spacer(1, 4) %>
<% If LCase(MallGakkoCD) <> "cuc" Then %> <% End If %> <% Dim DefFontSize DefFontSize = 14 Dim FontSize Query = " SELECT TMカテゴリ.* FROM TMカテゴリ ORDER BY TMカテゴリ.表示順 " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Do While Not(Content.BOF Or Content.EOF) If "" & Content.Fields("有効") = "1" Then FontSize = DefFontSize If "" & Content.Fields("文字サイズ") <> "" Then FontSize = FontSize + Content.Fields("文字サイズ") End If %> <% If "" & Content.Fields("カテゴリID") = Cat Then Query = "exec SPMサブカテゴリ取得 " & Content.Fields("カテゴリID") & "" Set Content2 = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Do While Not(Content2.BOF Or Content2.EOF) If "" & Content2.Fields("サブカテゴリ有効") = "1" Then FontSize = DefFontSize If "" & Content2.Fields("サブカテゴリ文字サイズ") <> "" Then FontSize = FontSize + Content2.Fields("サブカテゴリ文字サイズ") End If %> <% End If Content2.MoveNext Loop End If End If Content.MoveNext Loop %>
カテゴリでさがす
<% = ActionButton3Image("CategoryLast", "images/btn02g.png", "images/btn02o.png", 20, "images/spacer.gif", "images/spacer.gif", 160, "images/spacer.gif", "images/spacer.gif", 0, 20, "最後に選択したカテゴリ", "tx1416", "left", "location.href='" & HomeAliasSL & "?CatRet=1&Order=" & Order & "';") %>
<% = ActionButton3Image("CategoryKaihatsu", "images/btn02g.png", "images/btn02o.png", 20, "images/spacer.gif", "images/spacer.gif", 160, "images/spacer.gif", "images/spacer.gif", 0, 20, "生徒が開発した商品", "tx1416", "left", "location.href='" & HomeAliasSL & "?CatRet=2&Order=" & Order & "';") %>
<% If "" & Content.Fields("カテゴリID") = Cat And SubCat = "" Then %> <% = ActionButton3Image("Category" & Content.Fields("カテゴリID"), "images/btn02o.png", "images/btn02o.png", 20, "images/spacer.gif", "images/spacer.gif", 160, "images/spacer.gif", "images/spacer.gif", 0, 20, Content.Fields("名称"), "tx" & FontSize & (FontSize + 2), "left", "location.href='" & HomeAliasSL & "?Cat=" & Content.Fields("カテゴリID") & "&Order=" & Order & "';") %> <% Else %> <% = ActionButton3Image("Category" & Content.Fields("カテゴリID"), "images/btn02g.png", "images/btn02o.png", 20, "images/spacer.gif", "images/spacer.gif", 160, "images/spacer.gif", "images/spacer.gif", 0, 20, Content.Fields("名称"), "tx" & FontSize & (FontSize + 2), "left", "location.href='" & HomeAliasSL & "?Cat=" & Content.Fields("カテゴリID") & "&Order=" & Order & "';") %> <% End If %>
<% If "" & Content2.Fields("カテゴリID") = Cat And "" & Content2.Fields("サブカテゴリID") = SubCat Then %> <% = ActionButton3Image("Category" & Content2.Fields("カテゴリID") & "Sub" & Content2.Fields("サブカテゴリID"), "images/btn03o.png", "images/btn03o.png", 30, "images/spacer.gif", "images/spacer.gif", 150, "images/spacer.gif", "images/spacer.gif", 0, 20, Content2.Fields("サブカテゴリ名称"), "tx" & FontSize & (FontSize + 2), "left", "location.href='" & HomeAliasSL & "?Cat=" & Content2.Fields("カテゴリID") & "&SubCat=" & Content2.Fields("サブカテゴリID") & "&Order=" & Order & "';") %> <% Else %> <% = ActionButton3Image("Category" & Content2.Fields("カテゴリID") & "Sub" & Content2.Fields("サブカテゴリID"), "images/btn03g.png", "images/btn03o.png", 30, "images/spacer.gif", "images/spacer.gif", 150, "images/spacer.gif", "images/spacer.gif", 0, 20, Content2.Fields("サブカテゴリ名称"), "tx" & FontSize & (FontSize + 2), "left", "location.href='" & HomeAliasSL & "?Cat=" & Content2.Fields("カテゴリID") & "&SubCat=" & Content2.Fields("サブカテゴリID") & "&Order=" & Order & "';") %> <% End If %>
<% = Spacer(1, 4) %>
<% If 0=1 Then %> <% '地域でさがす機能は廃止 %>
<% Query = " SELECT * FROM TM地方 ORDER BY 地方CD " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Do While Not(Content.BOF Or Content.EOF) ' If "" & Content.Fields("有効") = "1" Then %> <% If "" & Content.Fields("地方CD") = Area Then Query = " SELECT * FROM TM都道府県 WHERE 地方CD = " & Area & " ORDER BY 都道府県CD " Set Content2 = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Do While Not(Content2.BOF Or Content2.EOF) ' If "" & Content2.Fields("サブカテゴリ有効") = "1" Then %> <% ' End If Content2.MoveNext Loop End If ' End If Content.MoveNext Loop %>
地域でさがす
<% If "" & Content.Fields("地方CD") = Area And Pref = "" Then %> <% = ActionButton3Image("Area" & Content.Fields("地方CD"), "images/btn02o.png", "images/btn02o.png", 20, "images/spacer.gif", "images/spacer.gif", 160, "images/spacer.gif", "images/spacer.gif", 0, 20, Content.Fields("名称"), "tx1416", "left", "location.href='" & HomeAliasSL & "?Area=" & Content.Fields("地方CD") & "&Order=" & Order & "';") %> <% Else %> <% = ActionButton3Image("Area" & Content.Fields("地方CD"), "images/btn02b.png", "images/btn02o.png", 20, "images/spacer.gif", "images/spacer.gif", 160, "images/spacer.gif", "images/spacer.gif", 0, 20, Content.Fields("名称"), "tx1416", "left", "location.href='" & HomeAliasSL & "?Area=" & Content.Fields("地方CD") & "&Order=" & Order & "';") %> <% End If %>
<% If "" & Content2.Fields("地方CD") = Area And "" & Content2.Fields("都道府県CD") = Pref Then %> <% = ActionButton3Image("Area" & Content2.Fields("地方CD") & "Pref" & Content2.Fields("都道府県CD"), "images/btn03o.png", "images/btn03o.png", 30, "images/spacer.gif", "images/spacer.gif", 150, "images/spacer.gif", "images/spacer.gif", 0, 20, Content2.Fields("表示名称"), "tx1517", "left", "location.href='" & HomeAliasSL & "?Area=" & Content2.Fields("地方CD") & "&Pref=" & Content2.Fields("都道府県CD") & "&Order=" & Order & "';") %> <% Else %> <% = ActionButton3Image("Area" & Content2.Fields("地方CD") & "Pref" & Content2.Fields("都道府県CD"), "images/btn03b.png", "images/btn03o.png", 30, "images/spacer.gif", "images/spacer.gif", 150, "images/spacer.gif", "images/spacer.gif", 0, 20, Content2.Fields("表示名称"), "tx1517", "left", "location.href='" & HomeAliasSL & "?Area=" & Content2.Fields("地方CD") & "&Pref=" & Content2.Fields("都道府県CD") & "&Order=" & Order & "';") %> <% End If %>
<% '地域でさがす機能は廃止 %> <% End If %> <% If 1=1 Then %> <% If LCase(MallGakkoCD) <> "cuc" And LocalMode <> "1" Then %> <% '姉妹はすねす %> <% '管理者セッションを別ホストに引き継ぐ Dim TmpQuery If "" & Session("ECMallShopVisible") <> "" Then If "" & TmpQuery <> "" Then TmpQuery = TmpQuery & "&" Else TmpQuery = TmpQuery & "?" End If TmpQuery = TmpQuery & "visible=" & Session("ECMallShopVisible") End If %>
<% If LCase(GB_HostName) <> "hsns" Then %> <% End If %> <% ReDim GakkoHostAry(0) ReDim GakkoTitleAry(0) Query = "" Query = Query & " SELECT TM学校.* " Query = Query & " FROM TM学校 " Query = Query & " WHERE TM学校.都道府県CD > 0 " Query = Query & " AND TM学校.ホスト名 <> '" & GB_HostName & "' " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Do While Not(Content.BOF Or Content.EOF) If "" & Content.Fields("公開") = "1" Or LCase(Content.Fields("学校CD")) = LCase(Session("ECMallShopVisible")) Then ReDim PreServe GakkoHostAry(UBound(GakkoHostAry) + 1) '配列+1 ReDim PreServe GakkoTitleAry(UBound(GakkoTitleAry) + 1) '配列+1 GakkoHostAry(UBound(GakkoHostAry)) = Content.Fields("ホスト名") GakkoTitleAry(UBound(GakkoTitleAry)) = Content.Fields("名称") End If Content.MoveNext Loop GakkoAryCnt = UBound(GakkoHostAry) Do While GakkoAryCnt > 0 Randomize RndGakkoNo = Int((GakkoAryCnt * Rnd) + 1) '1〜最大配列数の数値を生成（Fix関数では正しく処理されない？） Dim TmpTextSize TmpTextSize = "tx1416" If Len(GakkoTitleAry(RndGakkoNo)) > 13 Then TmpTextSize = "tx1113" ElseIf Len(GakkoTitleAry(RndGakkoNo)) > 11 Then TmpTextSize = "tx1214" End If %> <% 'RndGakkoNo以降の配列を前に詰める For GCnt = RndGakkoNo + 1 to GakkoAryCnt GakkoHostAry(GCnt - 1) = GakkoHostAry(GCnt) GakkoTitleAry(GCnt - 1) = GakkoTitleAry(GCnt) Next GakkoAryCnt = GakkoAryCnt - 1 Loop %>
姉妹はすねす
<% = ActionButton3Image("Gakkohsns", "images/btn02b.png", "images/btn02o.png", 20, "images/spacer.gif", "images/spacer.gif", 160, "images/spacer.gif", "images/spacer.gif", 0, 20, "全国はすねす", "tx1416", "left", "location.href='http://hsns.sfc-jpn.jp" & TmpQuery & "';") %>
<% = ActionButton3Image("Gakko" & Replace(GakkoHostAry(RndGakkoNo), "-", "hyphen"), "images/btn02b.png", "images/btn02o.png", 20, "images/spacer.gif", "images/spacer.gif", 160, "images/spacer.gif", "images/spacer.gif", 0, 20, GakkoTitleAry(RndGakkoNo), TmpTextSize, "left", "location.href='http://" & GakkoHostAry(RndGakkoNo) & ".hsns.sfc-jpn.jp" & TmpQuery & "';") %>
<% '姉妹はすねす %> <% End If %> <% End If %> <% If 0=1 Then %> <% '地方単位の表示（まだ作ってない） %>
<% Query = "" Query = Query & " SELECT TM地方.* " Query = Query & " FROM TM地方 " Query = Query & " INNER JOIN TM都道府県 " Query = Query & " ON TM地方.地方CD = TM都道府県.地方CD " Query = Query & " INNER JOIN TM学校 " Query = Query & " ON TM都道府県.都道府県CD = TM学校.都道府県CD " Query = Query & " WHERE TM都道府県.都道府県CD > 0 " Query = Query & " AND TM学校.ホスト名 <> '" & GB_HostName & "' " Query = Query & " ORDER BY TM地方.地方CD " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Do While Not(Content.BOF Or Content.EOF) ' If "" & Content.Fields("有効") = "1" Then %> <% If "" & Content.Fields("地方CD") = Area Then Query = " SELECT * FROM TM学校 WHERE 地方CD = " & Area & " ORDER BY 都道府県CD AND タイトル " '此処はランダムが良いか Set Content2 = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Do While Not(Content2.BOF Or Content2.EOF) ' If "" & Content2.Fields("サブカテゴリ有効") = "1" Then %> <% ' End If Content2.MoveNext Loop End If ' End If Content.MoveNext Loop %>
姉妹はすねす
<% If "" & Content.Fields("地方CD") = Area And Pref = "" Then %> <% = ActionButton3Image("GakkoArea" & Content.Fields("地方CD"), "images/btn02o.png", "images/btn02o.png", 20, "images/spacer.gif", "images/spacer.gif", 160, "images/spacer.gif", "images/spacer.gif", 0, 20, Content.Fields("名称"), "tx1416", "left", "location.href='" & HomeAliasSL & "?Area=" & Content.Fields("地方CD") & "&Order=" & Order & "';") %> <% Else %> <% = ActionButton3Image("GakkoArea" & Content.Fields("地方CD"), "images/btn02b.png", "images/btn02o.png", 20, "images/spacer.gif", "images/spacer.gif", 160, "images/spacer.gif", "images/spacer.gif", 0, 20, Content.Fields("名称"), "tx1416", "left", "location.href='" & HomeAliasSL & "?Area=" & Content.Fields("地方CD") & "&Order=" & Order & "';") %> <% End If %>
<% If "" & Content2.Fields("地方CD") = Area And "" & Content2.Fields("都道府県CD") = Pref Then %> <% = ActionButton3Image("GakkoArea" & Content2.Fields("地方CD") & "Pref" & Content2.Fields("都道府県CD"), "images/btn03o.png", "images/btn03o.png", 30, "images/spacer.gif", "images/spacer.gif", 150, "images/spacer.gif", "images/spacer.gif", 0, 20, Content2.Fields("表示名称"), "tx1517", "left", "location.href='" & HomeAliasSL & "?Area=" & Content2.Fields("地方CD") & "&Pref=" & Content2.Fields("都道府県CD") & "&Order=" & Order & "';") %> <% Else %> <% = ActionButton3Image("GakkoArea" & Content2.Fields("地方CD") & "Pref" & Content2.Fields("都道府県CD"), "images/btn03b.png", "images/btn03o.png", 30, "images/spacer.gif", "images/spacer.gif", 150, "images/spacer.gif", "images/spacer.gif", 0, 20, Content2.Fields("表示名称"), "tx1517", "left", "location.href='" & HomeAliasSL & "?Area=" & Content2.Fields("地方CD") & "&Pref=" & Content2.Fields("都道府県CD") & "&Order=" & Order & "';") %> <% End If %>
<% '地方単位の表示（まだ作ってない） %> <% End If %>
<% = Spacer(1, 4) %>
<% = ActionButton3Image("ShopListBtn", "images/shoplist_pl.png", "images/shoplist_pl_over.png", 4, "images/shoplist_pc.png", "images/shoplist_pc_over.png", 176, "images/shoplist_pr.png", "images/shoplist_pr_over.png", 4, 24, "ショップ一覧", "tx1416", "center", "location.href='" & HomeAliasSL & "?Shoplist=1';") %>
<% = Spacer(1, 3) %>
<% = ActionButton3Image("MallTopBtn", "images/shoplist_pl.png", "images/shoplist_pl_over.png", 4, "images/shoplist_pc.png", "images/shoplist_pc_over.png", 176, "images/shoplist_pr.png", "images/shoplist_pr_over.png", 4, 24, "モールTop", "tx1416", "center", "location.href='" & HomeAliasSL & "';") %>
<% = Spacer(1, 4) %>
<% If LCase(GB_HostName) = "hsns" Then If MallSchool = "" Then MallSchool = "images/bunner_sfc_90.png" MallLink = "http://www.sfc-jpn.jp" End If End If %> <% If MallSchool <> "" Then %> "" Then %> style="cursor:pointer;" onClick="window.open('<% = MallLink %>');"<% End If %>>
<% Else %> "" Then %> style="cursor:pointer;" onClick="window.open('<% = MallLink %>');"<% End If %>>
<% = MallGakko %>
<% End If %>
<% = Spacer(1, 4) %>
Google

<% Dim GoogleDomain GoogleDomain = LCase(GB_HostName) & "." If GoogleDomain = "hsns." Then GoogleDomain = "" End If GoogleDomain = "" 'Google側で全国ドメインを優先させるよう学校ホスト名は付けない %>
WWW検索  モール内検索
<% = ActionButton3Image("PageTopBtn1", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 88, "images/btn01br.png", "images/btn01br_o.png", 4, 25, "ページトップへ", "tx1214w", "center", "window.location.hash='PageTopAnchor';") %>
<% '右メニュー非表示定義 If GB_UserAgent = "PC" And LocalMode <> "1" Then 'スマフォとローカルモードは非表示 If Cat = "" And Search = "" And Mode <> "Courtesy" And Mode <> "Recruit" And Mode <> "Link" And Mode <> "Guide" And Mode <> "Contact" And Mode <> "Agree" And Mode <> "Copyright" And Mode <> "Privacy" Then %> <% End If End If %>
<% 'スマフォモードの上部 If GB_UserAgent <> "PC" Then %>
<% = ActionButton3Image("GuideBtn", "images/shoplist_pl.png", "images/shoplist_pl_over.png", 4, "images/shoplist_pc.png", "images/shoplist_pc_over.png", 158, "images/shoplist_pr.png", "images/shoplist_pr_over.png", 4, 24, "ショッピングご利用方法", "tx1416", "center", "location.href='" & HomeAliasSL & "?Mode=Guide';") %> <% = ActionButton3Image("ShopListBtn", "images/shoplist_pl.png", "images/shoplist_pl_over.png", 4, "images/shoplist_pc.png", "images/shoplist_pc_over.png", 158, "images/shoplist_pr.png", "images/shoplist_pr_over.png", 4, 24, "ショップ一覧", "tx1416", "center", "location.href='" & HomeAliasSL & "?Shoplist=1';") %>
<% If Cat <> "" Then %> <% End If %>
<% = ActionButton3Image("MallTopBtn", "images/shoplist_pl.png", "images/shoplist_pl_over.png", 4, "images/shoplist_pc.png", "images/shoplist_pc_over.png", 68, "images/shoplist_pr.png", "images/shoplist_pr_over.png", 4, 24, "モールTop", "tx1416", "center", "location.href='" & HomeAliasSL & "';") %>
<% End If %> <% '検索窓非表示定義 'If Mode <> "News" And Mode <> "Recruit" And Mode <> "Link" And Mode <> "Guide" And Mode <> "Contact" And Mode <> "Agree" And Mode <> "Copyright" And Mode <> "Privacy" Then If Mode <> "Courtesy" And Mode <> "Recruit" And Mode <> "Link" And Mode <> "Guide" And Mode <> "Contact" And Mode <> "Agree" And Mode <> "Copyright" And Mode <> "Privacy" Then %> <% If Cat <> "" Then %> <% End If %> <% If Cat = "" Or GB_UserAgent = "PC" Then %> <% End If %>
height:36px;<% End If %>" class="tb1618ime"> <% = ActionButton3Image("SearchCategory", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 144, "images/btn01br.png", "images/btn01br_o.png", 4, 25, "選択カテゴリから検索", "tx1416w", "center", "form1.submit();") %> <% = ActionButton3Image("SearchAllItem", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 144, "images/btn01br.png", "images/btn01br_o.png", 4, 25, "全ての商品から検索", "tx1416w", "center", "form1.Cat.value='';form1.SubCat.value='';form1.submit();") %>
<% End If %> <% 'NewsTopics If 0=1 And Mode = "News" Then %>
はすねすにゅーす
<% '協賛企業募集 ElseIf Mode = "Courtesy" Then %>
<% = Spacer(1, 20) %>
はすねすに協賛していただける企業様・団体様へ
<% = Spacer(1, 20) %>
はすねすは全国の高等学校様が参加するショッピングモールです。
<% '出店企業募集 ElseIf Mode = "Recruit" Then %>
<% = Spacer(1, 20) %>
はすねすでは出店される企業様を募集しております
<% = Spacer(1, 20) %>
はすねすは全国の高等学校様が参加するショッピングモールです。 出店はモール参加校を通じての紹介制となりますので、出店を希望される企業様においては、 以下に記載されている公開募集対象校を通じてお申込みいただくことになります。

出店にあたりましては、商品の画像・紹介文の編集作業や、出店する企業・商品を紹介するWebページの制作など、 学校様との間で諸々の調整の必要が生じるものと思われますので、可能な限り学校様と企業様の所在が近いことが望まれます。 (メール等で十分な連絡のやり取りが可能であればこの限りではありません)

<% = Spacer(1, 20) %>
現在公開募集されている学校様はありません
<% = Spacer(1, 20) %>
<% '関連リンク ElseIf Mode = "Link" Then %>
<% 'ランダム協賛広告 Dim BCellCnt BCellCnt = 0 RndBunnerNo = 0 ReDim BunnerIDAry(0) ReDim BunnerUrlAry(0) ReDim BunnerSrcAry(0) Query = " SELECT * FROM TM協賛 " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Do While Not(Content.BOF Or Content.EOF) ReDim PreServe BunnerIDAry(UBound(BunnerIDAry) + 1) '配列+1 ReDim PreServe BunnerUrlAry(UBound(BunnerUrlAry) + 1) '配列+1 ReDim PreServe BunnerSrcAry(UBound(BunnerSrcAry) + 1) '配列+1 BunnerIDAry(UBound(BunnerIDAry)) = Content.Fields("協賛ID") BunnerUrlAry(UBound(BunnerUrlAry)) = Content.Fields("リンク先") BunnerSrcAry(UBound(BunnerSrcAry)) = Content.Fields("画像") Content.MoveNext Loop BunnerAryCnt = UBound(BunnerIDAry) BunnerCnt = 0 Do While BunnerAryCnt > 0 Randomize RndBunnerNo = Int((BunnerAryCnt * Rnd) + 1) '1〜最大配列数の数値を生成（Fix関数では正しく処理されない？） If BCellCnt + 4 Mod 4 = 0 Then %> <% End If %> <% BCellCnt = BCellCnt + 1 If BCellCnt + 4 Mod 4 = 0 Then %> <% End If BunnerCnt = BunnerCnt + 1 If BunnerCnt >= 10 Then Exit Do End If 'RndBunnerNo以降の配列を前に詰める For BCnt = RndBunnerNo + 1 to BunnerAryCnt BunnerIDAry(BCnt - 1) = BunnerIDAry(BCnt) BunnerUrlAry(BCnt - 1) = BunnerUrlAry(BCnt) BunnerSrcAry(BCnt - 1) = BunnerSrcAry(BCnt) Next BunnerAryCnt = BunnerAryCnt - 1 Loop %>
<% = Spacer(1, 20) %>
はすねすに協賛していただいている企業様・団体様
<% = Spacer(1, 20) %>
" border="0" width="234" height="60">
<% 'ご利用方法 ElseIf Mode = "Guide" Then %>
<% = Spacer(1, 20) %>
ご利用方法
<% = Spacer(1, 20) %>
商品画面で「数量」を入力し「買い物かごに入れる」ボタンをクリックすると、
商品が買い物かごに入れられます。買い物かごの内容はブラウザを閉じても一定期間保持されます。

買い物かごに入れただけでは注文は行われません。また、買い物かごに入れた商品を
買い物かごから削除することもできますので、どうぞお気軽に買い物かごをご利用ください。
各ショップの買い物かごの「注文手続に進む」ボタンをクリックすると、
当該ショップに注文を送信することができます。
<% If LocalMode <> "1" Then %>
注文の送信方法には以下の3種類があります。

（１）以前登録したログイン情報を利用して注文する

　過去に以下（２）の方法で注文を行っている場合、その際に入力した住所・氏名等を利用して注文できます。
　※登録の際に指定したメールアドレス及びパスワードが必要です。

（２） 新たにログイン情報を登録して注文する

　お客様個人のメールアドレスをショッピングモールに登録して注文する方法です。
　初回の注文の際には住所・氏名等を入力する必要がございますが、
　以降は上記（１）の方法が利用できるため、かんたんに注文が送信できます。

（３）ログインせずに注文する

　メールアドレスを登録せずに注文を行います。その都度住所・氏名等の入力が必要です。
　住所・氏名等をショッピングモールに登録したくない場合はこの方法をご利用ください。
<% End If %>
注文を送信されましたら、注文先ショップよりのお手続き方法に関する連絡をお待ちください。
※お手続き方法に関する連絡がない場合は、ショップのお問合せ先へ直接お問合せください。
※お客様とショップとの間のお取引については、当ショッピングモールは一切関知いたしません。
<% 'お問い合わせ ElseIf Mode = "Contact" Then %>
お問い合わせ
<% '利用規約 ElseIf Mode = "Agree" Then %>
<% = Spacer(1, 20) %>
ご利用規約
<% = Spacer(1, 20) %>
第１条（本規約の範囲・定義）

本規約は、システム・フューチャー株式会社（以下、当社）が運営するオンラインショッピングモール「全国高校Net商店 - HighSchool NetShop -」（以下、本サービス）を利用することに伴うすべての事項にわたり適用するものとします。

本規約では、本サービス上において商品の販売または情報の提供を行っている店舗・企業を「出店者」と呼びます。

第２条（本規約の変更）

当社は、運営上必要と判断した時に、お客様の承諾なしに本規約の変更ができるものとします。また、本サービス上に規約の変更内容等を掲載することをもって、規約改定後に利用されるお客様が本規約の改定を承認したものとみなします。

第３条（個人情報の取り扱い）

当社は、お客様の個人情報を別途記載する「プライバシーポリシー」 に基づき、適切に取り扱うものとします。

第４条（禁止事項）

本サービスにおける以下各号の行為を禁じます。

（１）虚偽のEメールアドレスの使用
（２）有害なコンピュータプログラム、スクリプト等を送信、または書き込む行為
（３）当社、出店者または第三者の著作権、その他知的所有権を侵害する行為
（４）当社、出店者または第三者のプライバシー等を侵害する行為
（５）当社、出店者または第三者を誹謗中傷、名誉棄損、脅迫する行為
（６）公職選挙の事前運動、選挙運動またはこれらに類似する行為
（７）公序良俗に反する、または法令に反する行為

第５条（メールアドレス登録と管理）

メールアドレス登録の際には、所定の入力フォームに必要事項を正確に入力してください。

メールアドレス登録の際に入力されたパスワードは、他者に知られることのないよう、お客様が責任を持って管理してください。

第６条（管理・運営）

当社は、本サービスを常に良好な状態でご利用いただくために、システムの定期保守や緊急保守を行う場合及び本サービスの運営に支障が生じると判断した場合には、事前に通知することなく、本サービスの全部または一部の提供を中断または停止する等の必要な措置を取ることができるものとします。この場合において利用者に生じた損害について、当社はいかなる責任も負わないものとします。

第７条（免責事項）

当社の技術的に不可避な事由により本サービスが遅延、中断または中止された場合、または第三者による改ざんにより、お客様が直接的または間接的に被った一切の損害、損失、不利益等について、当社はいかなる責任も負わないものとします。

お客様が本サービスを利用することにより、他のお客様または第三者に対して何らかの損害等を与えた場合には、お客様は自己の責任と費用においてこれを解決し、当社には一切損害、損失、不利益等を与えないものとします。

本サービスの利用により発生したお客様の損害全てに対し、当社はいかなる責任も負わないものとし、損害を賠償をする一切の義務はないものとします。

お客様と出店者との間において生じた紛争に関し、当社は一切関知しないものとします。

<% 'ご利用にあたって ElseIf Mode = "Copyright" Then %>
ご利用にあたって
<% '個人情報の保護方針 ElseIf Mode = "Privacy" Then %>
<% = Spacer(1, 20) %>
個人情報の保護方針
<% = Spacer(1, 20) %>
１．個人情報の収集について

商品ご注文の際に注文者情報を本サービスに登録される場合のみ、お客さまのお名前、ご住所、メールアドレス等の個人情報のご提供をお願いしております。

２．個人情報の管理について

ご提供いただいた個人情報については、不正アクセス、紛失、漏洩などに関し予防措置を講じ、厳重かつ適正に管理します。

３．個人情報の使用について

お客さまの個人情報は、原則として下記以外の目的では使用しません。

（１）お客さまへの本サービスに関わる情報の提供。
（２）本サービスの業務遂行上、必要な連絡を行う場合。

４．第三者への開示について

お客さまの個人情報については、以下のいずれかに該当する場合を除き、原則として第三者に提供・開示等をすることはありません。

（１）ご注文商品を発送するために必要な情報を、出店者及び関係する販売元または生産者等に提供する場合。
（２）当社との間で機密保持契約を締結している業務委託企業等に、必要な範囲内で提供・開示する場合。
（３）その他法令等により開示・提供する必要がある場合。
（４）お客さまの同意がある場合。

５．個人情報の取消について

お客さまが登録された個人情報の取消を希望される場合は、担当窓口が対応し、本人確認や所定の調査をした上で、速やかに必要な措置を講じます。

６．クッキー（Cookie）について

お客さまは、ブラウザの設定によりクッキーの受け取りを拒否できますが、その場合は本サービス上でのご注文はできなくなりますのでご注意ください。

<% ElseIf Search <> "" Then '検索一覧 %> 1618<% Else %>1416<% End If %>">
更新日の新しい順 / 更新日の古い順 / 価格の安い順 / 価格の高い順
<% TmpMallGakkoCD = "" If MallItemList = 1 Then TmpMallGakkoCD = MallGakkoCD End If %> <% = HTMLItemList(TmpMallGakkoCD, "", Cat, SubCat, "Cat", Search, Order, Page, ItemViewCnt, Request.ServerVariables("SCRIPT_NAME") & "?CatRet=" & CatRet & "&Cat=" & Cat & "&SubCat=" & SubCat & "&Order=" & Order, True) %>
<% ElseIf Cat <> "" Then 'モールのカテゴリ商品一覧 %> 1618<% Else %>1416<% End If %>">
更新日の新しい順 / 更新日の古い順 / 価格の安い順 / 価格の高い順
<% Query = "exec SPMサブカテゴリ取得 " & Cat & "" Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then %> [ <% = Content.Fields("名称") %> ] <% If SubCat <> "" Then Do While Not(Content.BOF Or Content.EOF) If "" & Content.Fields("サブカテゴリID") = SubCat Then %> - [ <% = Content.Fields("サブカテゴリ名称") %> ] <% Exit Do End If Content.MoveNext Loop End If %> の商品一覧 <% ElseIf Cat = "9999999" Then %> [ 生徒が開発した商品 ] の一覧 <% End If %>
<% TmpMallGakkoCD = "" If MallItemList = 1 Then TmpMallGakkoCD = MallGakkoCD End If %> <% = HTMLItemList(TmpMallGakkoCD, "", Cat, SubCat, "Cat", "", Order, Page, ItemViewCnt, Request.ServerVariables("SCRIPT_NAME") & "?CatRet=" & CatRet & "&Cat=" & Cat & "&SubCat=" & SubCat & "&Order=" & Order, True) %>
<% ElseIf Area <> "" Then 'モールの地域商品一覧 %> 1618<% Else %>1416<% End If %>">
更新日の新しい順 / 更新日の古い順 / 価格の安い順 / 価格の高い順
<% If Pref <> "" Then Query = " SELECT * FROM TM都道府県 WHERE 地方CD = " & Area & " AND 都道府県CD = " & Pref & " " Else Query = " SELECT * FROM TM地方 WHERE 地方CD = " & Area & " " End If Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then %> [ <% = Content.Fields("名称") %> ] の商品一覧 <% End If %>
<% = HTMLItemList("", "", Area, Pref, "Area", "", Order, Page, ItemViewCnt, Request.ServerVariables("SCRIPT_NAME") & "?Area=" & Area & "&Pref=" & Pref & "&Order=" & Order, True) %>
<% ElseIf Shoplist = "1" Then 'ショップ一覧 %> <% If 0 = 1 Then 'ランダム値を振る方法（全レコードをUPDATEするので重い） Set Content = QueryGetShop("Rnd", SQLServer, DatabaseName, DatabaseUser, DatabasePass) 'ランダムモード Do While Not(Content.BOF Or Content.EOF) If "" & Content.Fields("名称") <> "" Then %> <% End If Content.MoveNext Loop Else '配列化しランダムに取り出す方法 Dim ShopIDAry Dim ShopNameAry '配列化 Redim ShopIDAry(0) Redim ShopNameAry(0) TmpMallGakkoCD = "" If MallShopList = 1 Then TmpMallGakkoCD = MallGakkoCD End If Set Content = QueryGetShop(TmpMallGakkoCD, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Do While Not(Content.BOF Or Content.EOF) If "" & Content.Fields("名称") <> "" Then Redim PreServe ShopIDAry(UBound(ShopIDAry) + 1) '配列+1 Redim PreServe ShopNameAry(UBound(ShopNameAry) + 1) '配列+1 ShopIDAry(UBound(ShopIDAry)) = Content.Fields("ショップID") ShopNameAry(UBound(ShopNameAry)) = Content.Fields("名称") End If Content.MoveNext Loop Dim ShopAryCnt ShopAryCnt = UBound(ShopIDAry) Do While ShopAryCnt > 0 Randomize RndNo = Int((ShopAryCnt * Rnd) + 1) '1〜最大配列数の数値を生成（Fix関数では正しく処理されない？） %> <% 'RndNo以降の配列を前に詰める Dim ACnt For ACnt = RndNo + 1 to ShopAryCnt ShopIDAry(ACnt - 1) = ShopIDAry(ACnt) ShopNameAry(ACnt - 1) = ShopNameAry(ACnt) Next ShopAryCnt = ShopAryCnt - 1 Loop End If %>
<% = Spacer(1, 4) %>
"><% = Content.Fields("名称") %>
<% = Spacer(1, 4) %>
<% = ShopNameAry(RndNo) %>
<% Else 'モールTop（おすすめ・NewsTopics・新着） %> <% 'おすすめと新着の両方で利用する変数 Dim TmpImage Dim TmpImageTmp Dim ItemIDAry Dim ItemNameAry Dim ItemImageAry Dim ItemActFileNumAry Dim ItemKakakuAry Dim ItemShohizeiAry Dim ItemShopIDAry Dim ItemShopNameAry Dim ItemShopNameSizeAry Dim ItemNoCartAry Dim ItemNoCartURLAry Dim ItemAryCnt Dim GakkoItemAryCnt Dim ICnt 'おすすめはNews以外で表示 If Mode <> "News" And MallOsusume > 0 Then 'おすすめ商品を配列化しランダムに取り出す TmpMallGakkoCD = "" If MallOsusume = 1 Then TmpMallGakkoCD = MallGakkoCD End If GakkoItemAryCnt = 0 Set Content = QueryGetItem(TmpMallGakkoCD, "", "", "", "", "Osusume", SQLServer, DatabaseName, DatabaseUser, DatabasePass) 'おすすめ取得モード If Not(Content.BOF Or Content.EOF) Then '配列化 Redim ItemIDAry(0) Redim ItemNameAry(0) Redim ItemImageAry(0) Redim ItemActFileNumAry(0) Redim ItemKakakuAry(0) Redim ItemShohizeiAry(0) Redim ItemShopIDAry(0) Redim ItemShopNameAry(0) Redim ItemShopNameSizeAry(0) Redim ItemNoCartAry(0) Redim ItemNoCartURLAry(0) Do While Not(Content.BOF Or Content.EOF) Redim PreServe ItemIDAry(UBound(ItemIDAry) + 1) '配列+1 Redim PreServe ItemNameAry(UBound(ItemNameAry) + 1) '配列+1 Redim PreServe ItemImageAry(UBound(ItemImageAry) + 1) '配列+1 Redim PreServe ItemActFileNumAry(UBound(ItemActFileNumAry) + 1) '配列+1 Redim PreServe ItemKakakuAry(UBound(ItemKakakuAry) + 1) '配列+1 Redim PreServe ItemShohizeiAry(UBound(ItemShohizeiAry) + 1) '配列+1 Redim PreServe ItemShopIDAry(UBound(ItemShopIDAry) + 1) '配列+1 Redim PreServe ItemShopNameAry(UBound(ItemShopNameAry) + 1) '配列+1 Redim PreServe ItemShopNameSizeAry(UBound(ItemShopNameSizeAry) + 1) '配列+1 Redim PreServe ItemNoCartAry(UBound(ItemNoCartAry) + 1) '配列+1 Redim PreServe ItemNoCartURLAry(UBound(ItemNoCartURLAry) + 1) '配列+1 ItemIDAry(UBound(ItemIDAry)) = Content.Fields("商品ID") ItemNameAry(UBound(ItemNameAry)) = Content.Fields("名称") If "" & Content.Fields("商品画像一覧表示") <> "" Then ItemImageAry(UBound(ItemImageAry)) = Content.Fields("商品画像" & Content.Fields("商品画像一覧表示")) ItemActFileNumAry(UBound(ItemActFileNumAry)) = Content.Fields("商品画像トグル" & Content.Fields("商品画像一覧表示")) ElseIf "" & Content.Fields("商品画像1") <> "" Then ItemImageAry(UBound(ItemImageAry)) = Content.Fields("商品画像1") ItemActFileNumAry(UBound(ItemActFileNumAry)) = Content.Fields("商品画像トグル1") ElseIf "" & Content.Fields("商品画像2") <> "" Then ItemImageAry(UBound(ItemImageAry)) = Content.Fields("商品画像2") ItemActFileNumAry(UBound(ItemActFileNumAry)) = Content.Fields("商品画像トグル2") ElseIf "" & Content.Fields("商品画像3") <> "" Then ItemImageAry(UBound(ItemImageAry)) = Content.Fields("商品画像3") ItemActFileNumAry(UBound(ItemActFileNumAry)) = Content.Fields("商品画像トグル3") End If ItemKakakuAry(UBound(ItemKakakuAry)) = Content.Fields("価格") ItemShohizeiAry(UBound(ItemShohizeiAry)) = Content.Fields("消費税フラグ") ItemShopIDAry(UBound(ItemShopIDAry)) = Content.Fields("ショップID") ItemShopNameAry(UBound(ItemShopNameAry)) = Content.Fields("ショップ名称") ItemShopNameSizeAry(UBound(ItemShopNameSizeAry)) = Content.Fields("商品ショップ名サイズ") If "" & ItemShopNameSizeAry(UBound(ItemShopNameSizeAry)) = "" Then ItemShopNameSizeAry(UBound(ItemShopNameSizeAry)) = "14" 'デフォルトサイズ End If ItemNoCartAry(UBound(ItemNoCartAry)) = "" & Content.Fields("カート非利用") ItemNoCartURLAry(UBound(ItemNoCartURLAry)) = "" & Content.Fields("カート非利用URL") If GB_HostName <> "" And GB_HostName = "" & Content.Fields("ホスト名") Then GakkoItemAryCnt = GakkoItemAryCnt + 1 End If 'Response.Write(ItemKakakuAry(UBound(ItemKakakuAry)) & ":" & ItemNoCartAry(UBound(ItemNoCartAry)) & ":" & ItemNoCartURLAry(UBound(ItemNoCartURLAry)) & "
") Content.MoveNext Loop 'Exit Sub ItemAryCnt = UBound(ItemIDAry) %>
<% = Spacer(6, 36) %> おすすめ商品 <% = Spacer(6, 36) %> 528<% Else %>354<% End If %>" background="images/pickup_upper_center.png"><% = Spacer(6, 36) %> <% = Spacer(6, 36) %>
<% = Spacer(6, 6) %> <% Dim MaxOsusume MaxOsusume = 3 If LocalMode = "1" Then MaxOsusume = 4 End If Dim OsusumeCnt OsusumeCnt = 0 Do While ItemAryCnt > 0 Randomize If GakkoItemAryCnt > 0 Then RndNo = Int((GakkoItemAryCnt * Rnd) + 1) '学校優先（DB取得時に上位ソートされている） GakkoItemAryCnt = 0 '学校商品優先表示は1個だけにする Else RndNo = Int((ItemAryCnt * Rnd) + 1) '1〜最大配列数の数値を生成（Fix関数では正しく処理されない？） End If TmpImage = "image/spacer.gif" If "" & ItemImageAry(RndNo) <> "" Then TmpImage = HomeAliasSL & ItemFolderSL & ItemShopIDAry(RndNo) & "/" & ItemImageAry(RndNo) End If TmpImageTmp = Left(TmpImage, InStrRev(TmpImage, ".") - 1) 'ファイル名を取り出す TmpImageTmp = TmpImageTmp & "_" & ImageXItemOsusume & "_" & ImageYItemOsusume & "_" & ItemActFileNumAry(RndNo) '商品画像トグルを付加 If LCase(Right(TmpImage, 4)) = ".gif" Then TmpImageTmp = TmpImageTmp & Mid(TmpImage, InStrRev(TmpImage, ".")) '拡張子を付加 Else TmpImageTmp = TmpImageTmp & ".jpg" 'GIF以外はすべてjpg拡張子を付加 End If 'Response.Write(ImageFolder & TmpImageTmp) 'ファイル存在チェック GIFは除外 If Not(fso.FileExists(Server.MapPath(TmpImageTmp))) Or LCase(Right(TmpImageTmp, 4)) = ".gif" Then '無ければ元ファイル表示 TmpImageTmp = InscribedImage(TmpImage, ImageXItemOsusume, ImageYItemOsusume) Else 'サムネイル表示 TmpImageTmp = "" End If %> <% OsusumeCnt = OsusumeCnt + 1 If OsusumeCnt >= MaxOsusume Then Exit Do End If 'RndNo以降の配列を前に詰める For ICnt = RndNo + 1 to ItemAryCnt ItemIDAry(ICnt - 1) = ItemIDAry(ICnt) ItemNameAry(ICnt - 1) = ItemNameAry(ICnt) ItemImageAry(ICnt - 1) = ItemImageAry(ICnt) ItemActFileNumAry(ICnt - 1) = ItemActFileNumAry(ICnt) ItemKakakuAry(ICnt - 1) = ItemKakakuAry(ICnt) ItemShohizeiAry(ICnt - 1) = ItemShohizeiAry(ICnt) ItemShopIDAry(ICnt - 1) = ItemShopIDAry(ICnt) ItemShopNameAry(ICnt - 1) = ItemShopNameAry(ICnt) ItemShopNameSizeAry(ICnt - 1) = ItemShopNameSizeAry(ICnt) ItemNoCartAry(ICnt - 1) = ItemNoCartAry(ICnt) ItemNoCartURLAry(ICnt - 1) = ItemNoCartURLAry(ICnt) Next ItemAryCnt = ItemAryCnt - 1 GakkoItemAryCnt = GakkoItemAryCnt - 1 Loop '商品数が3つに満たない場合のサイズ調整ダミー枠 If OsusumeCnt < MaxOsusume Then %> <% End If %>
"" Then %><% = ItemNoCartURLAry(RndNo) %>" target="_blank<% Else %><% = HomeAliasSL %>shop.asp?SelShop=<% = ItemShopIDAry(RndNo) %>&Item=<% = ItemIDAry(RndNo) %><% End If %>"><% = TmpImageTmp %>
"" Then %>window.open('<% = ItemNoCartURLAry(RndNo) %>')<% Else %>location.href='<% = HomeAliasSL %>shop.asp?SelShop=<% = ItemShopIDAry(RndNo) %>&Item=<% = ItemIDAry(RndNo) %>'<% End If %>;"><% = ItemNameAry(RndNo) %>
<% If "" & ItemKakakuAry(RndNo) = "0" Then %> 時価 <% Else %> ¥<% = ConvIntToMoney(ItemKakakuAry(RndNo), False, False) %> (<% If "" & ItemShohizeiAry(RndNo) = "1" Then %>税込<% Else %>税別<% End If %>) <% End If %>
<% = ItemShopNameAry(RndNo) %>
<% = Spacer(6, 6) %>
<% = Spacer(6, 6) %> 696<% Else %>522<% End If %>" background="images/pickup_bottom_center.png"><% = Spacer(6, 6) %> <% = Spacer(6, 6) %>
<% End If End If %> <% If MallNewTopic > 0 Then 'NewsTopics Dim TopicWidth Dim TopicHeight Dim TopicPadding TopicWidth = 528 If LocalMode = "1" Then TopicWidth = 705 End If TopicHeight = 300 TopicPadding = 4 TopicWidth = TopicWidth - TopicPadding * 2 TopicHeight = TopicHeight - TopicPadding * 2 Dim TopicDate Dim TopicTitle Dim TopicHonbun1 Dim TopicHonbun2 Dim TopicHonbun3 Dim TopicImage1 Dim TopicImage2 Dim TopicImage1Mode Dim TopicImage2Mode Dim TopicLinkLabel Dim TopicLinkURL Query = "" If Mode <> "News" Then 'トップ画面はランダム表示 Query = Query & " SELECT TFトピック.* " Query = Query & " FROM TFトピック " Query = Query & " INNER JOIN TM学校 " Query = Query & " ON TFトピック.学校CD = TM学校.学校CD " Query = Query & " WHERE TM学校.ホスト名 = '" & GB_HostName & "' " Query = Query & " AND (TFトピック.公開 IS NOT NULL AND TFトピック.公開 = '1') " 'Query = Query & " AND TFトピック.日時 > DATEADD(month, -6, GETDATE()) " '直近半年で絞る Query = Query & " ORDER BY NEWID() " 'ランダムソート Else Query = Query & " SELECT TFトピック.* " Query = Query & " FROM TFトピック " Query = Query & " INNER JOIN TM学校 " Query = Query & " ON TFトピック.学校CD = TM学校.学校CD " Query = Query & " WHERE TM学校.ホスト名 = '" & GB_HostName & "' " Query = Query & " AND (TFトピック.公開 IS NOT NULL AND TFトピック.公開 = '1') " If Request("Topic") <> "" Then '選択トピックを先頭にする Query = Query & " ORDER BY CASE TFトピック.トピック番号 WHEN " & Request("Topic") & " THEN 0 ELSE 1 END " Query = Query & " , TFトピック.日時 DESC " Else Query = Query & " ORDER BY TFトピック.日時 DESC " End If End If Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then 'トピック1件目は内容表示 TopicHeight = Content.Fields("表示高") If "" & TopicHeight = "" And "" & TopicHeight = "0" Then TopicHeight = 300 End If TopicHeight = TopicHeight - TopicPadding * 2 TopicDate = "" & Content.Fields("日時") TopicTitle = "" & Content.Fields("タイトル") TopicHonbun1 = Replace("" & Content.Fields("本文1"), vbCrLf, "
") TopicHonbun2 = Replace("" & Content.Fields("本文2"), vbCrLf, "
") TopicHonbun3 = Replace("" & Content.Fields("本文3"), vbCrLf, "
") TopicImage1 = "" & Content.Fields("画像1") TopicImage2 = "" & Content.Fields("画像2") TopicImage1Mode = "" & Content.Fields("画像1モード") TopicImage2Mode = "" & Content.Fields("画像2モード") TopicLinkLabel = "" & Content.Fields("リンク先名称") TopicLinkURL = "" & Content.Fields("リンク先") If TopicLinkLabel = "" Then TopicLinkLabel = TopicLinkURL End If If TopicImage1Mode = "" Then TopicImage1Mode = "0" End If If TopicImage2Mode = "" Then TopicImage2Mode = "0" End If %> width="100%"<% End If %>>
News Topics <% If Mode <> "News" Then %> <% = ActionButton3Image("OldTopics", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 88, "images/btn01br.png", "images/btn01br_o.png", 4, 25, "過去のトピック", "tx1214w", "center", "location.href='" & HomeAliasSL & "?Mode=News';") %> <% End If %>
<% If Mode <> "News" Then %>
<% End If %> <% If TopicHonbun1 <> "" Then %> <% End If %> <% If TopicImage1 <> "" Then %> <% End If %> <% If TopicHonbun2 <> "" Then %> <% End If %> <% If TopicImage2 <> "" Then %> <% End If %> <% If TopicHonbun3 <> "" Then %> <% End If %> <% If TopicLinkURL <> "" Then %> <% End If %> <% Content.MoveNext If Mode = "News" Then Do While Not(Content.BOF Or Content.EOF) 'トピック2件目以降を一覧表示 TopicDate = "" & Content.Fields("日時") TopicTitle = "" & Content.Fields("タイトル") %> <% Content.MoveNext Loop End If %>
<% = TopicTitle %> [<% = TopicDate %>]
<% = TopicHonbun1 %>
<% If TopicImage1Mode = "1" Then %> /<% = TopicImage1 %>" type="video/x-ms-wmv"> <% Else 'If TopicImage1Mode = "0" Then %> /<% = TopicImage1 %>"> <% End If %>
<% = TopicHonbun2 %>
<% If TopicImage2Mode = "1" Then %> /<% = TopicImage2 %>" type="video/x-ms-wmv"> <% Else 'If TopicImage2Mode = "0" Then %> /<% = TopicImage2 %>"> <% End If %>
<% = TopicHonbun3 %>
リンク先：<% = TopicLinkLabel %>
<% = Spacer(1, 1) %>
&Mode=<% = Mode %>'"> ⇒ <% = TopicTitle %> [<% = TopicDate %>]
<% If Mode <> "News" Then %>
<% End If %>
<% End If End If '新着はNews以外で表示 If Mode <> "News" And MallNewItem > 0 Then Dim NewItemCol NewItemCol = 3 If LocalMode = "1" Then NewItemCol = 4 End If Dim NewItemMax NewItemMax = 6 If LocalMode = "1" Then NewItemMax = 8 End If Dim CellCnt Dim RowCnt TmpMallGakkoCD = "" If MallNewItem = 1 Then TmpMallGakkoCD = MallGakkoCD End If Set Content = QueryGetItem(TmpMallGakkoCD, "", "", "", "", "New", SQLServer, DatabaseName, DatabaseUser, DatabasePass) 'Set Content = QueryGetItem("ono", "", "", "", "", "New", SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then %> <% 'ショップごとに新着上位n商品 ※「n商品」は「新着表示数6÷全体ショップ数」にて算出される。 '表示対象ショップ数を取得 Dim MaxCnt Dim ContentShop Query = "" Query = Query & " SELECT TMショップ.ショップID, COUNT(TF商品.商品ID) AS 商品数 " Query = Query & " FROM TMショップ " Query = Query & " INNER JOIN TF商品 " Query = Query & " ON TF商品.ショップID = TMショップ.ショップID " Query = Query & " AND TF商品.公開 = '1' AND TF商品.公開 IS NOT NULL " If Session("ECMallShopVisible") <> "" Then Query = Query & " WHERE ((TMショップ.公開フラグ = '1' AND TMショップ.公開フラグ IS NOT NULL) " Query = Query & " OR TMショップ.ログインID LIKE '" & Session("ECMallShopVisible") & "%') " Else Query = Query & " WHERE (TMショップ.公開フラグ = '1' AND TMショップ.公開フラグ IS NOT NULL) " End If If TmpMallGakkoCD <> "" Then Query = Query & " AND TMショップ.ログインID LIKE '" & TmpMallGakkoCD & "%' " End If Query = Query & " GROUP BY TMショップ.ショップID " Set ContentShop = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) MaxCnt = 0 Do While Not(ContentShop.BOF Or ContentShop.EOF) If "" & ContentShop.Fields("商品数") <> "" Then If ContentShop.Fields("商品数") > 0 Then MaxCnt = MaxCnt + 1 End If End If ContentShop.MoveNext Loop '表示対象ショップ数から各ショップの表示商品点数を取得 If MaxCnt => NewItemMax Then MaxCnt = 1 ElseIf MaxCnt => (NewItemMax / 2) Then MaxCnt = 2 ElseIf MaxCnt => (NewItemMax / 3) Then MaxCnt = 3 Else 'If MaxCnt => 1 Then MaxCnt = NewItemMax End If Dim ShopCntAry Redim ShopCntAry(99999) 'ショップごとの抽出商品数カウンタ（配列番号＝ショップID） '各ショップの新着上位n商品を配列化 Redim ItemIDAry(0) Redim ItemNameAry(0) Redim ItemImageAry(0) Redim ItemActFileNumAry(0) Redim ItemKakakuAry(0) Redim ItemShohizeiAry(0) Redim ItemShopIDAry(0) Redim ItemShopNameAry(0) Redim ItemShopNameSizeAry(0) Redim ItemNoCartAry(0) Redim ItemNoCartURLAry(0) Do While Not(Content.BOF Or Content.EOF) If "" & ShopCntAry(Content.Fields("ショップID")) = "" Then ShopCntAry(Content.Fields("ショップID")) = 0 End If '1ショップn商品まで If ShopCntAry(Content.Fields("ショップID")) < MaxCnt Then ShopCntAry(Content.Fields("ショップID")) = ShopCntAry(Content.Fields("ショップID")) + 1 'ショップごとの抽出商品数をカウント Redim PreServe ItemIDAry(UBound(ItemIDAry) + 1) '配列+1 Redim PreServe ItemNameAry(UBound(ItemNameAry) + 1) '配列+1 Redim PreServe ItemImageAry(UBound(ItemImageAry) + 1) '配列+1 Redim PreServe ItemActFileNumAry(UBound(ItemActFileNumAry) + 1) '配列+1 Redim PreServe ItemKakakuAry(UBound(ItemKakakuAry) + 1) '配列+1 Redim PreServe ItemShohizeiAry(UBound(ItemShohizeiAry) + 1) '配列+1 Redim PreServe ItemShopIDAry(UBound(ItemShopIDAry) + 1) '配列+1 Redim PreServe ItemShopNameAry(UBound(ItemShopNameAry) + 1) '配列+1 Redim PreServe ItemShopNameSizeAry(UBound(ItemShopNameSizeAry) + 1) '配列+1 Redim PreServe ItemNoCartAry(UBound(ItemNoCartAry) + 1) '配列+1 Redim PreServe ItemNoCartURLAry(UBound(ItemNoCartURLAry) + 1) '配列+1 ItemIDAry(UBound(ItemIDAry)) = Content.Fields("商品ID") ItemNameAry(UBound(ItemNameAry)) = Content.Fields("名称") If "" & Content.Fields("商品画像一覧表示") <> "" Then ItemImageAry(UBound(ItemImageAry)) = Content.Fields("商品画像" & Content.Fields("商品画像一覧表示")) ItemActFileNumAry(UBound(ItemActFileNumAry)) = Content.Fields("商品画像トグル" & Content.Fields("商品画像一覧表示")) ElseIf "" & Content.Fields("商品画像1") <> "" Then ItemImageAry(UBound(ItemImageAry)) = Content.Fields("商品画像1") ItemActFileNumAry(UBound(ItemActFileNumAry)) = Content.Fields("商品画像トグル1") ElseIf "" & Content.Fields("商品画像2") <> "" Then ItemImageAry(UBound(ItemImageAry)) = Content.Fields("商品画像2") ItemActFileNumAry(UBound(ItemActFileNumAry)) = Content.Fields("商品画像トグル2") ElseIf "" & Content.Fields("商品画像3") <> "" Then ItemImageAry(UBound(ItemImageAry)) = Content.Fields("商品画像3") ItemActFileNumAry(UBound(ItemActFileNumAry)) = Content.Fields("商品画像トグル3") End If ItemKakakuAry(UBound(ItemKakakuAry)) = Content.Fields("価格") ItemShohizeiAry(UBound(ItemShohizeiAry)) = Content.Fields("消費税フラグ") ItemShopIDAry(UBound(ItemShopIDAry)) = Content.Fields("ショップID") ItemShopNameAry(UBound(ItemShopNameAry)) = Content.Fields("ショップ名称") ItemShopNameSizeAry(UBound(ItemShopNameSizeAry)) = Content.Fields("商品ショップ名サイズ") ItemNoCartAry(UBound(ItemNoCartAry)) = "" & Content.Fields("カート非利用") ItemNoCartURLAry(UBound(ItemNoCartURLAry)) = "" & Content.Fields("カート非利用URL") If "" & ItemShopNameSizeAry(UBound(ItemShopNameSizeAry)) = "" Then ItemShopNameSizeAry(UBound(ItemShopNameSizeAry)) = "14" 'デフォルトサイズ End If End If ' If UBound(ItemIDAry) >= 12 Then '最大12商品（この方法だと先着になってしまうのでダメ） ' Exit Do ' End If Content.MoveNext Loop ItemAryCnt = UBound(ItemIDAry) 'Response.Write(ItemAryCnt) Dim ShinchakuCnt ShinchakuCnt = 0 Do While ItemAryCnt > 0 Randomize RndNo = Int((ItemAryCnt * Rnd) + 1) '1〜最大配列数の数値を生成（Fix関数では正しく処理されない？） TmpImage = "image/spacer.gif" If "" & ItemImageAry(RndNo) <> "" Then TmpImage = HomeAliasSL & ItemFolderSL & ItemShopIDAry(RndNo) & "/" & ItemImageAry(RndNo) End If TmpImageTmp = Left(TmpImage, InStrRev(TmpImage, ".") - 1) 'ファイル名を取り出す TmpImageTmp = TmpImageTmp & "_" & ImageXItemNew & "_" & ImageyItemNew & "_" & ItemActFileNumAry(RndNo) '商品画像トグルを付加 If LCase(Right(TmpImage, 4)) = ".gif" Then TmpImageTmp = TmpImageTmp & Mid(TmpImage, InStrRev(TmpImage, ".")) '拡張子を付加 Else TmpImageTmp = TmpImageTmp & ".jpg" 'GIF以外はすべてjpg拡張子を付加 End If 'Response.Write(ImageFolder & TmpImageTmp) 'ファイル存在チェック GIFは除外 If Not(fso.FileExists(Server.MapPath(TmpImageTmp))) Or LCase(Right(TmpImageTmp, 4)) = ".gif" Then '無ければ元ファイル表示 TmpImageTmp = InscribedImage(TmpImage, ImageXItemNew, ImageYItemNew) Else 'サムネイル表示 TmpImageTmp = "" End If If (ShinchakuCnt + NewItemCol) Mod NewItemCol = 0 Then %> <% End If %> <% ShinchakuCnt = ShinchakuCnt + 1 If (ShinchakuCnt + NewItemCol) Mod NewItemCol = 0 Then %> <% End If If ShinchakuCnt >= NewItemMax Then Exit Do End If 'RndNo以降の配列を前に詰める For ICnt = RndNo + 1 to ItemAryCnt ItemIDAry(ICnt - 1) = ItemIDAry(ICnt) ItemNameAry(ICnt - 1) = ItemNameAry(ICnt) ItemImageAry(ICnt - 1) = ItemImageAry(ICnt) ItemActFileNumAry(ICnt - 1) = ItemActFileNumAry(ICnt) ItemKakakuAry(ICnt - 1) = ItemKakakuAry(ICnt) ItemShohizeiAry(ICnt - 1) = ItemShohizeiAry(ICnt) ItemShopIDAry(ICnt - 1) = ItemShopIDAry(ICnt) ItemShopNameAry(ICnt - 1) = ItemShopNameAry(ICnt) ItemShopNameSizeAry(ICnt - 1) = ItemShopNameSizeAry(ICnt) ItemNoCartAry(ICnt - 1) = ItemNoCartAry(ICnt) ItemNoCartURLAry(ICnt - 1) = ItemNoCartURLAry(ICnt) Next ItemAryCnt = ItemAryCnt - 1 Loop %>
新着商品 <% = ActionButton3Image("PageTopBtn2", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 88, "images/btn01br.png", "images/btn01br_o.png", 4, 25, "ページトップへ", "tx1214w", "center", "window.location.hash='PageTopAnchor';") %>
"" Then %><% = ItemNoCartURLAry(RndNo) %>" target="_blank<% Else %><% = HomeAliasSL %>shop.asp?SelShop=<% = ItemShopIDAry(RndNo) %>&Item=<% = ItemIDAry(RndNo) %><% End If %>"><% = TmpImageTmp %>
"" Then %>window.open('<% = ItemNoCartURLAry(RndNo) %>')<% Else %>location.href='<% = HomeAliasSL %>shop.asp?SelShop=<% = ItemShopIDAry(RndNo) %>&Item=<% = ItemIDAry(RndNo) %>'<% End If %>;"><% = ItemNameAry(RndNo) %>
<% If "" & ItemKakakuAry(RndNo) = "0" Then %> 時価 <% Else %> ¥<% = ConvIntToMoney(ItemKakakuAry(RndNo), False, False) %> (<% If "" & ItemShohizeiAry(RndNo) = "1" Then %>税込<% Else %>税別<% End If %>) <% End If %>
<% = ItemShopNameAry(RndNo) %>
<% End If End If %> <% End If %> 		<% 'ランダム協賛広告 RndBunnerNo = 0 ReDim BunnerIDAry(0) ReDim BunnerUrlAry(0) ReDim BunnerSrcAry(0) Query = " SELECT * FROM TM協賛 " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Do While Not(Content.BOF Or Content.EOF) ReDim PreServe BunnerIDAry(UBound(BunnerIDAry) + 1) '配列+1 ReDim PreServe BunnerUrlAry(UBound(BunnerUrlAry) + 1) '配列+1 ReDim PreServe BunnerSrcAry(UBound(BunnerSrcAry) + 1) '配列+1 BunnerIDAry(UBound(BunnerIDAry)) = Content.Fields("協賛ID") BunnerUrlAry(UBound(BunnerUrlAry)) = Content.Fields("リンク先") BunnerSrcAry(UBound(BunnerSrcAry)) = Content.Fields("画像") Content.MoveNext Loop BunnerAryCnt = UBound(BunnerIDAry) BunnerCnt = 0 Do While BunnerAryCnt > 0 Randomize RndBunnerNo = Int((BunnerAryCnt * Rnd) + 1) '1〜最大配列数の数値を生成（Fix関数では正しく処理されない？） %> <% BunnerCnt = BunnerCnt + 1 If BunnerCnt >= 10 Then Exit Do End If 'RndBunnerNo以降の配列を前に詰める For BCnt = RndBunnerNo + 1 to BunnerAryCnt BunnerIDAry(BCnt - 1) = BunnerIDAry(BCnt) BunnerUrlAry(BCnt - 1) = BunnerUrlAry(BCnt) BunnerSrcAry(BCnt - 1) = BunnerSrcAry(BCnt) Next BunnerAryCnt = BunnerAryCnt - 1 Loop %>
" border="0" width="234" height="60">
<% End Sub %>