ajax实现分页效果二

时间：2022-07-02 23:20:34 编辑：袖梨来源：一聚教程网

// 调用数据库了,

<%
'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 & "

"
  For i=1 To rs.pagesize
   str=str & rs("id") & ". " & rs("webname") & "
"
   rs.movenext
   If rs.eof Then Exit For
  Next
  str=str & "

"
  str=str & "<< "
  For i=1 To rs.pagecount
   If i=page Then
    str=str & "" & i & " "
   Else
    str=str & "" & i & " "
   End If
  Next
  str=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
%>

蓝色星原旅谣雷冠牦boss打法指南 05-14
抖店地址fxg.jinritemai.com-抖音小店2026官网直达 05-14
生存33天正义之锤技能效果介绍 05-14
3DMAX9最新版入口 05-14
剑与远征13周年兑换码2026详情 05-14
养车侠如何解除手机号绑定 05-14

推荐专题

最新下载

热门教程

ajax实现分页效果二

相关文章

热门栏目

php教程

asp.net教程

手机开发

css教程

网页制作

办公数码

jsp教程