%@ Language=VBScript%>
<%
request_BigClassID=Request.QueryString("BigClassID")
request_BigClassName=trim(Request.QueryString("BigClassName"))
request_SmallClassID=Request.QueryString ("SmallClassID")
request_SmallClassName=trim(Request.QueryString("SmallClassName"))
Page=Request.QueryString ("Page")
if page="" then page=1
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from BigClass"
rs.Open rs.Source,conn,1,1
dim ArrayBigClassID(20),ArrayBigClassName(20)
BigClassCount=rs.RecordCount
for i=1 to BigClassCount
ArrayBigClassID(i)=rs("BigClassID")
ArrayBigClassName(i)=trim(rs("BigClassName"))
rs.MoveNext
next
set rs2=server.CreateObject("ADODB.RecordSet") '专题
rs2.Source="select Top 10 * from Special order by SpecialID DESC "
rs2.Open rs2.Source,conn,1,1
set rs4=server.CreateObject("Adodb.RecordSet")
rs4.source="select * from SmallClass Where BigClassID=" & request_BigClassID
rs4.open rs4.source,conn,1,1
SmallClassCount=rs4.RecordCount
dim ArraySmallClassID(20),ArraySmallClassName(20)
for i=1 to SmallClassCount
ArraySmallClassID(i)=rs4("SmallClassID")
ArraySmallClassName(i)=trim(rs4("SmallClassName"))
rs4.MoveNext
next
rs4.Close
set rs4=nothing
%>