<% main() Sub main() If Not(InternetCheck()) Then Exit Sub End If If Not(VisitorCheck()) Then Exit Sub End If If Not(SchoolAdminCheck()) Then Exit Sub End If 'Response.Write(GB_ShopAdmin) 'Exit Sub Dim ActSchoolCD ActSchoolCD = Request("ActSchoolCD") If LCase(ActSchoolCD) <> LCase(GB_SchoolAdmin) 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 fso Set fso = Server.CreateObject("Scripting.FileSystemObject") Dim ImageFolder ImageFolder = "" & HomeAliasSL & SchoolTopicFolderSL If Not(fso.FolderExists(Server.MapPath(ImageFolder))) Then fso.CreateFolder(Server.MapPath(ImageFolder)) End If ImageFolder = ImageFolder & "hsnsadmin" & "/" If Not(fso.FolderExists(Server.MapPath(ImageFolder))) Then fso.CreateFolder(Server.MapPath(ImageFolder)) End If Dim Topic Topic = Request("Topic") Dim ItemViewCnt ItemViewCnt = 100 '1ページの表示件数 Dim Page Page = Request("Page") If Page = "" Or Not(IsNumeric(Page)) Then Page = "0" End If Page = CInt(Page) Dim TopicHeight Dim TopicDate Dim TopicTitle Dim Honbun1 Dim Honbun2 Dim Honbun3 Dim ImageFile1 Dim ImageFile2 Dim LinkLabel Dim LinkURL Dim PublishItem If Topic <> "" Then If IsNumeric(Topic) Then 'トピック存在チェック Query = "" Query = Query & " SELECT * " Query = Query & " FROM TFトピック " Query = Query & " WHERE 学校CD = '" & "hsnsadmin" & "' " Query = Query & " AND トピック番号 = " & Topic & " " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then TopicHeight = "" & Content.Fields("表示高") TopicDate = "" & Content.Fields("日時") TopicTitle = "" & Content.Fields("タイトル") Honbun1 = "" & Content.Fields("本文1") Honbun2 = "" & Content.Fields("本文2") Honbun3 = "" & Content.Fields("本文3") ImageFile1 = "" & Content.Fields("画像1") ImageFile2 = "" & Content.Fields("画像2") LinkLabel = "" & Content.Fields("リンク先名称") LinkURL = "" & Content.Fields("リンク先") PublishItem = "" & Content.Fields("公開") Else '取得できなければ強制的に一覧に戻す Response.Redirect(Request.ServerVariables("SCRIPT_NAME") & "") End If End If End If If TopicDate = "" Then TopicDate = Now End If 'モール情報取得 Dim Password Dim Pref Dim Host Dim Title Dim ActName Query = "" Query = Query & " SELECT * FROM TM学校 WHERE 学校CD = '" & GB_SchoolAdmin & "' " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then Password = "" & Content.Fields("パスワード") Pref = "" & Content.Fields("都道府県CD") Host = "" & Content.Fields("ホスト名") Title = "" & Content.Fields("タイトル") ActName = "" & Content.Fields("名称") 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 & "schooladminmenu.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 Topic = "" Then '一覧 %> <% Else '詳細 %> <% If Honbun1 <> "" Then %> <% End If %> <% If ImageFile1 <> "" Then %> <% End If %> <% If Honbun2 <> "" Then %> <% End If %> <% If ImageFile2 <> "" Then %> <% End If %> <% If Honbun3 <> "" Then %> <% End If %> <% If LinkURL <> "" Then %> <% End If %> <% End If %> <% = Spacer(1, 13) %> <% Query = "" Query = Query & " SELECT * " Query = Query & " FROM TFトピック " Query = Query & " WHERE 学校CD = '" & "hsnsadmin" & "' " Query = Query & " ORDER BY 日時 DESC " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Do While Not(Content.BOF Or Content.EOF) %> <% Content.MoveNext Loop %> <% = Content.Fields("日時") %> ?Topic=<% = Content.Fields("トピック番号") %>&ActSchoolCD=<% = ActSchoolCD %>"><% = Content.Fields("タイトル") %> <% = ActionButton3Image("ItemListBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 102, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "通知一覧に戻る", "tx1416w", "center", "location.href='" & Request.ServerVariables("SCRIPT_NAME") & "?ActSchoolCD=" & ActSchoolCD & "';") %> <% = Spacer(1, 10) %> 公開日：<% = TopicDate %> <% = Spacer(1, 10) %> <% = TopicTitle %> <% = Spacer(1, 10) %> <% = Replace(Honbun1, vbCrLf, " ") %> <% = Spacer(1, 10) %> <% = Spacer(1, 10) %> <% = Replace(Honbun2, vbCrLf, " ") %> <% = Spacer(1, 10) %> <% = Spacer(1, 10) %> <% = Replace(Honbun3, vbCrLf, " ") %> <% = Spacer(1, 10) %> リンク先：<% If LinkLabel <> "" Then %><% = LinkLabel %><% Else %><% = LinkURL %><% End If %> <% = Spacer(1, 10) %>

<% End Sub %>