<%
set rs=server.CreateObject("adodb.recordset")
sql="select id,title,color_font,wtime from affiche where pass='yes' order by px desc,id desc"
rs.open sql,conn,1,1
if not rs.eof then
pagenum=15
rs.pagesize=pagenum
counter=rs.recordcount
pagezong=rs.pagecount
pageno=trim(request.querystring("page"))
if pageno="" or not isnumeric(pageno) then
pageno=1
end if
if pageno<1 then
pageno=1
end if
if pageno-pagezong>0 then
pageno=pagezong
end if
pageno=clng(pageno)
rs.absolutepage=pageno
a=1
while not rs.eof and a<=pagenum
%>