标题: [求助]FSO分页，我文章里内容很多有图片，用普通办法不能实现 [打印本页] 作者: dd.娘孓 时间: 2010-1-11 03:50 标题: [求助]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> <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
%>
