asp讲义23.docx

上传人：b****6 文档编号：8672706 上传时间：2023-02-01 格式：DOCX 页数：17 大小：18.86KB

下载相关举报

第1页 / 共17页

第2页 / 共17页

第3页 / 共17页

第4页 / 共17页

第5页 / 共17页

点击查看更多>>

下载资源

资源描述

asp讲义23.docx

《asp讲义23.docx》由会员分享，可在线阅读，更多相关《asp讲义23.docx（17页珍藏版）》请在冰豆网上搜索。

asp讲义23.docx

asp讲义23

第二十三课信息发布系统（三）

二、详解：

3、后台维护文件夹：

（4）管理员相关文件：

users.asp、user_add.asp、user_update.asp、user_sql.asp

A、显示所有管理员的界面users.asp

要点：

a、每个管理员的超链接，要获取管理员的id提供给user_update.asp：

id=<%=rs（"id"）%>"> <%=rs（"uname"）%>

b、添加的超链接：

添加

<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>

--#includefile="../common/connection.asp"-->

--#includefile="../common/check.txt"-->

Calladmincheck

后台管理

.样式1{color:

#FF0000}

-->

--#includefile="left.asp"-->

您目前所出的位置>>后台管理>>用户管理

恭喜<%=session（"uname"）%>登陆成功!

以下是本系统所有用户

添加

setrs=server.CreateObject（"adodb.recordset"）

sql="select*fromnews_users"

rs.opensql,conn,1,1

ifnotrs.bofandnotrs.eofthen

fori=1tors.recordcount

<%=i%>

id=<%=rs（"id"）%>"> <%=rs（"uname"）%>

<%=rs（"uid"）%>

rs.movenext

endif

rs.close

setrs=nothing

B、添加管理员的页面：

user_add.asp

要点：

a、定义函数以及按钮超链接：

functionMM_goToURL（）{//v3.0

vari,args=MM_goToURL.arguments;document.MM_returnValue=false;

for（i=0;i<（args.length-1）;i+=2）eval（args[i]+".location='"+args[i+1]+"'"）;

}

……

onClick="MM_goToURL（'parent','users.asp'）;returndocument.MM_returnValue"value="返回

b、输入完整性检测函数functionSubmitOk（）

c、用户信息和用户权限的表单变量提交到user_sql.asp

action="user_sql.asp"

d、复选框的用法：

选中的提交，不选的不提交，提交的变量值为value="1"：

e、含有一个提交到user_sql.asp决定是添加（add）还是修改（update）用户的特征值的隐含域（非常重要）

<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>

--#includefile="../common/connection.asp"-->

--#includefile="../common/check.txt"-->

Calladmincheck

后台管理

functionMM_goToURL（）{//v3.0

vari,args=MM_goToURL.arguments;document.MM_returnValue=false;

for（i=0;i<（args.length-1）;i+=2）eval（args[i]+".location='"+args[i+1]+"'"）;

}

//-->

.样式1{color:

#FF0000}

-->

functionSubmitOk（）

{

varuid=document.form1.uid.value;

varupwd=document.form1.upwd.value;

varuname=document.form1.uname.value;

if（uid==''）

{

alert（"请填写用户名！

"）;

document.form1.uid.focus（）;

returnfalse;

}

if（upwd==''）

{

alert（"请填写密码！

"）;

document.form1.upwd.focus（）;

returnfalse;

}

if（uname==''）

{

alert（"请填写姓名！

"）;

document.form1.uname.focus（）;

returnfalse;

}

if（confirm（"确定要添加吗？

"））

{

form1.submit（）;

}

--#includefile="left.asp"-->

您目前所出的位置>>后台管理>>用户管理

恭喜<%=session（"uname"）%>登陆成功!

;

用户信息

用户名：

密码：

姓名：

注销：

用户权限

用户管理：

新闻发布：

公告通知：

C、修改用户信息以及权限页面：

user_update.asp

要点：

a、从users.asp中获取id，从而查询到相应的管理员的信息：

id=request.QueryString（"id"）

b、获取并显示管理员已有的各项信息：

链接数据库、用查询语句找到与id相符合的纪录，在表格的相应位置显示：

<%=uid%><%=upwd%><%=uname%>

c、获取并显示管理员已有的各项权限：

d、非常重要的两个隐藏域：

为的是提交给"user_sql.asp"时

">（修改哪一条）

（是修改还是增加，在这里是，意味着是修改）

<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>

--#includefile="../common/connection.asp"-->

--#includefile="../common/check.txt"-->

Calladmincheck

dimid,uid,upwd,uname,zx

id=request.QueryString（"id"）

setrs=server.CreateObject（"adodb.recordset"）

sql="select*fromnews_userswhereid="&id

rs.opensql,conn,1,1

ifnotrs.bofandnotrs.eofthen

uid=rs（"uid"）

upwd=rs（"upwd"）

uname=rs（"uname"）

zx=rs（"zx"）

yhgl=rs（"yhgl"）

xwfb=rs（"xwfb"）

ggtz=rs（"ggtz"）

endif

rs.close

setrs=nothing

后台管理

functionMM_goToURL（）{//v3.0

vari,args=MM_goToURL.arguments;document.MM_returnValue=false;

for（i=0;i<（args.length-1）;i+=2）eval（args[i]+".location='"+args[i+1]+"'"）;

}

//-->

.样式1{color:

#FF0000}

.样式2{color:

#000000}

-->

functionSubmitOk（）

{

varuid=document.form1.uid.value;

varupwd=document.form1.upwd.value;

varuname=document.form1.uname.value;

if（uid==''）

{

alert（"请填写用户名！

"）;

document.form1.uid.focus（）;

returnfalse;

}

if（upwd==''）

{

alert（"请填写密码！

"）;

document.form1.upwd.focus（）;

returnfalse;

}

if（uname==''）

{

alert（"请填写姓名！

"）;

document.form1.uname.focus（）;

returnfalse;

}

if（confirm（"确定要添加吗？

"））

{

form1.submit（）;

}

--#includefile="left.asp"-->

您目前所出的位置>>后台管理>>用户管理>>修改

恭喜<%=session（"uname"）%>登陆成功!

展开阅读全文