用FSO读出的文章，如何分页 - ASP技术论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → WEB开发 → 『 ASP技术论坛』 → 用FSO读出的文章，如何分页

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 654 人关注过本帖

标题：用FSO读出的文章，如何分页

取消只看楼主加入收藏

乱毛

等　级：新手上路
帖　子：32
专家分：0
注　册：2007-1-9

楼主

问题点数：0 回复次数：2

用FSO读出的文章，如何分页

用FSO读出的文章，如何分页
这里把读出来
mypath=trim(rs2("new_info"))
set fso=server.CreateObject("scripting.filesystemobject")
if not fso.fileexists(mypath) then
set ts=fso.OpenTextFile(server.MapPath(mypath),1,true)
response.write ts.readall 这里显示，
ts.close
set ts=nothing
end if
如果，文章过长，我怎么分页啊
有人说用算字数的方法，，可是在我的文件里还有HTML的代码都要给算进去了，有什么方法可以分页呢，
谢谢能给个全点的

搜索更多相关主题的帖子: FSO　

2007-07-27 21:35

乱毛

等　级：新手上路
帖　子：32
专家分：0
注　册：2007-1-9

第 2 楼

得分:0

以下是引用盖世豪侠在2007-7-28 8:13:26的发言：
jj.asp

<%
aabb=request.querystring("aabb")/1
if aabb="" or aabb<0 then aabb=0
set ff=server.createobject("scripting.filesystemobject")
set fff=ff.opentextfile("f:/asp/66.txt")
do while not fff.atendofstream
fff.skipline
bb=bb+1
loop
fff.close
set fff=ff.opentextfile("f:/asp/66.txt")
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>  <a href='jj.asp?aabb="&aabb+1&"'>下一页</a>  "
response.write "<a href='jj.asp?aabb=0'>首页</a>  <a href='jj.asp?aabb="&aa-1&"'>尾页</a>  共"&aa&"页  第"&aabb+1&"页<br>"
for i=1 to 10
response.write fff.readline&"<br>"
if fff.atendofstream then exit for
next
%>

这里我先谢谢了，不过有点问题，读出来的图片有的没了，或读不出来，
有没有别的方法了谢谢

to be and to be 勤奋是成功的唯一途径

2007-07-28 10:10

乱毛

等　级：新手上路
帖　子：32
专家分：0
注　册：2007-1-9

第 3 楼

得分:0

文章分页还有什么好方法，

to be and to be 勤奋是成功的唯一途径

2007-07-28 10:11

快速回复：用FSO读出的文章，如何分页