|
|
因为文章有图片文字，东西很多，要分页，以下代码是我测试用的，可是什么作用，分不出来
自己已经晕了，快帮帮我把大侠们
<%![]()
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
%> |
|
IP卡
狗仔卡
发表于 2010-1-11 03:50:11
收藏
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