因为文章有图片文字,东西很多,要分页,以下代码是我测试用的,可是什么作用,分不出来
自己已经晕了,快帮帮我把大侠们
<%
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
%>