ajax实现分页效果二

// 调用数据库了,

<%
'Dim pagesize
'sql="select top 1 * from [pagesize] order by id desc"
'rs.open sql,conn,1,1
'pagesize=rs("pagesize")
'rs.Close
If session("pagesize")="" Then session("pagesize")=9
Dim page
page=unescape(Request.QueryString("page"))
If page<>"" Then
 sql="select * from [test] order by id asc"
 rs.open sql,conn,1,1
 If rs.eof Then
  Response.Write(escape("还没有任何数据"))
 Else
  rs.pagesize=session("pagesize")
  page=CLng(page)
  If page<1 Then
   page=1
  ElseIf page>rs.pagecount Then
   page=rs.pagecount
  End If
  rs.absolutepage=page
  Dim i,str
  str=str & "

"
  str=escape(str)
  Response.Write(str)
 End If 
 rs.Close
 Set rs=Nothing
 conn.Close
 Set conn=Nothing
Else
 Response.Write(escape("Error：页数不能为空！"))
End If
%>