% dim rst,sql set rst=server.CreateObject("adodb.recordset") sql="SELECT * FROM info where cateid=1 order by infoid desc" rst.open sql,conn,1,1 rst.pagesize=20 if not rst.eof then p=int(request("p")) if p=empty or p<1 then p=1 if p>rst.pagecount then p=rst.pagecount rst.absolutepage=p end if %>
|
|||||||||||||||||||||||||||||||||||||||||||||||