28,391
社区成员
发帖
与我相关
我的任务
分享
'=================================================
'过程名:ManualPagination
'作 用:采用手动分页方式显示文章具体的内容
'参 数:无
'=================================================
sub ManualPagination(fileName)
dim ArticleID,strContent,CurrentPage
dim ContentLen,MaxPerPage,pages,i
dim arrContent
ArticleID=rs("OrderartID")
strContent=rs("ArticleContent")
ContentLen=len(strContent)
CurrentPage=trim(request("Page"))
if Instr(strContent,"[NextPage]")<=0 then
response.write strContent
response.write "</p><p align='center'><font color='red'><b>[1]</b></font></p>"
else
arrContent=split(strContent,"[NextPage]")
pages=Ubound(arrContent)+1
if CurrentPage="" then
CurrentPage=1
else
CurrentPage=Cint(CurrentPage)
end if
if CurrentPage<1 then CurrentPage=1
if CurrentPage>pages then CurrentPage=pages
response.write arrContent(CurrentPage-1)
response.Write "<br>"
response.write "</p><p align='center'><b>"
for i=1 to pages
if i=CurrentPage then
response.write "<font color='red'>[" & cstr(i) & "]</font> "
else
response.write "<a title='点击翻页' href='" & FileName & "?id=" & ArticleID & "&Page=" & i & "'>[" & i & "]</a> "
end if
next
response.write "</b></p>"
end if
end sub