<%
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 & GB_SchoolAdmin & "/"
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 ImageFile1Mode
Dim ImageFile2Mode
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 = '" & GB_SchoolAdmin & "' "
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")
ImageFile1Mode = "" & Content.Fields("画像1モード")
ImageFile2Mode = "" & 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
If ImageFile1Mode = "" Then
ImageFile1Mode = "0"
End If
If ImageFile2Mode = "" Then
ImageFile2Mode = "0"
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
%>
<%
End Sub
%>