用ASP怎样写分页显示数据库？高分求助!!

zhengshier 2003-02-12 11:49:06

我是一个ASP初学者，对ASP写分页显示的程序一直不明白，想请各位大哥大姐帮帮忙？能否给我一个完整的数据库分页显示的程序。第一页都有"首页，上一页，下一页，尾页"等。谢谢！！！！

...全文

208 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

allforly 2003-02-12

打赏
举报

http://expert.csdn.net/Expert/topic/1400/1400886.xml?temp=.3571894

yufeizhan 2003-02-12

打赏
举报

<%
sql="select * from guest order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "还没有任何留言"
else
'分页的实现
listnum=12
Rs.pagesize=listnum
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
'编号的实现
j=rs.recordcount
j=j-(page-1)*listnum

i=0
do while not rs.eof and i<listnum
%>

...

<%
rs.movenext
i=i+1
j=j-1
loop
%>
<table width="650" height="17" align=center cellpadding="0" cellspacing="0" class="bodytablebottom"><tr><%
filename="index.asp"
response.write "<form method=post action="&filename&">"
%>
<td width="100%"> 总计留言<%=Rs.recordcount%>条共有<%=page%>/<%=Rs.pagecount%>页
<% if page=1 then %>
<%else%>
<a href=<%=filename%>?page=<%=page-1%>>上一页</a>
<%end if%>
<% if Rs.pagecount-page <> 0 then %>
<a href=<%=filename%>?page=<%=page+1%>>下一页</a>
<%else%>
<%end if%>
<%
response.write "转到：<input class=smallInput type='text' name='page' size=4 maxlength=10 value="&page&">"
response.write "<input class=noborder type='submit' value='Go' name='cndok'>"
%>
</td>
<%end if%></tr></form>
</table>

csdntoll 2003-02-12

打赏
举报

不怕头晕的话，可以看看：


<% Title="会员管理" %>


<%
if request.querystring("page")="" then
ipagecurrent=1
else
ipagecurrent=cint(request.querystring("page"))
end if

%>

 
 <a href="admin_membersearch.asp">查找会员</a>
<table width="90%" border="0" cellspacing="1" cellpadding="4" bgcolor="#000000">
<tr align="center" bgcolor="#C4E9FF" valign=bottom>
<td width="15%" height="22">用户名</td>
<td width="10%" height="22">Surname</td>
<td width="15%" height="22">First name</td>
<td width="20%" height="22">手提电话</td>
<td width="30%" height="22">Email</td>
<td width="10%" height="22">删除</td>
</tr>
<%
dim conn,rs
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("user.mdb")
set rs=server.createobject("adodb.recordset")

sql="select userID,username,surname,firstname,mobile,email from personal order by username"
rs.pagesize = 20
rs.cachesize = 20
rs.open sql,conn,1,1

ipagecount = rs.pagecount
If ipagecurrent > ipagecount Then ipagecurrent = ipagecount
If ipagecurrent < 1 Then ipagecurrent = 1
if ipagecount=0 then
response.write "没有任何数据"
else
rs.absolutepage = ipagecurrent
irecordsshown = 0
do while irecordsshown<20 and NOT rs.EOF
if irecordsshown mod 2 = 0 then
%>
<tr bgcolor="#e6eef6" class=t>
<td width="15%" height="23"><a href="admin_memberinfo.asp?userid=<%=rs("UserID")%>"><%=rs("username")%></a></td>
<td width="10%" height="23"><%=rs("surname")%></td>
<td width="15%" height="23"><%=rs("firstname")%></td>
<td width="20%" height="23"><%=rs("mobile")%></td>
<td width="30%" height="23"><a href="mailto:<%=rs("email")%>"><%=rs("email")%></a></td>
<td width="10%" height="23" align="center"><a href="admin_memberdel.asp?userid=<%=rs("UserID")%>"><img src="images/admin_del.gif" border=0></a></td>
</tr>
<%
else
%>
<tr bgcolor="#ffffff" class=t>
<td width="15%" height="23"><a href="admin_memberinfo.asp?userid=<%=rs("UserID")%>"><%=rs("username")%></a></td>
<td width="10%" height="23"><%=rs("surname")%></td>
<td width="15%" height="23"><%=rs("firstname")%></td>
<td width="20%" height="23"><%=rs("mobile")%></td>
<td width="30%" height="23"><a href="mailto:<%=rs("email")%>"><%=rs("email")%></a></td>
<td width="10%" height="23" align="center"><a href="admin_memberdel.asp?userid=<%=rs("UserID")%>"><img src="images/admin_del.gif" border=0></a></td>
</tr>
<%
end if
irecordsshown = irecordsshown +1
rs.MoveNext
loop
end if
%>
</table>
 
