ReturnOK(\回复留言成功\ End If End Sub
Sub Deleteall() Dim id,num
id = Request(\ If id<>\
For Each num In Request(\
Conn.Execute \
Conn.Execute \ Next
ReturnOK(\操作成功\ Else
ReturnError(\超作错误 请选择要删除的记录!\ End If End Sub
Sub Audall() Dim id,num
id = Request(\ If id<>\
For Each num In Request(\
Conn.Execute \ Next
ReturnOK(\操作成功\ Else
ReturnError(\超作错误 请选择要审核的记录!\ End If End Sub
Sub Istop() Dim id,num
id = Request(\ If id<>\
For Each num In Request(\
Conn.Execute \ Next
ReturnOK(\操作成功\ Else
ReturnError(\超作错误 请选择要置顶的记录!\ End If End Sub
33
Sub Noistop() Dim id,num
id = Request(\ If id<>\
For Each num In Request(\
Conn.Execute \ Next
ReturnOK(\操作成功\ Else
ReturnError(\超作错误 请选择要置顶的记录!\ End If End Sub
Sub noaud() Dim id,num
id = Request(\ If id<>\
For Each num In Request(\
Conn.Execute \ Next
ReturnOK(\操作成功\ Else
ReturnError(\超作错误 请选择要审核的记录!\ End If End Sub%>
3.3.3参数设置模块
图3.5 留言管理设置页面图
图3.6 参数设置版面
34
如图3.6所示，此模块为整个系统的基本界面和显示界面的基本设置。提供了4个基
本设置功能分别为：如下4个。
1. 2. 3. 4.
系统设置：包括了，开启系统 ，开启留言 ，开启注册，开启公告，留言审核 ，开启回复 ，显示回复等功能。
参数设置：包括了，每页显示记录数， 数字分页前后多少条， 显示回复数量等功能。
积分设置：包括了，注册奖励积分： 发布留言奖励： 回复留言奖励： 支持奖励： 被支持奖励： 反对奖励积： 被反对奖励 ：等参数设置。 后台设置：提供每页显示多少条的设置。
主要实现代码如下：
Call Show() End Select
Sub Show()
Set Rs = Conn.Execute(\ Dim para
para = Split(Trim(Rs(0)),\ %>
………………………………部分代码省略…………………………………………. <%
Rs.Close
Set Rs = Nothing End Sub
Sub Edit() Dim paras
For i = 0 To 17
paras = paras & Chknum(Request.Form(\ Next
'res(paras)
Set Rs = Server.CreateObject(\ Sql=\
35
Rs.Open Sql,Conn,1,3,1 Rs(\ Rs.Update
ReturnOk(\系统设置成功！\ Rs.Close:Set Rs=Nothing End Sub
Call Bottom()%>
loading