% Dim Conn Dim Sql Dim Rs Dim aaa Dim i Dim Page Dim ii Dim bbb Set Rs=Server.CreateObject("ADODB.Recordset") sql="select * from gqinfo where id order by id desc" Rs.Open Sql,Conn,1,1 Rs.Pagesize=8 Page=Clng(Request("page")) If Page<1 Then Page=1 If Page>Rs.Pagecount Then Page=Rs.Pagecount %>
| |||
|
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|