<%Refer=Request.ServerVariables("HTTP_REFERER")%> <% set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from BigClass" rs.Open rs.Source,conn,1,1 set rs2=server.CreateObject("ADODB.RecordSet") '专题 rs2.Source="select Top 10 * from Special order by SpecialID DESC " rs2.Open rs2.Source,conn,1,1 %>

<% i=1 Dim ArrayBigClassID(20),ArrayBigClassName(20) while not rs.EOF RecordCount=rs.RecordCount BigClassID=rs("BigClassID") BigClassName=trim(rs("BigClassName")) Response.Write TdString ArrayBigClassID(i)=BigClassID ArrayBigClassName(i)=BigClassName i=i+1 rs.MoveNext wend rs.close %>