'==================================================
'过程名:listbody
'作 用:按要求显示文章内容
'参 数:body ------ 文章内容
'==================================================
Sub listbody(body)
dim arrbody,pages
if Instr(body,"[NextPage]")<=0 then
response.write body
'response.write "</p><p align='center'><font color='red'><b>[1]</b></font></p>"
else
CurPage=request("CurPage")
arrbody=split(body,"[NextPage]")
pages=Ubound(arrbody)+1
if CurPage="" then
CurPage=1
else
CurPage=Cint(CurPage)
end if
if CurPage<1 then CurPage=1
if CurPage>pages then CurPage=pages
response.write arrbody(CurPage-1)
response.write "<div align=center>"
for i=1 to pages
if i=Curpage then response.write "[<font color=red>"&i&"</font>] " else response.write "[<a href=?id="&id&"&CurPage="&i&">"&i&"</a>] "
next
response.write "</div>"
end if
End Sub
%>
文章内容:<% call(listbody(rs("content")))%>
不过你增加内容的时候,在需要换页的地方加上[NextPage],注意大小写哦!
更多的文章内容分页!请到论坛查看: http://BBS.TC711.COM
【 双击滚屏 】 【 评论 】 【 收藏 】 【 打印 】 【 关闭 】
来源:
互联网
日期:2006-5-16