|
<%
str="select top 4 * from media_news where rootcl=63 order by paixu desc,timein desc"
set rs=server.CreateObject("adodb.recordset")
rs.open str,conn,1,3
if not rs.eof then
NumberOfRecord=rs.RecordCount
num=1
rowCount=rs.RecordCount
do while not rs.eof and num<=4
%>
| |
<%
i=i+1
rscount=rscount-1
rs.movenext
if (num>=2 and num mod 2=0) then response.write " "
num=num+1
loop
else
response.write "暂无资料……"
end if
rs.close
%>
|
|