<%
Response.Write"<table width='90%' border='0' cellspacing='0' cellpadding='4' class='s'><form name='form1' method='get' action='admin_member.asp'><tr><td height='20' width='120'>共有 "&rs.recordcount&" 位会员 </td><td height='20' align='right'> "&ipagecurrent&"/"&ipagecount&" 页 "
if ipagecurrent=1 then
Response.Write"首页 | "
else
Response.Write"<a href='admin_member.asp?page=1'>首页</a> | "
end if
if ipagecurrent=1 then
Response.Write"上一页 | "
else
Response.Write"<a href='admin_member.asp?page="&ipagecurrent-1&"'>上一页</a> | "
end if
if ipagecount>ipagecurrent then
Response.Write"<a href='admin_member.asp?page="&ipagecurrent+1&"'>下一页</a> "
else
Response.Write"下一页"
end if
if ipagecount>ipagecurrent then
Response.Write" | <a href='admin_member.asp?page="&ipagecount&"'>末页</a> "
else
Response.Write" | 末页 "
end if
Response.Write"</td></tr></table>"
%>

bluesmile979 2003-02-12

打赏
举报

CS="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("..\db\database.mdb")
DBC.open CS
set RS=Server.CreateObject("ADODB.Recordset")
RS.open "select * from list where user_id='"&user_id&"'",DBC,1,2

set BS=Server.CreateObject("ADODB.Recordset")
BS.open "select * from board where board_no="&board_no&"",DBC,1,2

set DS=Server.CreateObject("ADODB.Recordset")

DS.open "select count(*) from article where board_no="&BS("board_no")&"",DBC,1,2
count=DS(0)
DS.close

DS.open "select count(*) from article where self_no=1 and board_no="&BS("board_no")&"",DBC,1,2
art_count=cint(DS(0))
DS.close

dim recount() 'ｶｨﾒ衞ﾗ・
redim recount(art_count) 'ﾖﾘｶｨﾒ衞ﾗ鬟ｬﾎｪﾁﾋﾓﾃｱ菽ｿｶｨﾒ衞ｾﾝｴ｡
for i=1 to art_count
DS.open "select count(*) from article where art_no="&i&" and board_no="&BS("board_no")&""
recount(art_count+1-i)=DS(0)-1
DS.close
next 'ｽｫｸ簧ﾄﾕﾂｵﾄｻﾘｸｴﾊﾁｿｸｳｸﾗ魴ﾄﾏ獗ｦｵﾄﾔｪﾋﾘ
%>
<center>ﾀｸﾄｿ:<%=BS("board_name")%></center>
<%

if count=0 then
%>
<center>ｱｾﾀｸﾄｿﾄｿﾇｰﾃｻﾓﾐﾎﾄﾕﾂ</center>
<a style=text-indent:150 href="post.asp?board_no=<%=board_no%>">ｷ｢ﾑﾔ</a>
<%
else
%>

<%
DS.open"select * from article where board_no="&BS("board_no")&" and self_no=1 order by write_time desc"
'aspﾖﾐｵﾄｷﾖﾒｳｼｼﾊｬPageSize,PageCount,AbsolutePageｶｼﾊﾇrecordsetｵﾄﾊﾔ
DS.pagesize=20

if not IsEmpty(Request.QueryString("ToPage")) then
DS.AbsolutePage = ToPage
else
DS.MoveFirst
DS.AbsolutePage = 1
end if
Current_Page = DS.AbsolutePage
%>
<table width=80% align=center>
<td width=40% align=left>

ｵﾚ<%=Current_Page%>ﾒｳ/ｹｲ<%=DS.PageCount%>ﾒｳ
ｹｲﾓﾐ<%=art_count%>ﾆｪﾎﾄﾕﾂ

</td>
<td width=40% align=right>

<a href="post.asp?board_no=<%=board_no%>">ｷ｢ﾑﾔ</a>

</td>
</table>
<table align=center width=80% border=1 >
<tr>
<td width=4% align=center>ﾐﾅ</td>
<td width=33% align=center>ｱ・・/font></td>
<%
if user_kind=0 then
j=1
else
set SS=Server.CreateObject("ADODB.Recordset")
for i=DS.pagesize*(DS.pagecount-current_page+1) to 1+(DS.pagecount-current_page)*DS.pagesize step -1
if i<=art_count then
SS.open "select * from article where board_no="&BS("board_no")&" and self_no=1 and art_no="&i&"",DBC,1,2
if user_id=SS("author") then
j=1
end if
SS.close
end if
next
end if

if user_kind=0 then
%>
<td width=3% align=right>ﾗｪﾌ・/font></td>
<%
end if

if j=1 then
%>
<td width=10% align=center>ｲﾙﾗ・/font></td>
<%
end if
%>
<td width=10% align=center>ﾗﾟ</td>
<td width=15% align=center>ﾊｱｼ・/font></td>
<td width=5% align=center>ｻﾘｸｴ</td>
</tr>
<%
call display_page(DS,current_page,j)

%>

<center>

