当前位置:96看吧 > 技术文档 > ASP编程 > asp内容分页函数

asp内容分页函数

时间:2008/10/30
作者:佚名
来源:网络转载
查看:
标签:asp函数

'****************************************************
'函数:ArticleContent
'作用:文章内容分页
'用法:ArticleContent(文章完整内容)
'示例:ArticleContent(Rs("Content"))
'注意:文章的编号必须为ID,如content.asp?id=123,否则出错
'****************************************************
Function ArticleContent(strContent)
'strContent:全部完整的文章内容/最初传入的参数
If InStr(strContent, "[page_break]") <= 0 Then
  ArticleContent =strContent
Else
arrContent = Split(strContent, "[page_break]")  '取得数组/将文章内容用[page_break]分隔后分别放入数组里

Paginate = UBound(arrContent) + 1 '总页数=数组上限+1
CurrentPage =Request("page")
If CurrentPage = 0 Then
  CurrentPage = 1   '当前页=1/意外情况处理
Else
  CurrentPage = CLng(CurrentPage)  '当前页=1
End If
If CurrentPage < 1 Then CurrentPage = 1  '/意外情况处理
If CurrentPage > Paginate Then CurrentPage = Paginate '当前页=最大页/意外情况处理

If UserArticle = True Then
  If CurrentPage = 1 Then
   strContent = arrContent(CurrentPage - 1)
   strContent = Left(strContent,maxstrlen)
   strContent = "<div id=""NewsContentLabel"" class=""NewsContent"">" & strContent & "</div>"
  Else
   strContent = "<div id=""NewsContentLabel"" class=""NewsContent""></div>"
  End If
Else
  strContent = "<div id=""NewsContentLabel"" class=""NewsContent"">"& arrContent(CurrentPage - 1)
End If

ArticleContent = ArticleContent & strContent
If UserArticle = True Then
  ArticleContent = ArticleContent & "</p></div><div id=""Message"" class=""Message""></div><p align=""center""><b>"
Else
  ArticleContent = ArticleContent & "</p></div><p align=""center""><b>"
End If

m_strFileExt = ""
m_strFileUrl = "?id=" & ID & "&Page="  '链接地址:传递文章号与页号

If CurrentPage > 1 Then  '当前页大于1时,显示上一页链接
  If IsURLRewrite And (CurrentPage-1) = 1 Then
   ArticleContent = ArticleContent & "<a href="""& ID & m_strFileExt & """>上一页</a>  "
  Else
   ArticleContent = ArticleContent & "<a href="""& m_strFileUrl & CurrentPage - 1 & m_strFileExt & """>上一页</a>  "
  End If
End If
For i = 1 To Paginate   '生成页号,从1到i,点击可快速转到第i页
  If i = CurrentPage Then
   ArticleContent = ArticleContent & "<font color=""red"">[" & CStr(i) & "]</font> "
  Else
   If IsURLRewrite And i = 1 Then
    ArticleContent = ArticleContent & "<a href="""& ID & m_strFileExt & """>[" & i & "]</a> "
   Else
    ArticleContent = ArticleContent & "<a href="""& m_strFileUrl & i & m_strFileExt & """>[" & i & "]</a> "
   End if
  End If
Next
If CurrentPage < Paginate Then   '当前页小于最大页时,显示下一页链接
  ArticleContent = ArticleContent & " <a href="""& m_strFileUrl & CurrentPage + 1 & m_strFileExt & """>下一页</a>"
End If
ArticleContent = ArticleContent & "</b></p>"
End If
End Function
 

上一篇:asp判断是否用了代理访问
下一篇:ASP+SQL注入网站入侵实例分析
页面举报
Report
关闭页面
Close
收藏页面
Favorites
分享页面
Share
版权信息:栏目内,站内会员所分享的全部“资源/素材/文章”,仅供学习与参考,版权为原作者所有。
下载提示:非注册用户每天可下载一个文件,已注册会员不受限制。
网友评论
数据载入中
验证码
  • 请您注意:
  • ·请不要在评论中含与内容无关的广告链接。
  • ·不良评论请用报告管理员,以利管理员及时删除。
  • ·遵守中华人民共和国的各项有关法律法规
  • ·承担一切因您的行为而直接或间接导致的民事或刑事法律责任
  • ·本站管理人员有权保留或删除评论中的任意内容
  • ·您在本站发表的作品,本站有权在网站内转载或引用
  • ·参与本评论即表明您已经阅读并接受上述条款
相关最新
相关热门