<%
Set RsL=Conn.execute("select ID,E_ClassName from P_Class Where ParentClassID=0 Order BY Xu Asc")
IF Not RsL.Eof Then
'if request("Big")="" then
'classid=RsL("ID")
'else
classid=request("Big")
'end if
Do While Not RsL.Eof
%>
<%
'if cstr(classid)=cstr(RsL("ID")) then
Set RsS=Conn.execute("select ID,E_ClassName from P_Class Where ParentClassID="&RsL("ID")&" and E_ClassName<>'?T' Order BY Xu Asc")
IF Not RsS.Eof Then
Do While Not RsS.Eof
%>
