<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from product order by p_dtime1 desc"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.Write "暂无信息"
else
rs.pagesize=20
rowcount=rs.pagesize
intpage=saferequest("page",1)
if intpage="" or intpage<1 then
intpage=1
rs.absolutepage=1
elseif cint(intpage)>cint(rs.pagecount) then
intpage=cint(rs.pagecount)
rs.absolutepage=rs.pagecount
else
intpage=cint(intpage)
rs.absolutepage=intpage
end if
intpagecount=rs.pagecount
end if
do while not rs.eof and rowcount>0
%>