<!-----------分页代码------------------> 
<%'==================================================
'过程名：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&"页 &nbsp;"
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
%>

<!----------------分页代码------------------>