新闻发布字数比较多,我想在新闻页面使用分页,怎么办?

本文介绍了一种通过手动分页的方式展示长篇文章的具体内容的方法。该方法利用'[NextPage]'标签将文章内容分割成多个部分,并根据用户请求的页码显示相应的内容段落。此外,还提供了页面导航功能以便于用户翻阅。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

  <%           '=================================================     '过程名:ManualPagination     '作           用:采用手动分页方式显示文章具体的内容     '参           数:无     '=================================================     sub       ManualPagination()     dim       ArticleID,strContent,CurrentPage     dim       ContentLen,MaxPerPage,pages,i     dim       arrContent     ArticleID=rs("newsid")     strContent=rs("content")     ContentLen=len(strContent)         //newsid为传递的id值     //content为新闻内容         CurrentPage=trim(request("ArticlePage"))     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       "</p><p       align='center'><b>"     if       CurrentPage>1       then     response.write       "<a       href='"       &       strFileName       &       "?newsid="       &       ArticleID       &               "&ArticlePage="       &       CurrentPage-1       &       "'>上一页</a>&nbsp;&nbsp;"     end       if     for       i=1       to       pages     if       i=CurrentPage       then     response.write       "<font       color='red'>["       &       cstr(i)       &       "]</font>&nbsp;"     else     response.write       "<a       href='"       &       strFileName       &       "?newsid="       &       ArticleID       &               "&ArticlePage="       &       i       &       "'>["       &       i       &       "]</a>&nbsp;"     end       if     next     if       CurrentPage<pages       then     response.write     "&nbsp;<a       href='"       &       strFileName       &       "?newsid="       &       ArticleID       &               "&ArticlePage="       &       CurrentPage+1       &     "'>下一页</a>"     end       if     response.write   "</b></p>"         end   if         end   sub         %>         //内容显示地方写上         <%call   ManualPagination()%>         //在添加时在需要分页的地方加要标签:[NextPage]
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值