自己写的权限管理.

原创 2004年07月08日 10:18:00

-----------------------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("&nbsp;"&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"))
%>

-----------------------------------------------------------------------

YII2框架RBAC 自己开发(权限控制)实例运用

1、首先说一下什么是RBAC 基于角色的访问控制(Role-Based Access Control),作为传统访问控制(自主访问,强制访问)的有前景的受到广泛的关注,在RBAC中,权限与角色相关联,...
  • woshihaiyong168
  • woshihaiyong168
  • 2016年11月10日 16:01
  • 1430

用源码告诉你django权限管理是怎么回事

本文将从以下几方面讲述以下django的权限管理: 1、系统默认的权限管理使用,讲解django权限管理的本质 2、自定义USER应该如果使用权限管理 3、如何定义自己想要的权限 系统默认的权限管...
  • yangyihongyangjiying
  • yangyihongyangjiying
  • 2015年05月10日 14:56
  • 4691

SpringMVC+Mybatis整合实现简单权限控制系统代码

SpringMVC+Mybatis整合实现简单权限控制系统代码 源代码下载地址:http://www.zuidaima.com/share/1774043357989888.htm...
  • yaerfeng
  • yaerfeng
  • 2016年04月02日 10:19
  • 5357

一个SOA的权限管理系统:)

权限管理已经被很多公司做过无数遍了,我这个系统的特点是:1  适合于企业内部拥有多个相互独立的信息系统(B/S,C/S都支持),支持单点登录企业内部用户都由AD进行统一管理。各个信息系统以AD用户识别...
  • yanwei100
  • yanwei100
  • 2007年05月24日 17:29
  • 2752

自己写一个异常类my_own_exception来感知一下异常机制

在本文中, 我自己来写一个异常类my_own_exception, 主要为了感知一下C++异常机制, 看代码: #include using namespace std; class my_own...
  • stpeace
  • stpeace
  • 2015年03月25日 22:31
  • 3578

总结和创业从写自己的cms开始

我之前没有要创业的想法,至少2012年之前没有,现在有这样的想法和加入了一个团队有关系的,我们一起搞点小创业开始的,也就是从那时开始让我懂得了“产品”的重要性,要有自己的产品——自己的品牌。加上自己是...
  • jiuyueguang
  • jiuyueguang
  • 2013年07月17日 09:45
  • 1533

python中怎么import自己写的模块

最近在接触学习ML的一些东西,看了Androw 的视频和deep learning的东西,
  • u013904605
  • u013904605
  • 2014年08月16日 14:11
  • 6166

Java ----类加载器(自己写)

每一个技术,最好掌握以下底层的原理,这样才能得心应手
  • yangxin_blog
  • yangxin_blog
  • 2015年09月04日 22:34
  • 949

自己写的String类

1:MyString.h #pragma once class myCString { public: int GetLength()const {return m_nLength;} ...
  • djb100316878
  • djb100316878
  • 2014年12月01日 08:49
  • 1256

细粒度 自定义注解 权限控制具体实现

第一步: 注解和xml一样只是起到一个配置的作用。注解的本身是不可能完成这种拦截功能的。我们后面会通过注册一个驱动了去解析这个注解,完成这个注解背后所代表的功能。 新建注解: public @i...
  • school11
  • school11
  • 2013年12月27日 16:58
  • 1332
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:自己写的权限管理.
举报原因:
原因补充:

(最多只允许输入30个字)