急！

[flyingship23]

在asp中怎么实现数据分页显示

[moodboy1982]

分页程序。可以自己写，也可以下载。

[邦迪代驾]

set rs=Server.CreateObject("adodb.recordset")

sql="select * from Service order by ID desc"

rs.open sql,conn,1

rs.pagesize=15

IF rs.Eof THEN

Response.Write("<font size=2 color=#000080>[数据库中没有记录]</font>")

response.end

ELSE

CurrentPage=request("CurrentPage")

if not isnumeric(CurrentPage) then CurrentPage=1

CurrentPage=Clng(CurrentPage)

if CurrentPage<1 then CurrentPage=1

if CurrentPage>rs.pagecount then CurrentPage=rs.Pagecount

rs.AbsolutePage=CurrentPage

[sky0120]

baidu一下 or google一下，遍地都是

[slimpotato]

set rs = server.CreateObject("ADODB.Recordset") '声明记录集
rs.open listUserSql,conn,1,1 '打开记录集

rs.pagesize = 10 '设置一页要显示多少条记录
rs.absolutepage = 2 '当前是处在记录的第几页

以上就是ASP分页中的核心部分
另外 rs.pagecount 是总页数

[flyingship23]

set rs=Server.CreateObject("adodb.recordset")

sql="select * from Service order by ID desc"

rs.open sql,conn,1

rs.pagesize=15

IF rs.Eof THEN

Response.Write("<font size=2 color=#000080>[数据库中没有记录]</font>")

response.end

ELSE

CurrentPage=request("CurrentPage")

if not isnumeric(CurrentPage) then CurrentPage=1

CurrentPage=Clng(CurrentPage)

if CurrentPage<1 then CurrentPage=1

if CurrentPage>rs.pagecount then CurrentPage=rs.Pagecount

rs.AbsolutePage=CurrentPage

飞扬
加上这样几句就可以了吧？
//vbscript
dim i
i=pagesize
while not rs.eof and i>0
response.write("....")
wend

[R_Kill]

<%
page=clng(request("page"))
rs.pagesize=20
if page < 1 or page = "" then page = 1
if page > rs.pagecount then page= rs.pagecount
on error resume next
rs.absolutepage = page
for i=1 to rs.pagesize
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="zzz">
<tr><td colspan="1" height="30" class="cd">
<p align="center">共有<%=rs.recordcount%>条信息
<%
response.write "<a href=k_1.asp?page=1>首 页</a>  "
response.write "<a href=k_1.asp?page="&(page-1)&">上一页</a>  "
response.write "<a href=k_1.asp?page="&(page+1)&">下一页</a>  "
response.write "<a href=k_1.asp?page="&rs.pagecount&">末 页</a>  "
%>
跳转到：
<select name="menu1" onChange="javascript:if (this.options [this.selectedIndex].value!='#'){window.open (this.options[this.selectedIndex].value)}" >
<%for n=1 to rs.pagecount%>
<option value="k_1.asp?page=<%=n%>"><%=n%></option>
<%
next
%>
</select>
</p></td>
</tr>
</table>