<%
sql="select * from xlws2014_mtbd order by px asc, id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.EOF then
response.write "媒体报道正在实时更新中!敬请期待!"
else
Set pagelist = new listinfo
Call pagelist.getpageinfo(25)
Call pagelist.page()
For i = 1 To pagelist.pagesize
ii=i-1
%>
<%if i mod 5 then:else:response.Write("
"):end if%>
<%if ii mod 5 then:else:response.Write("
"):end if%>
<%if ii mod 5 then:else:response.Write("
"):end if%>
<%if i mod 5 then:else:response.Write("
"):end if%>
<%
rs.movenext
If rs.eof Then Exit For
Next
%>