求一asp分页代码

DW制作一网页公告栏，数据库data里的公告栏表格名为news。里面有id、text两个字段。求一asp分页代码，要求每页显示5条公告栏信息。... DW制作一网页公告栏，数据库data里的公告栏表格名为news。里面有id、text两个字段。求一asp分页代码，要求每页显示5条公告栏信息。展开

 我来答

4个回答

#热议# 网上掀起『练心眼子』风潮，真的能提高情商吗？

dreamontheway
2008-10-18 · TA获得超过499个赞

知道小有建树答主

回答量：546

采纳率：0%

帮助的人：409万

我也去答题访问个人页

关注

展开全部

<%
db=data.mdb
constr="Microsoft.Jet.OLEDB.4.0; Data Source="&server.mappath(db)
set conn=server.createobject("ADODB.Connection") '创建一个数据库连接对象的实例
conn.open constr '打开数据库
%>
<%
dim sql,rs

sql="select * from news"
set rs=server.createobject("ADODB.RecordSet")
rs.open sql,conn,1,1

if rs.EOF then
response.write "暂无公告"
else
dim page_no '我定义的当前页
dim page_size '每页显示记录数
dim page_count ’总页

page_size=5
page_no = request.querystring("page_no")
if page_no = "" then
page_no = 1
else
page_no = Cint(page_no)
end if

page_count=rs.pagecount
page_no=rs.absolutepage

dim n
n=page_size
do while not rs.EOF and n>0
n=n-1
response.write "<li>" & <%=rs("text")%> & "</li>"
rs.movenext
loop

if page_no<>1 then
response.write "<a href='?page_no=1'>" & 首页 &"</a>  "
response.write "<a href='?page_no=<%=page_no-1%>'>" & 上一页 &"</a>  "
else
response.write "首页  上一页  "
end if

if page_no<>page_count then
response.write "<a href='?page_no='<%=page_no+1%>'>" & 下一页 &"</a>  "
response.write "<a href='?page_no=<%=page_count %>'>" & 尾页 &"</a>  "
else
response.write "下一页  尾页  "
end if
end if

rs.close
set rs=nothing
conn.close
set conn=nothing
%>
现给你打的代码，可能有错误...

本回答由提问者推荐

已赞过 已踩过<

评论收起

匿名用户
2008-10-18

展开全部

<%
set rs=server.createobject("adodb.recordset")
sql="select * from news order by id desc"
rs.open sql,conn,1,1
rs.pagesize=5 '每一页显示5条
if request("page")="" then
page=1
else
page=cint(request("page"))
end if
if page=0 then page=1
if page>rs.pagecount then page=rs.pagecount
rs.absolutepage=page
do while not rs.eof
response.write rs("id")&rs("text") '这裏就是你欲显示的资料
rs.movenext
if rs.eof then exit do
loop
%>

<%
if page<>1 then
response.write"<a href=?page=1>第一页</a>"
response.write"<a href=?page="&(page+1)&">上一页</a>"
end if
if page<>rs.pagecount then
response.write"<a href=?page="&(page-1)&">下一页</a>"
response.write"<a href=?page="&rs.pagecount&">最后一页</a>"
end if
rs.close
set rs=nothing
%>

已赞过 已踩过<

评论收起

cbs0503
2008-10-18 · TA获得超过329个赞

知道答主

回答量：75

采纳率：0%

帮助的人：90.2万

我也去答题访问个人页

关注

展开全部

<html>
<%@ language=vbscript%>
<%
set conn=server.createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("data.mdb")
%>

<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from news",conn,1,1
%>

<%
rs.PageSize=5 '指示Recordset中一页所包含的记录数
pagecount=rs.PageCount '使用PageCount属性可确定Recordset对象中数据的页数
page=int(request("page"))
If page<=0 then page=1
if request("page")="" then page=1
rs.Absolutepage=page '指定当前目录所在的页面
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>分页</title>
</head>

<body>
<%
if rs.eof and rs.bof then
response.write("暂时没有记录")
Else
for i=1 to rs.pagesize
response.write("id:" & rs("id"))
response.write("内容:" & rs("text"))
response.write("<hr>")
rs.Movenext
next
End if
%>

<p align=center>



