用Access制作一个功能完善的论坛（源程序）
时间:2007-12-23 来源:不详 作者:迈克DB
<%=formatOutput( RS( "m_message" ) )%>
</font>
<P>
<a href="post.?id=<%=id%>&pg=<%=page%>" target="topframe">Reply To This
Message</a>
</td>
</tr>
</table>
<% if mcount = 0 THEN %>
<a name="replies"> </a>
<% END IF %>
<%
RS.MoveNext
WEND
END IF
%>
</body>
</html>
----------------------------------------
Listing 6.0 - messagelist.
-------------------------------------------
<!-- #INCLUDE FILE="discussfuncs." -->
<html>
<head><title>Message List</title></head>
<body bgcolor="#eeeeee">
<table width="100%" border=0 cellpadding=4 cellspacing=0>
本文来自织梦
<tr>
<td align="right">
<a href="post." target="topframe"><font face="Arial" size="2"><i>Post New
Message</i></font></a>
</td>
</tr>
</table>
<%
page = Request( "pg" )
IF page = "" THEN page = 1
readydbCon
SET RS = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = Con
RS.CursorType = adOpenStatic
RS.Open "select m_id, m_email, m_subject, m_numreplies, m_entrydate FROM messages WHERE m_reply=-1 ORDER
by m_id DESC"
RS.PageSize = messagesApage
RS.AbsolutePage = page
IF RS.EOF THEN
%>
<font face="Arial">There are no messages</font>
<%
ELSE
%>
<table width="100%" border=0 cellpadding=4 cellspacing=0>
<tr>
本文来自织梦
<td>
<font size="2" color="darkgreen"><b>AUTHOR</b></font>
</td>
<td>
<font size="2" color="darkgreen"><b>SUBJECT</b></font>
</td>
<td>
<font size="2" color="darkgreen"><b>REPLIES</b></font>
</td>
<td>
<font size="2" color="darkgreen"><b>DATE POSTED</b></font>
</td>
</tr>
<%
WHILE NOT RS.EOF and counter < RS.PageSize
%>
<tr>
<td><font size="2" ><%=showUser( RS( "m_email" ) )%></font></td>
<td><a href="message.?id=<%=RS( "m_id" )%>&pg=<%=page%>" target="message"><font
上一篇：Access数据库操作中出现的怪现象 下一篇：用asp处理access数据库
文章评论
共有位Admini5网友发表了评论 查看完整内容