<%
dim typename
typeid=request("typeid")
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from type where typeid="&typeid&" order by typeorder"
rs.Open rs.Source,conn,1,1
mode=rs("mode")
typename=rs("typename")
rs.close
set rs=nothing%>
<%
dim mode
typeid=request("typeid")
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from type where typeid="&typeid&" order by typeorder"
rs.Open rs.Source,conn,1,1
mode=rs("mode")
rs.close
set rs=nothing
if mode=3 then
set rs=conn.execute("SELECT * FROM bigclass where typeid="&typeid&" order by bigclassorder")
if not rs.EOF then
do while not rs.eof
%>
<%if not Rs.eof then%>
"><%=Rs("bigclassname")%>:
<%set nrs=conn.execute("SELECT * FROM smallclass where bigclassid="&cstr(rs("bigclassid"))&" order by smallclassorder")%>
<%do while not nrs.eof%>
<%if not nRs.eof then%>
&smallclassid=<%=nrs("smallclassid")%>"><%=nRs("smallclassname")%>、
<%nrs.movenext
end if %>
<%loop
nRs.Close
set nRs=nothing
%>
<%rs.movenext
end if
loop
rs.close
%>
<%else%>
暂无大类
<%end if%>
<%else%>
<%
typeid=request("typeid")
set rs=conn.execute("SELECT * FROM bigclass where typeid="&typeid&" order by bigclassorder")
do while not rs.eof
%>
<%if not Rs.eof then%>
"><%=Rs("bigclassname")%>:
<%set nrs=conn.execute("SELECT * FROM smallclass where bigclassid="&cstr(rs("bigclassid"))&" order by smallclassorder")%>
<%do while not nrs.eof%>
<%if not nRs.eof then%>
&smallclassid=<%=nrs("smallclassid")%>"><%=nRs("smallclassname")%>、
<%nrs.movenext
end if %>
<%if not nRs.eof then%>
&smallclassid=<%=nrs("smallclassid")%>"><%=nRs("smallclassname")%>、
<%nRs.movenext
end if%>
<%loop
nRs.Close
set nRs=nothing
%>