留言板的设计与实现(毕业论文)

3.2 留言信息页面模块设计

3.2.1查看留言模块

图3.1 浏览留言页面图

如图3.1在此模块中，左边分别为，注册和非注册会员提供不同的显示。注册会员会

在左边显示出会员的头像，会员的等级，会员的姓名，会员的积分，登录次数，注册时间，和最近登录时间。而非注册会员则只显示会员的名字和会员的头像。而版面的右边显示的是会员的留言内容。内容的上方提供了便捷的回复，显示留言者ip地址，支持和反对等便捷按钮。一下是本模块实现的关键数据库连接代码：

<%

Call Top()

Action = LCase(Request(\'得到action值 Select Case Trim(Action) '调用过程 Case \ Call Up() Case \

21

Call Down() Case \ Call Reply() Case \ Call Saveuser() Case Else Call Show() End Select Sub Show() Dim Auditing

Auditing=\ '判断是否显示未审核的留言 If para(4) = 1 Then Auditing = \ Else Auditing = \ End If Sql=\* From [Message] Where Means = 0 \Order By Istop Desc,id Desc\

'res(sql)

Set Rs=Server.CreateObject(\Rs.Open Sql,Conn,1,3,1 If Rs.Eof Then Response.Write(\class=\width=\border=\align=\

Response.Write(\ Response.Write(\ Response.Write(\没有记录\ Response.Write(\ Response.Write(\ Response.Write(\Else

Dim indexshownum

If para(7) <= 0 Then indexshownum = 1 Else indexshownum = para(7) End If Rs.Pagesize = \ Page = ChkNum(Request(\强转数字函数 If Page=\ If Page>= Rs.Pagecount Then Page=Rs.Pagecount Rs.AbsolutePage = Page Call Numpage() '数字分页

22

If para(5) = 1 Then Response.Write(\ Response.Write(\ End If Response.Write(\留言内容\For i=1 To Rs.Pagesize dim bg If i Mod 2 = 0 Then bg = \ Else bg = \ End If Response.Write(\\

Response.Write(\ Response.Write(\ If Rs(\ Response.Write(\非会员留言

Else Response.Write(\class=\一般留言

End If

…………………………部分代码省略………………………………………………… If para(6) = 1 Then Call Showreply(\'判断是否显示回复，得到对应ID的回复内容

Response.Write(\ Response.Write(\action=\method=\name=\

Response.Write(\您的姓名：

Response.Write(\name=\type=\id=\匿名
\

Response.Write(\name='Content' cols=\rows=\

Response.Write(\name=\type=\id=\

Response.Write(\name=\type=\value=\

Response.Write(\回 复

23

\

Response.Write(\ Response.Write(\ Response.Write(\ If para(6) = 1 Then Call Showadmin(\'显示管理员回复，得到对应ID的回复内容

Response.Write(\ Response.Write(\ Response.Write(\ Rs.Movenext

If Rs.Eof Then Exit For Next End If Response.Write(\留言内容结束\ Call Textpage() '文字分页 Rs.Close:Set Rs = Nothing End Sub

3.2.2留言发布模块

图3.2 非注册会员发布留言页面图

24