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

Secret

电梯直达

1^#

发表于 2010-1-8 02:21:05 | 只看该作者回帖奖励

|正序浏览 |阅读模式

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

收藏0

使用道具举报

随chu风liu

6^#

发表于 2010-1-8 02:21:19 | 只看该作者

<%
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&"页  <a href='jj.asp?aabb="&aabb+1&"'>下一页</a>  第"&aabb+1&"页 "
for i=1 to 10
response.write fff.readline&" "
if fff.atendofstream then exit for
next
%>

看了你的贴后,第一次做,也许做的不好,你改一下,要睡了只做了下一页

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

回复支持反对

使用道具举报

想念~！

5^#

发表于 2010-1-8 02:21:17 | 只看该作者

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

回复支持反对

使用道具举报

々無極風嘯々

4^#

发表于 2010-1-8 02:21:14 | 只看该作者

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&"页 "
for i=1 to 10
response.write fff.readline&" "
if fff.atendofstream then exit for
next
%>

回复支持反对

使用道具举报

生活的成功者

3^#

发表于 2010-1-8 02:21:11 | 只看该作者

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

回复支持反对

使用道具举报

‖蠻忝謃☆

2^#

发表于 2010-1-8 02:21:08 | 只看该作者

以下是引用盖世豪侠在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&"页 "
for i=1 to 10
response.write fff.readline&" "
if fff.atendofstream then exit for
next
%>
这里我先谢谢了，不过有点问题，读出来的图片有的没了，或读不出来，
有没有别的方法了谢谢

回复支持反对

使用道具举报

		自动登录	找回密码
密码			注册