response.write"javascript:history.go(-1)</SCRIPT>"
end if
%>
⑵管理员管理
①管理员从loging.asp登录，在loging.asp填写的表单内容传给cklogin.asp处理。在ckloging.asp文件中静态的定义了用户名和密码（admin，admin），用request.Form("username")和request.Form("password")获取登录用户填写的数据信息并判断，代码如下：
<%
admin_name="admin" '用户名
admin_pass="admin" '密码
username=trim(request.Form("username"))
password=trim(request.Form("password"))
if username="" then
response.write"<SCRIPT language=JavaScript>alert('用户名不能为空！');"
response.write"javascript:history.go(-1)</SCRIPT>"
end if
if password="" then
response.write"<SCRIPT language=JavaScript>alert('密码不能为空！');"
response.write"javascript:history.go(-1)</SCRIPT>"
end if
if username=admin_name and password=admin_pass then
session("admin")="smallstick"
response.Redirect "book.asp"
else
response.write"<SCRIPT language=JavaScript>alert('对不起，用户名或密码错');"
response.write"javascript:history.go(-1)</SCRIPT>"
end if
%>
②管理员留言管理
相对游客，管理员多了可以回复和删除留言，以及发布公告等权限。
管理员浏览留言信息需要回复可以进行留言回复（reply.asp），首先用session对象记录特定客户的信息来判断是否是管理员，如不是则用response对象的redirect方法定向到login.asp页面要求用户登录，如是则用server对象createobject方法recordset对象rs，用rs对象的open方法、sql语句获得guestbook表id为request对象id的记录集，用request.form方法判断回复内容是否为空，为空提示不能为空，不为空则将内容写入数据库。
<%
if session("admin")<>"smallstick" then
response.redirect "login.asp"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from guestbook where id="&request("id")
rs.open sql,db,1,3
if request("action")<>"save" then
%>
<%
else
if request.form("reply")="" then
response.write"<SCRIPT language=JavaScript>alert('对不起，内容不能为空！');"
response.write"javascript:history.go(-1)</SCRIPT>"
else
rs("reply")=Server.HTMLEncode(request.form("reply"))
rs.update
rs.close
set rs=nothing
response.redirect "book.asp"
end if
end if
%>
管理员对留言信息可以删除，点击删除链接del.asp进行处理，则同样连接表guestbook将数据信息从数据库中删除，然后response对象的redirect方法 导向book.asp页面。
代码如下：
<%
dim admin
admin=session("admin")
if not admin="smallstick" then
response.redirect "login.asp"
response.end
end if
sql="delete * from guestbook where id="&trim(request.querystring("id"))
db.execute sql
db.close
set db=nothing
response.redirect "book.asp"
%>
4.4 连接数据库的设计
每个模块都引用conn.asp文件连接后台数据库，使用的方法是用Server的CreateObject方法创建Connection对象db，再用db的open方法与数据源或数据库文件直接建立连接。实现代码如下：
<%
connstr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath("mydb/db.mdb")
set db= Server.CreateObject("ADODB.Connection")
db.Open connstr
%>
在各个模块中都在此基础上都通过建立连接各自所需的表名来创建各自的记录集对象，通过记录集对象的各种属性与方法来对数据库中的数据信息进行添加、修改、删除、更新等操作。
下面为各模块创建的部份记录集对象
⑴前台栏目信息浏览模块，连接NewsCata表当C_RootID 为T_CataID值时获得的记录集。实现代码如下：
Dim dRs, dSql, Flag
Set dRs = Server.CreateObject( "ADODB.Recordset" )
dSql = "SELECT * FROM NewsCata WHERE C_RootID = '"&T_CataID&"'"
dRs.Open dSql, oConn, 0, 1
⑵后台栏目信息管理模块，连接NewsCata表按照C_RootID排列顺序获得的记录集。实现代码如下：
Dim cRs, cSql, i, TempCataStr
Set cRs = Server.CreateObject( "ADODB.Recordset" )
cSql = "SELECT * FROM NewsCata ORDER BY C_RootID"
cRs.Open cSql, oConn, 1, 3
⑶后台留言管理模块，连接guestbook表按照id按降序排列获得的记录集。实现代码如下：
Set Rs=server.createobject("adodb.recordset")
Sql="select * from guestbook order by id desc"
Rs.open sql,db,3,2
⑷此外，对于后台的数据库信息管理，特别设置了不同的管理员，限制了各用户对数据库信息的管理权限，加强数据库的安全性管理，超级管理员可以对数据库任意信息修改及其它操作，信息编辑员不能对管理员的设置进行修改。在管理员登录时就判断是管理员还是信息操作员，在留言数据管理时判断用户是游客还是管理员，管理员能对留言进行回复与删除操作，而游客却不能。
5 测试
网站测试：本文分别对后台管理和留言管理进行测试。
转贴于 酷文网-论文下载中心 http://www.coolwen.net
共10页: 上一页 [1] [2] [3] [4] [5] [6] 7 [8] [9] [10] 下一页
网摘收藏:
当前位置:
载入中...
-> 在百度中搜索：
-> 在Google中搜索：