您当前的位置: 首页 > 网站编程 > ASP教程 > ASP实现长文章手动分页的代码

ASP实现长文章手动分页的代码

作者:guanchaofeng 来源:本站整理 发布时间: 2009-04-18 22:43 点击:
一篇文章如字数太多,则用1,2,3.... 分成多页,便于用户浏览。 % set recordset1=server.createobject(adodb.recordset) exec=SELECT * FROM news where id=id recordset1.Open exec,conn,1,1 % table width=85% border=0 align=center cellpadding=3 cellsp

ASP实现长文章手动分页的代码

  一篇文章如字数太多,则用1,2,3.... 分成多页,便于用户浏览。
  
  <%
  
  set recordset1=server.createobject("adodb.recordset")
  
  exec="SELECT * FROM news where id="&id
  
  recordset1.Open exec,conn,1,1
  
  %>
  
  <table width="85%" border="0" align="center" cellpadding="3" cellspacing="0">
  
  <tr> <td >
  
  .......
  
  <%
  
  If Request("page")="" Then
  
  pageNum=0
  
  Else
  
  pageNum=Request("page")
  
  End if
  
  Content=Replace(recordset1("content"),"|||","|||")
  
  ContentStr=split(Content,"|||")
  
  For i=pageNum to pageNum
  
  %>
  
  <%=ContentStr(i)%>
  
  <% Next %>
  
  </td>
  
  </tr>
  
  <%if ubound(ContentStr)>=1 then%>
  
  <tr>
  
  <td height="30" >本文共分
  
  <%
  
  For p = 0 to ubound(ContentStr)
  
  if p+1= Request("page")+1 then
  
  a="<font color=red>"
  
  aa="</font>"
  
  else
  
  a=""
  
  aa=""
  
  end if
  
  %>
  
  <a href="detail.asp?ID=<%=request("ID")%>&page=<%=p%>"><%=a%><%=p+1%><%=aa%></a>
  
  <% Next %>
  
  页 </td>
  
  </tr>
  
  <%end if%>
  
  添加文章时,在想分页的地方,加入分割符 ||| 即可。 

分享到:
本文"ASP实现长文章手动分页的代码"由远航站长收集整理而来,仅供大家学习与参考使用。更多网站制作教程尽在远航站长站。
顶一下
(0)
0%
踩一下
(0)
0%
[点击 次] [返回上一页] [打印]
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
用户名: 密码: 验证码:
关于本站 - 联系我们 - 网站声明 - 友情连接- 网站地图 - 站点地图 - 返回顶部
Copyright © 2007-2013 www.yhzhan.com(远航站长). All Rights Reserved .
远航站长:为中小站长提供最佳的学习与交流平台,提供网页制作与网站编程等各类网站制作教程.
官方QQ:445490277 网站群:26680406 网站备案号:豫ICP备07500620号-4