在要分页的地方加上[NextPage]即可分页显示内容先读出数据 再使用这个过程'================================================='过程名:ManualPagination'作用:采用手动分页方式显示活动具体的内容'参数:无'=================================================sub ManualPagination() dim ArticleID,strContent,CurrentPage dim ContentLen,MaxPerPage,pages,i dim arrContent ID=rs("ID") strContent=rs("content") ContentLen=len(strContent) CurrentPage=trim(request("ArticlePage")) if Instr(strContent,"[NextPage]")
[1]
" elsearrContent=split(strContent,"[NextPage]")pages=Ubound(arrContent)+1if CurrentPage="" then CurrentPage=1else CurrentPage=Cint(CurrentPage)end ifif CurrentPagepages then CurrentPage=pagesresponse.write arrContent(CurrentPage-1)response.write "
"if CurrentPage>1 then response.write "上一页"end iffor i=1 to pages if i=CurrentPage then
response.write "
[" & cstr(i) & "]
" else
response.write "[" & i & "]" end ifnextif CurrentPage
" end ifend sub |