自己写的权限管理.
来源:互联网 发布:吉列超级蓝 知乎 编辑:程序博客网 时间:2024/05/01 22:47
-----------------------conn.asp--------------------
<!--#include file="inc/md5.asp"-->
<!--#include file="inc/base64.asp"-->
<%
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
if session("login_admin")="" or session("login_admin")=null then
response.write("<script>alert('请登录后再用!');window.location=('admin_index_1.asp')</script>")
response.end
end if
temp=trim(Mid(Request.ServerVariables("script_name"),6))
Session.Timeout=10
dim conn
dim connstr
on error resume next
connstr="PROVIDER=SQLOLEDB;DATA SOURCE=localhost;UID=jicai;PWD=welcome;DATABASE=jincai2"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
if err.number<>0 then
err.clear
set conn=nothing
response.write "数据库连接出错!"
Response.End
end if
A=Instr("admin_listnews.asp|homemess.asp|showreturn.asp|listusers.asp|PriceManage.asp|usermoney.asp|banks.asp|getmoney_log.asp|saled_log.asp|xstj.asp|xshz.asp|buy_log.asp|get_nation.asp|any_rec.asp|any_rec3.asp|get_nation.asp|listols.asp|listgames.asp|admin_cardsadd1.asp|admin_cardslist.asp|admin_addcardlog.asp|listAdmins.asp|AdminLevel.asp|admin_login_log.asp|System_Clear.asp|",temp)
if A<>0 then
A=Instr(Session("Level"),temp)
if A=0 then
Response.write("对不起,你没有权限访问此功能!")
Response.end
end if
end if
sub endConnection()
conn.close
set conn=nothing
end sub
%>
_____________________________________________________
---------------------------Login.asp----------------------------------
session("Level")=rsadmin("Level")
_____________________________________________________
--------------------------Save_level-----------------------------------
<%
for i=1 to 24
if Len(trim(Request.form("checkbox"&i)))<>0 then
Response.write(" "&Request.form("checkbox"&i)&"........√ OK!<br>")
tempstr=tempstr&Request.form("checkbox"&i)&"|"
end if
Next
Conn.Execute("Update admin set Level='"&tempstr&"' where id="&Request.form("Adminuser"))
%>
-----------------------------------------------------------------------
- 自己写的权限管理.
- 权限管理 ,不错的,国人写的。
- PB实现自己的权限管理
- 一个自己写的自动格式化,开机挂载,创建用户和管理ACL权限的shell脚本
- 自己写的人物管理系统
- 自己写的一个c++管理buffer
- SpringSecurity管理自己的项目——权限管理!!!
- 如何让自己写的apk获得系统权限
- 如何让自己写的apk获得系统权限
- 自己项目中用struts menu 实现的菜单+权限管理
- [置顶] 自己动手写 权限管理
- 自己也写的小的学生管理系统
- android 自己的思路写的订单管理界面
- 自己写的自动构建管理系统ABS介绍
- 初学java,自己写的学员管理系统
- 分享一个自己写的wordpress广告位管理插件
- 自己总结的 怎么写网站后台管理
- 自己写的一个C#日志管理类
- 关于jfree柱状图建好MAP后,不知道怎么改变MAP里指向的URL的问题?
- 我所喜欢的网络文学作品
- adfa
- 用LotusScript实现所有的公式语言
- 为SharePoint Portal Server配置SMTP服务器
- 自己写的权限管理.
- 可伸缩的树型结构js文件
- 一些词语。哈哈
- 生活方式:一生要做的99件事、要看的50部电影 摘自一竿残照.金棣@CODELPHI http://blog.codelphi.com/nil/
- Linkey Workflow工作流开发介绍
- 我的tomcat连接池配置过程
- 模式的定义!
- Comments and the Quality of Code
- 软件之美