<%
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from BigClass"
rs.Open rs.Source,conn,1,1
dim ArrayBigClassID(20),ArrayBigClassName(20)
RecordCount=rs.recordcount
for i=1 to RecordCount
ArrayBigClassID(i)= rs("bigclassid")
ArrayBigClassname(i)= 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
%>
汕头市城市管理局－－系统管理