<% 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
%>
