| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1509 人关注过本帖
标题:[求助]在asp中怎样实现分页打印?
取消只看楼主 加入收藏
windy2yuyu
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2005-8-3
收藏
 问题点数:0 回复次数:7 
[求助]在asp中怎样实现分页打印?
   我要打印的东西很多,所以要分页打,但分好页后一次只能打印一页,不能连续打下去,还有就是分页后连“上一页”,“下一页”这些字也打出来了,这怎么办啊?
搜索更多相关主题的帖子: asp 打印 
2005-09-16 09:04
windy2yuyu
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2005-8-3
收藏
得分:0 
呵呵,,,这个我也知道,但老板要求这样我也没办法啊。
还有就是那个分页的问题,我用的是一种原始的方法
PageSize =10
PageCount=(PageCount+PageSize-1)\PageSize
Page = CLng(Request("Page"))
'分页显示
If not Page >1 Then Page = 1
If Page > PageCount Then Page = PageCount
i=page+(page-1)*9
rs.AbsolutePage = Page
For iPage = 1 To PageSize
按这个分出来的很正常,
但是我把pagesize改为其他的比如pagesize=15
                          然后i=page+(page-1)*14
这就不行了,他非要每页都显示15个记录,如果不足15个他会到前面挑几个在后面补足,
这是杂回事捏???
2005-09-16 10:14
windy2yuyu
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2005-8-3
收藏
得分:0 
楼主,不懂你的意思是什么啊,?
2005-09-16 11:07
windy2yuyu
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2005-8-3
收藏
得分:0 
那不是跟我的问题一样的吗,最后一页一定要15条,不足15条还要补足。。。。
我就是不要他补足啊
2005-09-16 11:35
windy2yuyu
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2005-8-3
收藏
得分:0 

我是这样分的, PageCount=0 sql="select * from proj_info where projyear like '"& pyear &"' and ifshenhe3 like '"& tongguo &"' and projname like '%%"& pname &"%%' and entername like '"& uname &"' and usercode like '"& ucity &"' and projsort like '"& psort &"' and ifshenhe1 like '"& ifsh1 &"' order by id" set rs=conn.execute(sql) while not rs.eof PageCount=PageCount+1 rs.movenext wend sql="select * from proj_info where projyear like '"& pyear &"' and ifshenhe3 like '"& tongguo &"' and projname like '"& pname &"' and entername like '"& uname &"' and usercode like '"& ucity &"' and projsort like '"& psort &"' and ifshenhe1 like '"& ifsh1 &"' order by id" set rs=server.createobject("adodb.recordset") rs.open sql,conn,3,2 on error resume next

PageSize =15 PageCount=(PageCount+PageSize-1)\PageSize Page = CLng(Request("Page")) '分页显示 If not Page >1 Then Page = 1 If Page > PageCount Then Page = PageCount i=page+(page-1)*14 rs.AbsolutePage = Page For iPage = 1 To PageSize %> <tr height="30"> <td><div align="center"><%=i%></div></td> <td><div align="center"><%=rs("projyear")%></div></td> <td width="220"><%=rs("entername")%></td> <td width="220"><%=rs("projname")%></td> <td><div align="center"><%=rs("projsort")%></div></td> <td><div align="center"><%=rs("shenqsum")%></div></td> <td><div align="center"><%=rs("cpifusum")%></div></td> <td><div align="center"><%=rs("ppifusum")%></div></td> <td><div align="center"><%=rs("city")%></div></td> </tr> <% rs.MoveNext If rs.EOF Then Exit For i=i+1 Next %> </table> <div ALIGN="right"> <table> <form ACTION="<%=Myself%>?ifsh1=<%=ifsh1%>&pyear=<%=pyear%>&pname=<%=pname%>&tongguo=<%=tongguo%>&uname=<%=uname%>&ucity=<%=ucity%>&psort=<%=psort%>%&gt;" METHOD="GET"><tr><td><p></td> </tr> <td> <p ALIGN="right"><%If Page <> 1 Then ' 如果不是位于第一页%> <a href="<%=Myself%>?Page=1&ifsh1=<%=ifsh1%>&pyear=<%=pyear%>&pname=<%=pname%>&tongguo=<%=tongguo%>&uname=<%=uname%>&ucity=<%=ucity%>&psort=<%=psort%>"> 第一页</a> <a HREF="<%=Myself%>?Page=<%=(Page-1)%>&ifsh1=<%=ifsh1%>&pyear=<%=pyear%>&pname=<%=pname%>&tongguo=<%=tongguo%>&uname=<%=uname%>&ucity=<%=ucity%>&psort=<%=psort%>"> 上一页</a> <%End If If Page <> PageCount Then ' 如果不是位于最后一页 %> a HREF="<%=Myself%>?Page=<%=(Page+1)%>&ifsh1=<%=ifsh1%>&pyear=<%=pyear%>&pname=<%=pname%>&tongguo=<%=tongguo%>&uname=<%=uname%>&ucity=<%=ucity%>&psort=<%=psort%>"> 下一页</a> <a HREF="<%=Myself%>?Page=<%=PageCount%>&ifsh1=<%=ifsh1%>&pyear=<%=pyear%>&pname=<%=pname%>&tongguo=<%=tongguo%>&uname=<%=uname%>&ucity=<%=ucity%>&psort=<%=psort%>"> 最后一页</a> <% End If %> </p> </td> </tr> </table>

2005-09-16 13:44
windy2yuyu
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2005-8-3
收藏
得分:0 
嘿嘿,,,,谢谢两位,俺先试试啊
2005-09-19 08:18
windy2yuyu
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2005-8-3
收藏
得分:0 
我的数据都是从数据库里面查出来的,要进入页面的时候才能生成,而不是早就在那的啊,
2005-09-19 08:43
windy2yuyu
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2005-8-3
收藏
得分:0 
以下是引用tang688在2005-9-18 16:29:36的发言: 哈哈,这个我的办法最好,其实你只要对IE进行一下设置就可以很方便地解决你的问题 不必这么麻烦的,还写一大堆的东东. 你只需要这么做 在IE中点文件,点打印,在打印的对话框中选选项,进入选项的对话框后把"打印链接的所有文件"前的钩给打上就可以了 注意 这样会把所有的页面都打出了,如果你只想打几页,请在程序中把你要打的东东选出就可以了
呵呵,你这个方法对付静态的页面有用,但我这个是 动态的,你没看到就是不存在啊,这怎么搞呢
2005-09-19 09:08
快速回复:[求助]在asp中怎样实现分页打印?
数据加载中...
 
   



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

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