default2.asp

来自「ASP原码」· ASP 代码 · 共 26 行

<!--#include file="../System/Const.asp"-->

<%
	if session("usertype")<>UTP_SCHOOLADMIN and session("usertype")<>UTP_ASADMIN and session("usertype")<>UTP_ADMIN then 
		Response.Redirect "../system/relogin.asp?Info=你的身份检查，出现错误！"
	end if	

	set cn=server.CreateObject("ADODB.connection")
    cn.Open DSN_ACLASS

	set rsSchool=server.CreateObject("ADODB.recordset")
	rsSchool.Open "select * from SCHOOL where ID="&request("school_id")&"",cn
	if rsSchool.eof then Response.Redirect "../system/relogin.asp?Info=系统管理员没有赋予您权限！"
	session("school_id")=rsSchool("ID")
	session("school_name")=rsSchool("NAME")
	session("school_max_user")=rsSchool("MAX_USER")
	session("school_max_class")=rsSchool("MAX_CLASS")
	rsSchool.close
	cn.close
	set rsSchool=nothing
	set cn=nothing

	Response.Redirect "User/list.asp?sql=All"
%>