check.asp

来自「很好的企业网站管理系统!可以适应各种不同的小型企业!」· ASP 代码 · 共 54 行

<link rel="stylesheet" type="text/css" href="admin.css">
<%
Session.TimeOut=20'单位分钟
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=login.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
%>