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

图3.3 注册会员发布留言页面图

如图3.2和图3.3中，此模块为注册会员和非注册会员也提供了不同的留言界面。在

非注册会员中提供了留言设置，可以设置为私密留言，或者不允许回复。还提供了非注册会员的名字，电话，地址，e-mail，oicq，性别，表情的选择等功能。而注册会员只显示留言设置和表情的选择，以为注册会员在注册时已提供了个人资料。所以不必重复。一下是此模块实现的关键代码：

<%End Sub

Sub Savemessage()

Dim u_id,code,Content,teststr

teststr = Request.Form(Session(\ If teststr = \

ReturnError(\请勿反复提交！\ End If

code = Replace(Trim(Request.Form(\ u_id = chknum(Session(\

Content = chkstr(Request.Form(\ If code = \

ReturnError(\请填写验证码！\ End If

If Len(code) <>6 Then

ReturnError(\验证码字符数不正确！\ End If

If Session(\ ReturnError(\验证超时！\ End If

If code <> CStr(Session(\

25

ReturnError(\您输入的确认码和系统产生的不一致，或验证码超时！请重新输入！\

End If

If Len(Content) < 10 Then

ReturnError(\留言内容不能小于10个字符！\ End If

If chknum(Session(\

If Len(Request.Form(\

ReturnError(\请填写您的姓名,不能少于2个字符！\ End If

If Len(Request.Form(\ ReturnError(\阁下名字太长了吧！\ End If

If Trim(Request.Form(\

If chkemail(Trim(Request.Form(\ ReturnError(\格式不正确！\ End IF End If End If

Sql=\

Set Rs=Server.CreateObject(\ Rs.Open Sql,Conn,1,3,1 Dim text,mesint

If para(4) = 1 Then '判断是否需要审核 text = \我们会尽快审核您的留言！\ mesint = 0 Else

If u_id = 0 Then

text = \此次操作为非会员留言，会员留言有积分奖励哦！\ mesint = 0

Elseif Chknum(Request.Form(\ text = \此次操作为私密留言，没有积分奖励！\ mesint = 0 Else

text = \系统为您增加积分 \分\ mesint = \ End If End If

Rs.Addnew

Rs(\ Rs(\ Rs(\

Rs(\ Rs(\

26

If u_id = 0 Then Rs(\

Rs(\ Rs(\ Rs(\ Rs(\

Rs(\ Rs(\ Else Dim rss

Set Rss = Conn.Execute(\* From [user] Where u_id = \

IF Not Rss.Eof Then

Rs(\ Rs(\ Rs(\ Rs(\ Rs(\

Rs(\ Rs(\ Else

ReturnError(\操作错误！\ End If End If Rs.Update

IF u_id <> 0 And para(4) = 0 Then '如果不需要审核就直接更新会员积分

Dim rsint

Set Rsint = Server.CreateObject(\ Sql = \ Rsint.Open Sql,Conn,1,3,1

Rsint(\ Rsint.Update

Rsint.Close:Set Rsint = Nothing End If

Session(\

Returnok(\发布留言成功！\ Rs.Close:Set Rs=Nothing End Sub

Call Bottom()%>

27

3.3留言管理模块设计

3.3.1管理员登录模块

图3.4 留言管理登录页面图

如图3.4所示，此模块访问页面在admin_login.asp页面中， 为后台管理员登录所用，关键代码如下：

<êll Top()

Action = LCase(request(\Select Case Trim(Action) Case \ Call Chk() Case Else

Call Show() End Select Sub Show()

Response.Write \管理员登陆\ Response.Write \

Response.Write \width=\border=\align=\cellpadding=\

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

Response.Write \ Response.Write \height=\colspan=\style=\

Response.Write \管理员登陆\ Response.Write \

28