<%
i=1
Dim ArrayBigClassID(20),ArrayBigClassName(20)
while not rs.EOF
RecordCount=rs.RecordCount
BigClassID=rs("BigClassID")
BigClassName=trim(rs("BigClassName"))
TdString="
<%
rs.Source="select top 10 NewsID,Title,BigClassName,SmallClassName,SpecialID,Click from News where image=0 order by click DESC"
rs.Open rs.Source,conn,1,1
while not rs.EOF
%>
综合新闻
