这些代码是各个小类取最新的几条数据,我想改为不分小类取大类的最新25条,怎么改??
<%
set rs3=server.CreateObject("ADODB.RecordSet")
for i=1 to SmallClassCount
SmallClassID=ArraySmallClassID(i)
SmallClassName=ArraySmallClassName(i)
rs3.Source="select top 25 NewsID,Title,UpdateTime,BigClassID,SmallClassID,SpecialID from News where SmallClassID=" & SmallClassID &" order by NewsID DESC"
rs3.Open rs3.Source,conn,1,1
Response.Write "<tr><td width=100% bgcolor=#ECEFC0><font color=333333>◆" & SmallClassName & "◆</font></td></tr>"
while not rs3.EOF
TrString="<tr><td width=100% > <a class=white_bg href=ReadNews.asp?NewsID=" & rs3("NewsID") & "&BigClassName="& request_BigClassName &"&BigClassID=" & rs3("BigClassId") & "&SmallClassID=" & rs3("SmallClassId") & "&SmallClassName="& SmallClassName &"&SpecialID=" & rs3("SpecialId") & " target=_blank>◎" & trim(rs3("Title")) & "</a></td</tr>"
Response.Write TrString
rs3.MoveNext
wend
rs3.close
%>