<%
pagenum=request("pagenum")
if pagenum="" or pagenum<1 then
pagenum=1
else
pagenum=cint(pagenum)
end if
Set rsd=Server.CreateObject("ADODB.recordset")
rsd.cachesize=20
rsd.cursortype=1
mysq="select * from xx order by tm desc"
rsd.open mysq,cn,3,2
rsd.pagesize=30
if pagenum>rsd.pagecount then
pagenum=1
end if
if rsd.eof then
response.write"抱歉!无信息!"
else
rsd.absolutepage=pagenum
for i=1 to rsd.pagesize
if rsd.eof then exit for
show=show&""
rsd.movenext
if rsd.eof then exit for
next
end if
%>