权限管理-ASP教程,安全加密

小弟第一次做权限问题，经过很多人的帮助终于作了一个 呵呵

特发布在这里 希望各位大虾门指教

1：建数据库

name 用户名

pwd 密码

oskey 权限

2：对数据库操作 添加用户

<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" height="1">

<tr>

<td bgcolor="#ffffff" width="163" height="143" valign="top">

<table width="100%" border="0" cellpadding="0" cellspacing="0">

<tr bgcolor="#000000">

<td><img src="images/dot.gif" width="1" height="1"></td>

</tr>

</table>

<table width="151" border="0" cellpadding="0" cellspacing="0">

<tr bgcolor="#dfdfdf">

<td width="131" height="2" bgcolor="#ffffff" class="unnamed2">

<div align="center" class="unnamed1">&nbsp;增 加 用 户</div>

</td>

<td width="20" height="2" align="right" valign="bottom" bgcolor="#ffffff">&nbsp;</td>

</tr>

</table>

<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td> <form method=post action="useradd.asp">

<div align="center">

<table width="98%" border="0" cellpadding="0" cellspacing="5">

<tr>

<td>

<div align="center"><font color="#ffffff">用 户 名: <br>

<input type=text name=username2 size="15" class="smallinput">

</font></div>

</td>

</tr>

<tr>

<td>

<div align="center"><font color="#ffffff">用 户 权 限: <br>

<select name="select">

<option value="super">系统管理员</option>

<option value="check">录入、审核</option>

<option value="input">录入</option>

</select>

</font></div>

</td>

</tr>

<tr>

<td>

<div align="center"><font color="#ffffff">密 码： <br>

<input type=text name=passwd2 size="15" class="smallinput">

</font></div>

</td>

</tr>

<tr>

<td>

<div align="center">

<input type=submit value=增加 name="submit" class="smallinput">

<input type="submit" name="submit" value="取消" class="smallinput">

</div>

</td>

</tr>

</table>

</div>

</form></td>

</tr>

</table>

</td>

<td bgcolor="#ffffff" width="10" height="143"><img src="images/dot1.gif" width="1" height="1"></td>

<td width="606" height="143" colspan="2" align="right" valign="top">

<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td><%

set database=server.createobject("adodb.connection")

%>

<p>用户列表<br><%

rst.open "select * from password ",conn,1

if rst.eof then

response.write "没有栏目：（"

else

%>

<table width="98%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">

<tr>

<td width="8%" bgcolor="#ffffff">

<div align="center"><font color="#000000">id号</font></div>

</td>

<td width="21%" bgcolor="#ffffff">

<div align="center"><font color="#000000">用户名</font></div>

</td>

<td width="18%" bgcolor="#ffffff">

<div align="center"><font color="#000000">密码</font></div>

</td>

<td width="30%" bgcolor="#ffffff">

<div align="center"><font color="#000000">权限</font></div>

</td>

<td width="23%" bgcolor="#ffffff">

<div align="center"><font color="#000000">删除</font></div>

</td>

</tr>

<%do while not rst.eof%>

<tr bgcolor="#ffffff">

<td width="8%" align="center"><%=rst("id")%></td>

<td width="21%" align="center"><%=rst("name")%></td>

<td width="18%" align="center"><%=rst("pwd")%></td>

<td width="30%" align="center"><%=rst("oskey")%></td>

<td width="23%" align="center"><font color="#ffffff"><a href="userdel.asp?id=<%=rst("id")%>&amp;name=del">删除</a></font></td>

</tr>

<%

rst.movenext

loop

end if

rst.close

%>

</table>

<p>系统管理员： super<br>

录入、审核员： check<br>

录入： input</p>

</td>

</tr>

</table>

<div align="center"><br>

<a href="mimi.asp">back </a></div></td>

</tr>

</table>

添加用户 useradd.asp

<!–#include file="articleconn.asp"–>

<%

dim rs,tsql

dim rst

set rst=server.createobject("adodb.recordset")

rst.open "select * from password",conn,3,2

rst.addnew

rst("oskey")=request("select")

rst("name")=request("username2")

rst("pwd")=request("passwd2")

rst.update

rst.close

response.redirect "usermanage.asp"%>

呵呵 时间原因 删除的原代码旧不写了

3: 很重要的一环就是下面了 各位应看的出来他的作用

chklogin.asp

<!–#include file=articleconn.asp–>

<%

dim rs

name=request.form("name")

pwd=request.form("pwd")

set rs=server.createobject("adodb.recordset")

rs.open "select * from password where name=" & name & "",conn,1

if pwd<>rs("pwd") then

response.write "<link rel=stylesheet type=text/css href=style.css>"

response.write "<body bgcolor=#ffffef>"

response.write "sorry,请输入正确的管理员名字和密码"

else

session("username")=rs("name")

session("key")=rs("oskey")

response.redirect "mimi.asp"

end if

rs.close

conn.close

set rs=nothing

set conn=nothing

%>

4：下面就是在 你需要加权限的地方加上条件语句了

例如：<%

if session("key")<>"super"then

response.redirect "mimi.asp"

response.end

end if

%>

<%

if not(session("key")="super" or session("key")="check" or session("key")="input") then

response.redirect "login.asp"

response.end

end if

%>

呵呵 第一次原创文章 还真不习惯 多多提意见呀！