check_admin.asp

大概说明: 一:登陆后台前请先smszzun_admin,找到IP_report.asp这个文件,把里面的IP地址更换成你的本机IP 如果IP不符合则不能打开后台页面,这是为了数据安全

<%
JyDownAdminName =Session("selviceAdminName")
JyDownAdminDj  =Session("selviceAdminDj")
JyDownAdminAdmin  =Session("selviceAdminAdmin")
if JyDownAdminName="" or JyDownAdminDj="" or JyDownAdminAdmin="" then
 JyDownAdminDj=0
end if
if JyDownAdminDj=3 then
JyDownCheckAdmin="ok"
JyDownCheckAdminAll="ok"
elseif JyDownAdminDj=2 then
if Admin<>"" then
  if JyDownAdminAdmin<>"" then
  tempAdmin=split(JyDownAdminAdmin, ",")
  for i = 0 to ubound(tempAdmin)
	if trim(tempAdmin(i))=trim(Admin) then
	  JyDownCheckAdmin="ok"
	  exit for
    end if
  next
  end if
else
JyDownCheckAdmin="ok"
end if
else
  response.write("<li>您没有进入本页面的权限,本次操作已被记录!<br><li>本页面为[管理员]等级以上用户专用!.")
  response.end
end if

if JyDownCheckAdmin<>"ok" then
  response.write("<li>您没有进入本页面的权限!")
  response.end
end if
function CheckAdmin(TAdmin,Admin)
  CheckAdmin=false
if JyDownAdminDj=3 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
%>