<% if Current_Page <> 1 then %>
<a href=board.asp?ToPage=1&board_no=<%=board_no%>>ｵﾚﾒｻﾒｳ</a>
<a href=board.asp?ToPage=<%=Current_Page-1%>&board_no=<%=board_no%>>ﾉﾏﾒｻﾒｳ</a>
<%
end if
if Current_Page <>DS.PageCount then
%>
<a href=board.asp?ToPage=<%=Current_Page+1%>&board_no=<%=board_no%>>ﾏﾂﾒｻﾒｳ</a>
<a href=board.asp?ToPage=<%=DS.PageCount%>&board_no=<%=board_no%>>ﾗ鋓ｻﾒｳ</a>
<%end if%>
<%end if%>
<a href="show.asp?judge=1">
ｷｵｻﾘﾂﾛﾌｳ</a>
<a href="..\default.asp">
ﾍﾋｳﾛﾌｳ</a>

</center>

<hr align=center width=80% size=2 color=#000000>

<center>BlueSmileｹ､ﾗﾒｰ貶ｨﾋﾐ</center>
</BODY>
</HTML>

bluesmile979 2003-02-12

打赏
举报

现在不怎么用asp了，下面程序写过很久了，你看看吧

因为我是日文系统，中文变乱码了，不好意思。

<%
sub Display_Page(DS, page,view)
DS.AbsolutePage=page
j=view

for i=1 to DS.PageSize
if not DS.EOF then
%>
<tr>
<td width=4% align=center><%=i+(page-1)*DS.pagesize%></td>

<td width=32% align=left>
<a href="article.asp?board_no=<%=board_no%>&art_no=<%=DS("art_no")%>&title=<%=DS("title")%>&ToPage=<%=DS.AbsolutePage%>"><%=DS("title")%></a>
</td>
<%
if user_kind=0 then
%>
<td width=5% align=right>
<a href="..\manage\art_move.asp?board_no=<%=board_no%>&art_no=<%=DS("art_no")%>&to_page=<%=DS.AbsolutePage%>">ﾗｪﾌ・/a>
</td>
<%
end if
%>
<%
if j=1 then
if user_id=DS("author") or user_kind=0 then
%>
<td width=9% align=center>

<a href="art_del.asp?art_no=<%=DS("art_no")%>&self_no=<%=DS("self_no")%>&board_no=<%=board_no%>&author=<%=DS("author")%>&ToPage=<%=DS.AbsolutePage%>">
ﾉｾｳ</a>

<a href="..\manage\alter.asp?judge=2&art_no=<%=DS("art_no")%>&self_no=<%=DS("self_no")%>&board_no=<%=board_no%>&author=<%=DS("author")%>&ToPage=<%=DS.AbsolutePage%>">
ﾐﾞｸﾄ</a>
</td>
<%
else
%>
<td width=5%> </td>
<%
end if
end if
%>
<td width=10% align=center>
<a href="author.asp?author=<%=DS("author")%>" target=blank><%=DS("author")%>
</a></td>
<td width=15% align=center><%=DS("write_time")%></td>
<td width=5% align=center><%=recount(i+(page-1)*DS.pagesize)%></td>
</tr>
<%
DS.MoveNext
end if
Next
Response.Write "</table>"
end sub
'ﾕ篋ｯﾊ｣ｬﾊﾇﾓﾃﾀｴﾔﾚｷﾖﾒｳｹｳﾌﾖﾐﾊ菠・ｿﾒｳｵﾄﾄﾚﾈﾝ
%>
<HTML>
<HEAD>
<TITLE>ACCPﾑｧﾊﾛﾌｳ</TITLE>
</HEAD>
<BODY>
 
<h1><center>ACCPﾑｧﾊﾛﾌｳ--ﾌﾖﾂﾛﾇ・/font></center></h1>
<hr align=center width=80% size=2 color=#000000>
<%
user_id=session("user_id")
user_key=session("user_key")
user_kind=session("user_kind")
board_no=request.querystring("board_no")

ToPage=cint(request.querystring("ToPage"))
%>

<hr align=center width=80% size=2 color=#000000>
<%
set DBC=Server.CreateObject("ADODB.Connection")

sqlserver数据库分页问题，急、、、楼主zhaosy（盛）2005-11-03 11:04:18 在 Java / J2SE / 基础类提问各位兄弟姐妹，这个程序再oracle、mysql上执行没任何问题其中：$where为条件，currentPage为当前页码，...

这样的数据列表在存储过程中应该怎么样选择得到？请问造成SQL2000服务不能启动的原因有哪些？ sql server中有無類似于if 的函數,即像這樣select if(cancel=1,'cancel','') from sales 这样怎么返回呀！！！！...

http://blog.donews.com/lvjiyong/archive/2006/06/29/931071.aspx怎样将后台生成的在内存中的图象显示到客户端Microsoft IE WebControls下载地址如何在DATAGRID中使用JAVASCRIPT脚本控制DataGrid中连接到下一页显示...

现在我的企业管理器打不开了，只能用查询分析器，可我不知道怎样用SQL语句在原表的基础上增... 复制表结构判断表是否为空？查询结果问题？比较两个表中的记录是否一致？高分请教一条SQL语句帮我看看，怎么回事...

使用webmagic采集博客类的网站示例