|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
对用户来说可预见费用、节约费用,可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用,用户可以租用较高级的应用软件。ASP的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的,对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。计划权限办理的中心,就是对分歧权限的用户,分派办理对应权限的资本。
本例以一个网站栏目背景办理模块(资本)的权限办理为例,完成了分歧用户的权限办理。
数据库计划:
帐户信息表:
f_i_autoid主动编码(主键)
f_i_orderid
f_accountid帐户编码
f_accountname帐户(外键)
f_password暗码
f_accounttype
f_username
f_remark
f_datetime
栏目信息表:
f_i_autoid主动编码(主键)
f_i_orderid
f_lanmuid栏目编码
f_lanmuname栏目(外键)
f_ishidden
f_remark
f_datetime
权限表:
f_i_autoid主动编码(主键)
f_accountname帐户(外键)
f_lanmuname栏目(外键)
f_remark
f_datetime
经由过程权限表的f_accountname帐户(外键)和f_lanmuname栏目(外键)把帐户信息表
和栏目信息表接洽起来,经由过程给“帐户”分派“栏目”,大概给“栏目”分派“帐户”,使帐户和栏目创建干系(能够是“一对多”“多对一”大概“多对多”)。
然后以以后上岸的帐户为基准,在权限表中查找其可办理的栏目(资本)。
本例完成了一个用户对多栏目标办理(可是一个栏目只能被一个用户办理-这个经由过程程序代码的束缚来完成)。
以下是部分代码:
<%Optionexplicit%>
<!--#includefile="./globals.inc"-->
<!--#includefile="./connects.inc"-->
<html>
<head>
<title>编纂权限</title>
<linkhref="./style/style.CSS"rel="stylesheet"type="text/css">
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<metahttp-equiv="Page-Enter"content="blendTrans(Duration=1.0)">
<metahttp-equiv="Page-Exit"content="blendTrans(Duration=1.0)">
<scriptlanguage="javascript">
functionopenwin(url,l,t,w,h)
{open(url,,toolbar=no,location=no,status=no,menubar=no,scrollbars=no,resizable=no,width=+w+,height=+h+,left=+l+,top=+t);}
functioncheck_and_submit(frm)
{
SelectAll(frm.SelectedItem);
frm.submit();
}
</script>
</head>
<bodytopmargin=20leftmargin=0background="../images/bg.gif">
<%
DimsSQL,rs1,rs2,rs3,CurrentAccount
CurrentAccount=request("CurrentAccount")
%>
<formname="frm1"id="frm1"method="post"action="save.asp">
<inputname="allowsubmit"type="hidden"value="OK">
<tablewidth="500"border="0"cellspacing="0"cellpadding="0"align="center">
<trheight=30>
<tdcolspan=3>
帐号信息:
<inputname="accountname"type="hidden"value="<%=CurrentAccount%>">
<%
sSQL="select*fromtabAccountInfowheref_accountname="&CurrentAccount&""
Setrs1=Server.CreateObject("ADODB.Recordset")
rs1.opensSQL,sConn,1,1
ifrs1.eofandrs1.bofthen
response.write("没有获得该用户的信息。")
response.end
else
response.write"[帐号:]<fontcolor=#ff0000>"&rs1("f_accountname")&"</font>[用户姓名:]"&rs1("f_username")&"[帐号范例:]"&rs1("f_accounttype")
endif
Setrs1=nothing
%>
</td>
</tr>
<trheight=10><tdcolspan=3></td></tr>
<tr>
<tdwidth="220"align=centervalign="top">
已分派该用户办理的栏目:<br><br>
<selectname="SelectedItem"id="SelectedItem"size=12multiple="true">
<%
选择一切栏目中撤除已分派的栏目:
sSQL="selectf_lanmunamefromtabQXBwheref_accountname="&CurrentAccount&"orderbyf_lanmuname"
Setrs3=Server.CreateObject("ADODB.Recordset")
rs3.opensSQL,sConn,1,1
ifrs3.eofandrs3.bofthen
response.write("<option>无</option>")&chr(13)
else
whilenotrs3.eof
response.write"<option>"&rs3("f_lanmuname")&"</option>"&chr(13)
rs3.movenex</p>asp是基于web的一种编程技术,可以说是cgi的一种。它可以完成以往cgi程序的所有功能,如计数器、留言簿、公告板、聊天室等等。 |
|