<%=headhtml %>

記事検索 メイン記事 返信記事 ※キーワードを入力しない場合は全投稿内容を全表示します。

<% name = "" mail = "" url = "" mypass="" Call CookieRead(name, mail, url, mypass) %> <% If Len(url) > 7 Then %> <% Else %> <% End If %>

なまえ（ハンドル名）
題名
メール
リンクURL
コメント
削除/修正PASS(半角3〜8文字)
名前色	■ ■ ■ ■ ■ ■ ■ ■ ■ ■
文字色	■ ■ ■ ■ ■ ■ ■ ■ ■ ■
	管理室パスワード：
<%=AcsCounter() %> [掲示板TOP] [HOME] [BACK]

<% '投稿メッセージの取得と検索 Call Db_Connect() strSQL = "" strSQL = "SELECT * FROM message ORDER BY ID DESC" Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open strSQL, db, adOpenStatic, adLockReadOnly 'Stop If rs.EOF = False Then cnt = 0 rs.PageSize = CInt(maxdisp) RecCnt = rs.RecordCount If Trim(Request("PageCnt")) <> "" Then PageCount = CInt(Trim(Request("PageCnt"))) Else PageCount = 0 End If rs.AbsolutePage = PageCount + 1 MaxPage = RecCnt \ CInt(maxdisp) If RecCnt Mod CInt(maxdisp) <> 0 Then MaxPage = MaxPage + 1 End If Do While cnt < CInt(maxdisp) And rs.EOF = False %>

題名： "><%=Trim(rs("title")) %> 　投稿者： "><%=Trim(rs("name")) %> <% If Trim(rs("email")) <> "" Then %> 　E-MAIL： "> <% End If %> <% If Trim(rs("url")) <> "" And Trim(rs("url")) <> "http://" Then %> 　URL： " target="<%=target %>"> <% End If %>

"> <%=BrChange((rs("message"))) %> "> "> " NAME="ID"> 削除/修正用PASS： [<%=Year(rs("updatetime")) & "/" & Month(rs("updatetime")) & "/" & Day(rs("updatetime")) %>] [<%=Trim(rs("system")) %>] <% strSQL = "" strSQL = "SELECT * FROM remessage WHERE REID=" & Trim(rs("ID")) Set rs2 = Server.CreateObject("ADODB.RecordSet") rs2.Open strSQL, db, adOpenStatic, adLockReadOnly If rs2.EOF = False Then Do While rs2.EOF = False %> 題名： "><%=Trim(rs2("title")) %> 投稿者： "><%=Trim(rs2("name")) %> <% If Trim(rs2("email")) <> "" Then %> 　E-MAIL： "> <% End If %> <% If Trim(rs2("url")) <> "" And Trim(rs2("url")) <> "http://" Then %> 　URL： " target="<%=target %>"> <% End If %> "> <%=BrChange(rs2("message")) %> " NAME="REID"> " NAME="ID2"> 削除/修正用PASS： [<%=Year(rs2("updatetime")) & "/" & Month(rs2("updatetime")) & "/" & Day(rs2("updatetime")) %>] [<%=Trim(rs2("system")) %>] <% rs2.MoveNext Loop End If rs2.Close Set rs2 = Nothing %>

<% cnt = cnt + 1 rs.MoveNext Loop End If rs.Close Set rs = Nothing Call Db_Close() %>
<% If PageCount > 0 Then %> [前ページ] <% End If If PageCount + 1 < MaxPage Then %> [次ページ] <% End If %>

<%=foothtml %>