荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: Benison (四级又不过), 信区: Homepage
标 题: ASP、SQL SERVER的分页显示
发信站: BBS 荔园晨风站 (Sun Feb 4 01:09:52 2001), 转信
<%
page=Request.QueryString("page") '取page值
'数据库中查询
Set conn=Server.CreateObject("ADODB.Connection")
sql="select * from table"
Set rs=conn.Execute(sql)
rs.PageSize=30 '设置分的页数,设好后系统会自动将rs.PageCount计算出来
If Page<1 Then Page=1
If Page=null Then Page=1
If Page>rs.PageCount Then Page=rs.PageCount 'rs.PageCount是总页数
rs.AbsolutePage=page '将要显示的页数
If page<>1 Then
Response.Write"<a href=show.asp?page=1>首页</a>"
Response.Write"<a href=show.asp?page="&(page-1)前页</a>"
End If
If page<>rs.PageCount Then
Response.Write"<a href=show.asp?page="&(page+1)>后页</a>"
Response.Write"<a href=show.asp?page="&rs.PageCount>尾页</a>"
End If
'显示分页
For iPage=1 To rs.PageSize
%>
<%=rs("显示字段")%>
<%rs.MoveNext '若到尾部则跳出
If rs.EOF Then Exit For
Next
%>
--
※ 来源:·BBS 荔园晨风站 bbs.szu.edu.cn·[FROM: 192.168.39.177]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店