<!-----------分页代码------------------>
<%'==================================================
'过程名:listbody
'作 用:按要求显示文章内容
'参 数:body ------ 文章内容
'==================================================
Sub listbody(body)
dim arrbody,pages
if Instr(body,"//")<=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,"//")
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><br><br>文章共"&pages&"页 "
for i=1 to pages
if i=Curpage then response.write "[<font color=red>"&i&"</font>] " else response.write "[<a href=?unid="&unid&"&CurPage="&i&">"&i&"</a>] "
next
response.write "</div>"
end if
End Sub
%>
<!----------------分页代码------------------>
更多的本站文章系统内容函数分页代码(推荐)请到论坛查看: http://BBS.TC711.COM
【 双击滚屏 】 【 评论 】 【 收藏 】 【 打印 】 【 关闭 】
来源:
互联网
日期:2006-5-17