| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 725 人关注过本帖
标题:ASP分页问题,在线等帮助
只看楼主 加入收藏
getery
Rank: 1
等 级:新手上路
帖 子:29
专家分:0
注 册:2007-8-31
收藏
 问题点数:0 回复次数:5 
ASP分页问题,在线等帮助
我在编写asp分页上遇到难关了。

我希望的显示方式为:
 01... << 02 03 04 05 06>>...尾页  跳转到[  ]页
如同本论坛的形式

但是我现在的现实方式缺将所有的分页数都显示出来了:
01 02 03 04 05 06 07 08 09
10 11 12 13

请问各位,如何编写才能达到我期望的布局方式?
搜索更多相关主题的帖子: ASP 在线 
2008-06-23 16:31
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
其实那种形式就是将页码进行的二次分页,楼主可以参考我写的分页类
https://bbs.bccn.net/viewthread.php?tid=37557&extra=page%3D2%26amp%3Bfilter%3Ddigest
2008-06-23 16:55
getery
Rank: 1
等 级:新手上路
帖 子:29
专家分:0
注 册:2007-8-31
收藏
得分:0 
非常感谢
2008-06-23 17:16
getery
Rank: 1
等 级:新手上路
帖 子:29
专家分:0
注 册:2007-8-31
收藏
得分:0 
请高手帮我看看代码,我该如何修改才能达到预期的效果?

<html>
<head>
<TITLE></TITLE>
</head>
<body bgcolor="#FFFFFF">
<font size="2">查询<b><font color=red>出入库</font></b>数据:&nbsp;&nbsp;
<font size="2">

<!--#INCLUDE file="ADOVBS.INC" -->
<%
form_text=request.form("text")


if form_text="" then
form_text=request.querystring("name")
end if

set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("database.mdb")

sqltemp="select * from deposit where 名称 like '%"&form_text&"%' order by id desc"

set rstemp=server.CreateObject("ADODB.Recordset")

set rs=conn.execute(sqltemp)

%>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=red><b>现在是:</b></font><%=now%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;<a href="./depositinfo.asp">返回</a><hr>

<%
if rs.eof or rs.bof then
%>
<%
response.write "数据库中无此数据"
%>

<%else%>

<%
scriptresponder="depositinfo_edit.asp"
scriptdel="depositinfo_del.asp"
IDfield="id"

mypage=request.querystring("whichpage")

if mypage=0 then
  mypage=1
end if
mypagesize=request.querystring("pagesize")
if mypagesize=0 then
  
  mypagesize=20
  
end if

rstemp.cursorlocation=aduseclient
rstemp.cachesize=5

rstemp.open sqltemp,conn

rstemp.movefirst

rstemp.pagesize=mypagesize
maxcount=cint(rstemp.pagecount)

rstemp.absolutepage=mypage

howmanyrecs=0

howmanyfields=rstemp.fields.count-1
response.write "页" & mypage &  "/"  & maxcount
%>

&nbsp;&nbsp;
共计&nbsp;<font color=red><b><%response.write rstemp.RecordCount%></b></font>&nbsp;条记录&nbsp;&nbsp;
每页:<font color="#FF0000"><b><%response.write rstemp.pagesize%></b> </font>条</font>


<hr>
<table border=1 bordercolor=gray>
<tr>
<td valign=top><font size="2">----</font></td>
<td valign=top><font size="2">----</font></td>
<%
for i=0 to howmanyfields
%>
<td><b>
<font size="2">
<%=rstemp(i).name%>
</font>
</b></td>
<%next%>
</tr>
<%
do while not rstemp.eof and howmanyrecs < rstemp.pagesize
%>
<tr>

<td valign=top>
<font size="2">
<%
my_link=scriptresponder&"?which=" & rstemp(idfield)
%><a href="<%=my_link%>">编辑</a>
</font>
</td>

<td valign=top>
<font size="2">
<%
my_del=scriptdel&"?which=" & rstemp(idfield)
%><a href="<%=my_del%>">删除</a>
</font>
</td>

<%
for i=0 to howmanyfields
%>

<td valign=top><font size="2"><%=rstemp(i)%></font></td>
<%next%>
</tr>
<%
rstemp.movenext
howmanyrecs=howmanyrecs+1
loop
rstemp.close
set rstemp=nothing
%>
<tr>
<td colspan=2 bgcolor=red align=center><font size=2><b>总计</b></font></td><td bgcolor=gray></td><td bgcolor=gray></td><td bgcolor=gray></td><td bgcolor=gray></td><td bgcolor=gray></td>
<td><font color=red size=2><input type=hidden name=rklzh value="">
    <%
    sumsql="select sum(入库量) from deposit where 名称 like '%"&form_text&"%' "    
    set sum=Server.CreateObject("adodb.recordset")
    sum.open sumsql,conn
    sumrk=sum(0)
    sumrks=round(sumrk,3)
    response.write sumrks
    sum.close
    set sum=nothing
    %>

    </font></td>
<td><font color=red size=2>
    <%
    sumsql="select sum(出库量) from deposit where 名称 like '%"&form_text&"%' "
    set sum=Server.CreateObject("adodb.recordset")
    sum.open sumsql,conn
    sumck=sum(0)
    sumcks=round(sumck,3)
    response.write sumcks
    sum.close
    set sum=nothing
    %>

</font></td>
<td bgcolor=gray></td><td bgcolor=gray></td><td bgcolor=gray></td><td bgcolor=gray></td><td bgcolor=gray></td><td bgcolor=gray></td>
</tr></table>

<p>
<font size="2">

<%
pad="0"
scriptname=Request.ServerVariables("script_name")
for counter=1 to maxcount
  if counter>=10 then
    pad=""
  end if
  ref="<a href='" & scriptname & "?whichpage="& counter
  ref=ref & "&name=" & form_text  & "'>"& pad & counter &"</a>"  
  response.write ref & " "
  if counter mod 10 = 0 then
    response.write "<br>"
  end if
next
%>

</font>
</p>


</body>
</html>
2008-06-23 17:42
天涯听雨
Rank: 2
来 自:东莞
等 级:论坛游民
威 望:4
帖 子:497
专家分:64
注 册:2007-8-25
收藏
得分:0 

从明天起做幸福的人,喂马劈柴周游世界!
2008-06-23 20:59
getery
Rank: 1
等 级:新手上路
帖 子:29
专家分:0
注 册:2007-8-31
收藏
得分:0 
非常感谢楼上的朋友
2008-06-24 09:25
快速回复:ASP分页问题,在线等帮助
数据加载中...
 
   



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

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