标题:[求助]FSO分页,我文章里内容很多有图片,用普通办法不能实现
只看楼主
乱毛
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2007-1-9
 问题点数:0 回复次数:1 
[求助]FSO分页,我文章里内容很多有图片,用普通办法不能实现

因为文章有图片文字,东西很多,要分页,以下代码是我测试用的,可是什么作用,分不出来
自己已经晕了,快帮帮我把大侠们
<%
id=119
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from news where id="&id,conn,1,1
mypath=trim(rs2("new_info"))

aabb=request.querystring("aabb")/1
if aabb="" or aabb<0 then aabb=0
set ff=server.createobject("scripting.filesystemobject")
set fff=ff.opentextfile(server.MapPath(mypath),1,true)
do while not fff.atendofstream
fff.skipline
bb=bb+1
loop
fff.close
set fff=ff.opentextfile(server.MapPath(mypath),1,true)
aa=(bb+9)\10
if aabb=aa then aabb=aabb-1
jj=aabb*10
while jj>0
fff.skipline
jj=jj-1
wend

response.write "<a href='jj.asp?aabb="&aabb-1&"'>上一页</a>&nbsp;&nbsp;<a href='jj.asp?aabb="&aabb+1&"'>下一页</a>&nbsp;&nbsp;"
response.write "<a href='jj.asp?aabb=0'>首页</a>&nbsp;&nbsp;<a href='jj.asp?aabb="&aa-1&"'>尾页</a>&nbsp;&nbsp;共"&aa&"页&nbsp;&nbsp;第"&aabb+1&"页<br>"
for i=1 to 10
response.write fff.readline&"<br>"
if fff.atendofstream then exit for
next
%>

搜索更多相关主题的帖子: FSO aabb 办法 set 
2007-07-29 14:05



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-158934-1-1.html




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

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