<%
if page=1 and not page=pagecount then
%>
第一页|上一页|
<a href="fenye.asp?page=<%=page+1%>">下一页</a>|
<a href="fenye.asp?page=<%=pagecount%>">最后页</a>
<%
Elseif page<>1 and not page=pagecount then
%>
<a href="fenye.asp?page=1">第一页</a>|
<a href="fenye.asp?page=<%=page-1%>">上一页</a>|
<a href="fenye.asp?page=<%=page+1%>">下一页</a>|
<a href="fenye.asp?page=pagecount">最后页</a>
<%
Elseif page=pagecount then
%>
<a href="fenye.asp?page=1">第一页</a>|
<a href="fenye.asp?page=<%=page-1%>">上一页</a>|
下一页|最后页
<%end if%>
</p>

</body>

</html>

你可以自己根据需要稍作修改

已赞过 已踩过<

评论收起

百度网友bbb522f
2008-10-21 · TA获得超过175个赞

知道小有建树答主

回答量：414

采纳率：0%

帮助的人：140万

我也去答题访问个人页

关注

展开全部

<%'分页部分
dim ps
ps=sm
dim pw'总页
dim p'当前页
dim k '每页显示数目
k=sm
if request("p")="" then
p=1
else
p=int(request("p"))
end if
if (rs.recordcount mod ps)=0 then
pw=int(rs.recordcount/ps)
else
pw=int((rs.recordcount/ps))+1

end if
if p=pw then
k=(rs.recordcount-(p-1)*ps)
end if
if p <>1 then
rs.recordcount.Move((p-1)*ps)
end if
%>

<form name="formto" method="post" style="margin:0">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="50" valign="bottom">

<%if p=1 and p=pw then%>
<div align="left">       当前第<%=p%>页共<%=pw%>页
<select name="select1" style="font-size:12px" id="select1"onchange="xy()" >
<%for t=1 to pw%>
<option value=<%=t%> name=<%=t%> <%if t=p then%> selected="selected" <%end if%> ><%=t%></option>

<%next%>

</select>
    <span style="color:#CCCCCC">-首页|上一页|下一页|尾页-</span></div>
<%end if%>

<%if p=1 and p<>pw then%>
<div align="left">       当前第<%=p%>页共<%=pw%>页
<select name="select1" style="font-size:12px" id="select1" onchange="xy()">
<%for t=1 to pw%>
<option value=<%=t%> name=<%=t%> <%if t=p then%> selected="selected" <%end if%> ><%=t%></option>

<%next%>

</select>
    <span style="color:#CCCCCC">-首页|上一页|</span><a href="<%=dz%>?p=<%=p+1%>" class="bs">下一页</a>|<a href="<%=dz%>?p=<%=pw%>" class="bs">尾页</a>-</div>
<%end if%>

<%if p<>1 and p<>pw then%>
<div align="left">       当前第<%=p%>页共<%=pw%>页
<select name="select1" id="select1" style="font-size:12px" onchange="xy()">
<%for t=1 to pw%>
<option value=<%=t%> name=<%=t%> <%if t=p then%> selected="selected" <%end if%>onclick="xy()" ><%=t%></option>

<%next%>

</select>
    -<a href="<%=dz%>?p=1" class="bs">首页</a>|<a href="<%=dz%>?p=<%=p-1%>" class="bs">上一页</a>|<a href="<%=dz%>?p=<%=p+1%>" class="bs">下一页</a>|<a href="<%=dz%>?p=<%=pw%>" class="bs">尾页</a>-</div>
<%end if%>


<%if p=pw and p>1 then%>
<div align="left">       当前第<%=p%>页共<%=pw%>页
<select name="select1" id="select1" style="font-size:12px" onchange="xy()">
<%for t=1 to pw%>
<option value=<%=t%> name=<%=t%> <%if t=p then%> selected="selected" <%end if%>onclick="xy()" ><%=t%></option>

<%next%>

</select>
    -<a href="<%=dz%>?p=1" class="bs">首页</a>|<a href="<%=dz%>?p=<%=p-1%>" class="bs">上一页</a>|<span style="color:#CCCCCC">下一页|尾页-</span></div>
<%end if%>
</td>

</tr>

</table></form>
<%end if%>

已赞过 已踩过<

评论收起

更多回答（2）

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

求一asp分页代码

其他类似问题

为你推荐：