classlist.asp

庐江二中

<!--#include file="conn.asp" -->
<%
dim i
sql="select * from BigClass order by BigClassID"
rs.open sql,conn,1,1
i=1
Dim ArrayBigClassID(50),ArrayBigClassName(50),ArrayBigClassView(50),ArrayBigClassType(50)
dim RecordCount,BigClassView,BigClassType,BigClassName
while not rs.EOF
RecordCount=rs.RecordCount

'if i mod 12=0 then Response.Write  "<br>&nbsp;|&nbsp;"   '本句设定超过多少个自动换行
Response.Write  "&nbsp;<a class=top3 href=""BigClass.asp?BigClassName="&rs(5)&"&BigClassType="&rs(4)&""">"&rs(5)&"</a>&nbsp;|"
'--------------------
sql="select * from SmallClass Where BigClassName='" & rs(5) &"' order by SmallClassID"
rs1.open sql,conn,1,1
dim SmallClassCount
SmallClassCount=rs1.RecordCount
if SmallClassCount>0 then
	dim ArraySmallClassName(50),ArraySmallClassType(50)
	for i=1 to rs1.RecordCount
		arraySmallClassType(i)=rs1(2)
		ArraySmallClassName(i)=rs1(4)
		rs1.MoveNext
	next
end if
rs1.Close
'--------------------
ArrayBigClassView(i)=rs(3)
arrayBigClassType(i)=rs(4)
ArrayBigClassName(i)=rs(5)
i=i+1

rs.MoveNext
wend
rs.close


%>