<%
main()
Sub main()
If Not(InternetCheck()) Then
Exit Sub
End If
If Not(VisitorCheck()) Then
Exit Sub
End If
If Not(SysAdminCheck()) Then
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
Dim Kubun
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("公開")
Kubun = "" & Content.Fields("管理者区分")
Else
'取得できなければ強制的に一覧に戻す
Response.Redirect(Request.ServerVariables("SCRIPT_NAME") & "")
End If
End If
End If
If TopicDate = "" Then
TopicDate = Now
End If
%>
<%
End Sub
%>