<%@ Language=VBScript %>
<%
'==================================================
' アドレス判定
'==================================================
'アドレス直接指定対策
'if StrChkNull(Session("menu"))=0 then Location(redirectURL)
'管理者の場合
if StrChkNull(Session("usr"))=1 then Location("index2.asp")
'2005/12/14 Sesseion SET
session("menu") = "menu"
'==================================================
' ページ移動各種変数
'==================================================
'ページ移動用／最大表示数
Dim MaxRec
MaxRec = 10
'ページ移動用／変数宣言
Dim NowPage
Dim MaxPage
Dim CntRec
' ページ移動用／現在のページを取得
NowPage = Request("NowPage")
if NowPage = "" or IsNull(NowPage) then NowPage = 1
'表示モード用（タイトルのみ表示：０／内容も表示：１）／変数宣言
Dim TitleMode
'表示モード用
TitleMode = Request("TitleMode")
if TitleMode = "" or IsNull(TitleMode) then TitleMode = 0
'==================================================
' 掲示板情報
'==================================================
Set db = Server.CreateObject("ADODB.Connection")
db.Open bbsDBNAME, bbsUSERNAME, bbsUSERPASS
SQL = " Select * From master Where ((master.parent)=0 AND (master.lev)<>-1) ORDER BY dat DESC "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL,db,3,2
' ページ移動用／最大ページ数を取得
MaxPage = Int( ( rs.recordcount / MaxRec ) * (-1) ) * (-1)
'==================================================
%>
掲示板
<%
'============================================================================================
' ページ移動用／ページ表示数カウント用
CntRec = 0
' ページ移動用／開始レコードまで移動
rs.Move(NowPage * MaxRec - MaxRec)
'---------------------------------------------------------------------
%>
<%
If TitleMode = 0 Then
%>
<%
'■タイトルのみ表示■
'ループ
Do While not rs.EOF
%>
|
<%=StrCngHTML(rs("title"))%>
名前：<%=StrCngHTML(rs("nam"))%>
日時：<%=FormatDateTime(rs("dat"),0)%>
|
｜返信する｜
|
<%
SQL1="Select * From master Where (master.parent)=" & rs("id") & " AND (master.lev)<>-1 ORDER BY dat ASC"
Set rs1=db.Execute(SQL1)
If rs1.EOF=False Then Call disp_title(rs1)
'-----------------------------------------------------------------
' ページ移動用／ページ表示数をカウント
CntRec = CntRec + 1
' ページ移動用／カウント数が最大表示数以上ならばループ終了
if CntRec => MaxRec then Exit do
rs.MoveNext
loop
%>
<%
Else
%>
<%
'■内容も表示■
'ループ
Do While not rs.EOF
%>
|
<%=StrCngHTML(rs("title"))%>
名前：<%=StrCngHTML(rs("nam"))%>
メール：<%
if StrChkNull(rs("mail"))=0 then
Response.Write rs("mail")
else
Response.Write "" & rs("mail") & ""
end if
%>
日時：<%=FormatDateTime(rs("dat"),0)%>
|
｜返信する｜
|
<%=StrCngHTML(rs.fields("article").value)%> |
<%
SQL1="Select * From master Where (master.parent)=" & rs("id") & " AND (master.lev)<>-1 ORDER BY dat ASC"
Set rs1=db.Execute(SQL1)
If rs1.EOF=False Then Call disp(rs1)
'-----------------------------------------------------------------
' ページ移動用／ページ表示数をカウント
CntRec = CntRec + 1
' ページ移動用／カウント数が最大表示数以上ならばループ終了
if CntRec => MaxRec then Exit do
rs.MoveNext
loop
%>
<%
End If
%>
<%
'============================================================================================
' ページ移動用／ページ送り
'--------------------------------------------------------------------------------------------
%>
|
<% if cint(NowPage) <> 1 then %>
<% end if %>
|
｜
|
<% if cint(MaxPage) > cint(NowPage) then %>
<% End If %>
|
<%
'--------------------------------------------------------------------------------------------
%>
｜管理者画面へ｜
<%
'============================================================================================
'子供表示
'タイトルのみ表示
Sub disp_title(ByVal rss)
Do While not rss.EOF
%>
 " height="10"> |
|
<%=StrCngHTML(rss("title"))%>
名前：<%=StrCngHTML(rss("nam"))%>
日時：<%=FormatDateTime(rss("dat"),0)%>
|
｜返信する｜
|
|
<%
SQL_S = " Select * From master Where (master.parent)=" & rss("id") & " AND (master.lev)<>-1 ORDER BY dat DESC "
SET rs_s = db.Execute(SQL_S)
If rs_s.EOF=False Then Call disp_title(rs_s)
rss.MoveNext
Loop
End Sub
'内容も表示
Sub disp(ByVal rss)
Do While not rss.EOF
%>
| " height="10"> |
|
<%=StrCngHTML(rss("title"))%>
名前：<%=StrCngHTML(rss("nam"))%>
メール：<%
if StrChkNull(rss("mail"))=0 then
Response.Write rss("mail")
else
Response.Write "" & rss("mail") & ""
end if
%>
日時：<%=FormatDateTime(rss("dat"),0)%>
|
｜返信する｜
|
<%=StrCngHTML(rss.fields("article").value)%> |
|
<%
SQL_S = " Select * From master Where (master.parent)=" & rss("id") & " AND (master.lev)<>-1 ORDER BY dat DESC "
SET rs_s = db.Execute(SQL_S)
If rs_s.EOF=False Then Call disp(rs_s)
rss.MoveNext
Loop
End Sub
'============================================================================================
%>
