www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/check-bak.asp
<link rel="stylesheet" href="admin.css" type="text/css"> <% xoYuStudioAdminName =Session("xoYuStudioAdminName") xoYuStudioAdminDj =Session("xoYuStudioAdminDj") xoYuStudioAdminAdmin =Session("xoYuStudioAdminAdmin") xoYuType =session("xoYuType") if xoYuStudioAdminName="" or xoYuStudioAdminDj="" or xoYuStudioAdminAdmin="" then xoYuStudioAdminDj=0 end if if xoYuStudioAdminDj=4 then xoYuStudioCheckAdmin="ok" xoYuStudioCheckAdminAll="ok" elseif xoYuStudioAdminDj=2 or xoYuStudioAdminDj=3 then if Admin<>"" then if xoYuStudioAdminAdmin<>"" then tempAdmin=split(xoYuStudioAdminAdmin, ",") for i = 0 to ubound(tempAdmin) if trim(tempAdmin(i))=trim(Admin) then xoYuStudioCheckAdmin="ok" exit for end if next end if else xoYuStudioCheckAdmin="ok" end if else response.write("<li>您没有进入本页面的权限,本次操作已被记录!<br><li>本页面为<b><font color=#FF0000>[栏目管理员]</font></b>等级以上用户专用,请先<a href=websyslogin.asp target=_top><b><font color=#FF0000>登陆</font></b></a>后进入.") response.end end if if xoYuStudioCheckAdmin<>"ok" then response.write("<li>您没有进入本页面的权限!") response.end end if function CheckAdmin(TAdmin,Admin) CheckAdmin=false if xoYuStudioAdminDj=4 then CheckAdmin=true else if Admin<>"" then tempAdmin=split(Admin,",") for i = 0 to ubound(tempAdmin) if trim(tempAdmin(i))=trim(TAdmin) then CheckAdmin=true exit for end if next end if end if end function %>