admin_manaselect.asp

庐江二中

<%
sql="select * from BigClass order by BigClassID"
rs.Open sql,conn,1,1
%>
<select name="BigClassName" size="1" onChange="window.open('<%=adminURL%>BigClassName='+this.options[this.selectedIndex].value,'_self')">
<option value="" <%if request("BigClassName")="" then%> selected<%end if%>>选择大类</option>
<%					
if session("KEY")="super" or session("KEY")="senior" then '如果是高级以上管理员
while not rs.EOF
%>
<option<%if request("BigClassName")=rs("BigClassName") and request("BigClassName")<>"" then%> selected<%end if%> value="<%=rs("BigClassName")%>" name=BigClassName><%=rs("BigClassName")%></option>
<%
rs.MoveNext
wend
else
while not rs.EOF
if instr(rs("BigClassMaster"),Session("UserName"))<>0 then '如果是大类管理员
%>
<option<%if request("BigClassName")=rs("BigClassName") and request("BigClassName")<>"" then%> selected<%end if%> value="<%=rs("BigClassName")%>" name=BigClassName><%=rs("BigClassName")%></option>
<%
end if	
set rs1=server.CreateObject ("ADODB.RecordSet") '如果小类有这个大类管理员
sql1="select * from SmallClass where BigClassName='"& rs("BigClassName") & "'"
rs1.Open sql1,conn,1,1
if not rs1.EOF then
if instr(rs1("SmallClassMaster"),Session("UserName"))<>0 then
%>
<option<%if request("BigClassName")=rs("BigClassName") and request("BigClassName")<>"" then%> selected<%end if%> value="<%=rs("BigClassName")%>" name=BigClassName><%=rs("BigClassName")%></option>
<%
end if				
end if
rs1.close
set rs1=nothing
rs.MoveNext
wend
end if
	
%>
</select>
<%
if request("BigClassName")<>"" then%>
<select name="SmallclassName" size="1">
<option value="" <%if request("SmallclassName")="" then%> selected<%end if%>>选择小类</option>				

<%
set Trs=server.createobject("adodb.recordset")
sql="select * from SmallClass where BigClassName='"&request("BigClassName")&"' order by SmallClassID"
Trs.open sql,conn,1,1
Do while not Trs.eof

if session("KEY")="inter" then
set rs1=server.createobject("adodb.recordset")
sql1="select BigClassMaster from BigClass where BigClassName='"&request("BigClassName")&"'"
rs1.open sql1,conn,1,1
if instr(rs1("BigClassMaster"),Session("UserName"))<>0 then
%>
<option<%if request("SmallclassName")=Trs("SmallclassName") and request("SmallclassName")<>"" then%> selected<%end if%> value="<%=Trs("SmallclassName")%>" name=SmallclassName><%=Trs("smallclassname")%></option>
<%
else
if instr(Trs("SmallClassMaster"),Session("UserName"))<>0 then
%>
<option<%if request("SmallclassName")=Trs("SmallclassName") and request("SmallclassName")<>"" then%> selected<%end if%> value="<%=Trs("SmallclassName")%>" name=SmallclassName><%=Trs("smallclassname")%></option>
<%
end if
end if
rs1.close
set rs1=nothing
end if

if session("KEY")="super" or session("KEY")="senior" then
%>
<option<%if request("SmallclassName")=Trs("SmallclassName") and request("SmallclassName")<>"" then%> selected<%end if%> value="<%=Trs("SmallclassName")%>" name=SmallclassName><%=Trs("smallclassname")%></option>
<%
end if

if session("KEY")="input" or session("KEY")="check" then
if instr(Trs("SmallClassMaster"),Session("UserName"))<>0 then
%>
<option<%if request("SmallclassName")=Trs("SmallclassName") and request("SmallclassName")<>"" then%> selected<%end if%> value="<%=Trs("SmallclassName")%>" name=SmallclassName><%=Trs("smallclassname")%></option>
<%
end if
end if
Trs.MoveNext
Loop
Trs.close
%>
<%else%>
<select name="SmallclassName" size="1">
<option value="" selected>选择小类</option>
<%end if%>
</select>