用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的代码都要给算进去了，有什么方法可以分页呢，
谢谢能给个全点的

这种分页不太好做，有可能把HTML代码也给分开了。

[QUOTE]<%
aabb=request.querystring("aabb")/1
if aabb="" 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 "共"&aa&"页&nbsp;&nbsp;<a href='jj.asp?aabb="&aabb+1&"'>下一页</a>&nbsp;&nbsp;第"&aabb+1&"页<br>"
for i=1 to 10
response.write fff.readline&"<br>"
if fff.atendofstream then exit for
next
%>[/QUOTE]
看了你的贴后,第一次做,也许做的不好,你改一下,要睡了只做了下一页

注意: 你存文件时把换行符换成了< B R >就不能用这种方法了

jj.asp
[QUOTE]<%
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>&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
%>[/QUOTE]

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

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