| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 436 人关注过本帖
标题:请教ASP分页技术
只看楼主 加入收藏
清心
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2006-4-16
收藏
 问题点数:0 回复次数:2 
请教ASP分页技术
查询出数据库数据表的信息之后,如何进行分页显示。即输入需要查询的信息,显示查询到的数据内容,并进行分页显示。请教各位高手,帮我编写一个以10条信息为一页的ASP分页技术源代码。

恳请高手指点,不胜感激!

搜索更多相关主题的帖子: ASP 技术 
2006-04-19 00:20
chain710
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2006-2-5
收藏
得分:0 
recordset.pagesize=10
set recordset = conn.execute("select * from tableA where keyword=xxx")
recordset.AbsolutePosition=(curPage-1)pageSize+1

差不多吧~~~
2006-04-19 09:27
冰镇柠檬汁儿
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:北京
等 级:版主
威 望:120
帖 子:8078
专家分:6657
注 册:2005-11-7
收藏
得分:0 

<TABLE id="Table1" cellSpacing="0" cellPadding="0" width="100%" border="0">
<TR>
<TD>
<P align="center">企业名称</P>
</TD>
<TD>
<P align="center">企业关键字</P>
</TD>
<TD>
<P align="center">企业性质</P>
</TD>
<TD>
<P align="center">企业缩写</P>
</TD>
<TD>
<P align="center">操作</P>
</TD>
</TR>
<%
rsBaoMing.PageSize = 10
if IsEmpty(request("page")) then
page=1
else
if not IsNumeric(request("page")) then
page=1
else
page=CLng(request("page"))
end if
end if
if page<1 then page=1
if page>rsBaoMing.pagecount then page=rsBaoMing.pagecount
if not rsBaoMing.eof then
rsBaoMing.AbsolutePage=page
cc=page*rsBaoMing.pagesize
if cc>rsBaoMing.recordcount then
cc=rsBaoMing.recordcount
end if
end if

if not rsBaoMing.EOF then
for x=1 to rsBaoMing.PageSize
%>
<TR>
<TD width="40%" align="center">
&nbsp;<%=rsBaoMing("CorporationName")%>&nbsp;
</TD>
<TD width="15%" align="center">
&nbsp;<%=rsBaoMing("CorporationKeyWord")%>&nbsp;
</TD>
<TD width="15%" align="center">
&nbsp;<%=rsBaoMing("CorporationKind")%>&nbsp;
</TD>
<TD width="20%" align="center">
&nbsp;<%=rsBaoMing("CorporationAbbreviate")%>&nbsp;
</TD>
<TD width="10%" align="center">
<a href="baomingInfo.asp?id=<%=rsBaoMing("id")%>">查看</a>
</TD>
</TR>
<%
rsBaoMing.MoveNext
if rsBaoMing.EOF then
exit for
end if
next
end if
%>
</TABLE>
<table align="right">
<tr align="right">
<td>
<%
if rsBaoMing.pagecount>0 then
pc=rsBaoMing.pagecount
if page <> 1 then
response.write "&nbsp;<a href='baomingList.asp?page=1'>首页</a> |"
response.write "&nbsp;<a href='baomingList.asp?page="&(page-1)&"'>前页</a> |"
else
response.write " 首页 | 前页 |"
end if
if page <> rsBaoMing.pagecount then
response.write "&nbsp;<a href='baomingList.asp?page=" & (page+1) & "'>后页</a> |"
response.write "&nbsp;<a href='baomingList.asp?page=" & rsBaoMing.pagecount &"'>尾页</a> "
else
response.write " 后页 | 尾页 "
end if
response.write "&nbsp;&nbsp; 第 " & page & " /" & rsBaoMing.pagecount & " 页"
end if
%>
</td>
</tr>
</table>

这是我常用的分页


本来无一物,何处惹尘埃
It is empty at all here, Why pm 2.5 is so TMD high!
2006-04-19 09:41
快速回复:请教ASP分页技术
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.043465 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved