admin_manain.asp

来自「庐江二中」· ASP 代码 · 共 28 行

<%
set Mrs=server.CreateObject("ADODB.RecordSet")
sql="select * From BigClass Where BigClassName='" & BigClassName & "'"
Mrs.Open sql,conn,1,1
BigClassMaster=Mrs("BigClassMaster")
BigClassName=Mrs("BigClassName")
Mrs.Close

sql="select * From SmallClass Where SmallClassName='" & SmallClassName & "'"
Mrs.Open sql,conn,1,1
SmallClassMaster=Mrs("SmallClassMaster")
SmallClassName=Mrs("SmallClassName")
Mrs.Close
set Mrs=Nothing

'小类录入员和审核员：
if (Session("KEY")="input" or Session("KEY")="check") and instr(SmallClassMaster,Session("UserName"))=0 then
	errmsg=errmsg+"<li>你的权限不够。"
	founderr=true
end if

'大类管理员
if Session("KEY")="inter" and instr(BigClassMaster,Session("UserName"))=0 and instr(SmallClassMaster,Session("UserName"))=0 then
	errmsg=errmsg+"<li>你的权限不够。"
	founderr=true
end if

%>