checkadmin_inc.asp

来自「网店批发系统,很好很强大,很好很强大很好很强大」· ASP 代码 · 共 20 行

<%
	dim adminconfig,rsadmin
	
	if session("adminUsername")="" then
		response.Write("<script language=javascript>alert('操作超时，请您重新登录！');top.location.href='admin_login.asp';</script>")
		response.End()
	end if
	
	set rsadmin = conn.execute("Select adminType from Administrator where adminUsername = '"&session("adminUsername")&"'")
		'读权限
		adminconfig = rsadmin(0)
		adminconfig = split(adminconfig,",")
		
	sub CheckType(key)
		if adminconfig(key) = 0 then
			Response.Write("您没有足够的权限来管理此项目！！")
			Response.End()
		end if
	end sub	
%>