最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
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 & "
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=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
%>
相关文章
- 无主之地4引爆在即支线任务怎么做 引爆在即支线任务图文攻略 09-16
- 原神霜盏花怎么收集 霜盏花收集攻略 09-16
- 原神纳西妲绘想游迹怎么打-草神绘想游迹打法攻略 09-16
- 超级机器人大战Y再生增殖进化的邪念怎么过 终极进化战攻略 09-16
- 无主之地4支线绑架禁令怎么过 支线绑架禁令图文攻略 09-16
- 原神虹滴晶矿怎么收集 虹滴晶矿位置分享 09-16