自己寫的許可權管理.

-----------------------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"))
%>

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