admin_checkmana.asp

新闻发布系统

<%
'=========================================================
'产品目录：风讯产品N系列
'软件名称：风讯站点管理系统
'当前版本：2004.I.0225
'最新更新：2004.2.10
'=========================================================
'Copyright (C) 2002-2004 cooin.com. All rights reserved.
'网站: http://www.cooin.com  Foosun.net
'程序制作：轻风云(QQ:655071)
'Email:[e-mail],[e-mail]
'论坛支持：风讯在线论坛(http://BBS.COOIN.COM)
'=========================================================
dim AdminName,AdminPurview,PurviewPassed,adminart,adminlevel
dim rsGetAdmin,sqlGetAdmin
AdminName=replace(session("Name"),"'","")
if AdminName="" then
	response.redirect "Admin_index.asp"
end if
sqlGetAdmin="select * from admin where UserName='" & AdminName & "'"
set rsGetAdmin=server.CreateObject("adodb.recordset")
rsGetAdmin.open sqlGetAdmin,conn,1,1
if rsGetAdmin.bof and rsGetAdmin.eof then
	rsGetAdmin.close
	set rsGetAdmin=nothing
	conn.close
	set conn=nothing
	response.redirect "Admin_index.asp"
else
            adminart=rsgetadmin("art")
			adminlevel=rsgetadmin("level")
            Dim Rs2,sql2
            Sql2="Select * From Role Where UCase(Title)='" & UCase(adminart) &"'"
            Set Rs2=Server.CreateObject("ADODB.RecordSet")
             Rs2.Open Sql2,Conn,1,1
            If Not(Rs2.Eof And Rs2.Bof) Then
            AdminPurview=Rs2("popedom")
            Rs2.Close
            Set Rs2=Nothing    
            Else
            Response.Write("你没有被赋予管理权限")        
            Rs2.Close
            Set Rs2=Nothing    
            Response.End
            End If
end if
rsGetAdmin.close
set rsGetAdmin=nothing
PurviewPassed=True
if adminart=""  then
 PurviewPassed=False
 if adminlevel=5 then
   PurviewPassed=True
  end if
end if



Function EnoughPopedom(pId)
    EnoughPopedom = "1"
    if CheckPurview(AdminPurview,pId)=true then
    EnoughPopedom = "2"
	end if
    if adminlevel=5 then
    EnoughPopedom = "2"
	end if
End Function


function CheckPurview(AllPurviews,strPurview)
	if isNull(AllPurviews) or AllPurviews="" or strPurview="" then
		CheckPurview=False
		exit function
	end if
	CheckPurview=False
	if instr(AllPurviews,",")>0 then
		dim arrPurviews,i
		arrPurviews=split(AllPurviews,",")
		for i=0 to ubound(arrPurviews)
			if trim(arrPurviews(i))=strPurview then
				CheckPurview=True
				exit for
			end if
		next
	else
		if AllPurviews=strPurview then
			CheckPurview=True
		end if
	end if
end function

function CheckClassMaster(AllMaster,MasterName)
	if isNull(AllMaster) or AllMaster="" or MasterName="" then
		CheckClassMaster=False
		exit function
	end if
	CheckClassMaster=False
	if instr(AllMaster,"|")>0 then
		dim arrMaster,i
		arrMaster=split(AllMaster,"|")
		for i=0 to ubound(arrMaster)
			if trim(arrMaster(i))=MasterName then
				CheckClassMaster=True
				exit for
			end if
		next
	else
		if AllMaster=MasterName then
			CheckClassMaster=True
		end if
	end if
end function
%>