JS+ASP 实现超长文章自动分页

转载 2006年05月17日 09:17:00

JavaScript脚本部分
======================
function submitPostIfRame(mode){
 var sMarkup = doc_html.getHTML();  //从html编辑器中取数据
 with(document.forms[0]){
  doc_html.document.open();
  doc_html.document.write(sMarkup);
  doc_html.document.close();
  doc_html.document.body.innerHTML = sMarkup;
  var oBody=doc_html.document.body;
  var oHTML="";
  for(var i=0;i<oBody.childNodes.length;i++){
   if(i!=oBody.childNodes.length-1){
    if(oBody.childNodes[i].nodeType==3){
     oHTML+=oBody.childNodes[i].nodeValue+"{#CMS-PAGINATION-SYMBOL#}";
    }else{
     oHTML+=oBody.childNodes[i].outerHTML+"{#CMS-PAGINATION-SYMBOL#}";
    }
   }else{
    if(oBody.childNodes[i].nodeType==3){
     oHTML+=oBody.childNodes[i].nodeValue;
    }else{
     oHTML+=oBody.childNodes[i].outerHTML;
    }
   }
  }
  news_content.value = oHTML
 }
 return true;
}
ASP脚本部分
===============
Function calculate_pagination(strContent, pSize)
    On Error Resume Next
    Dim aCon, intfor, intCount, strTemp, strTemp2
    aCon = Split(strContent, "{#CMS-PAGINATION-SYMBOL#}", -1, 1)
    intCount = UBound(aCon)
    strTemp = ""
    strTemp2 = ""
    Page = 1
    For intfor = 0 To intCount
        strTemp = strTemp & aCon(intfor)
        strTemp2 = strTemp2 & RemoveHTML(aCon(intfor))
        'strTemp2 = strTemp2 & aCon(intFor)
        If Len(strTemp2) >= pSize Then
            Page = Page + 1
            strTemp = ""
            strTemp2 = ""
        End If
    Next
    'If strTemp2 <> "" Then Page = Page - 1
    calculate_pagination = Page
    If Err.Number <> 0 Then
        calculate_pagination = 1
        Err.Clear
    End If
End Function

Function get_page_text(strContent, pagenum, totalpage, pSize)
    aCon = Split(strContent, "{#CMS-PAGINATION-SYMBOL#}", -1, 1)
    intCount = UBound(aCon)
    strTemp = ""
    strTemp2 = ""
    Page = 1
    For intfor = 0 To intCount
        strTemp = strTemp & aCon(intfor)
        strTemp2 = strTemp2 & RemoveHTML(aCon(intfor))
        'strTemp2 = strTemp2 & aCon(intFor)
        If Len(strTemp2) >= pSize Then
            If pagenum = Page Then
                get_page_text = strTemp
                Exit For
            End If
            Page = Page + 1
            strTemp = ""
            strTemp2 = ""
        End If
    Next
    If strTemp2 <> "" And pagenum > Page - 1 Then get_page_text = strTemp
End Function


asp 长文章分页

处理接收分页得参数,显示页数 也就默认第一页 page这个参数就是让变量pagenum去显示第一也得值:0if Request("page")="" then pageNum=0 下面就是page接参...
  • lpy123456
  • lpy123456
  • 2007年07月28日 09:56
  • 495

文章,记录按内容分页显示,根据文章内容按字数进行分页

先从数据库中检索出要文章,(很长的文章)Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeH...
  • shanliwa
  • shanliwa
  • 2007年09月27日 14:18
  • 691

ASP.NET(五):ASP.net实现真分页显示数据

导读:在上篇文章中,介绍了用假分页实现数据的分页显示 ,而避免了去拖动滚动条。但,假分页在分页的同时,其实是拖垮了查询效率的。每一次分页都得重新查询一遍数据,那么有没有方法可以同时兼顾效率和分页呢,那...
  • u013034889
  • u013034889
  • 2015年05月11日 17:31
  • 1313

[JS源码]超长文章自动分页(客户端版)

New Document * {font-size:10.2pt;font-family:tahoma;line-height:150%;}.divContent{border:1px solid ...
  • colourbear
  • colourbear
  • 2006年06月29日 10:01
  • 1054

超长文章(HTML格式)自动分页,用ASP和JS实现

原文出处: http://blog.mvpcn.net/jaron/archive/2004/07/15/2159.aspx 这两天看到有朋友提出文章自动分页的问题,贴出我原来系统中的一部分代码,供大...
  • flyingsnowy
  • flyingsnowy
  • 2004年11月06日 15:54
  • 1251

ASP源码整站 网钛文章管理系统

  • 2011年02月07日 00:38
  • 2.63MB
  • 下载

ASP.NET 生成分页HTML标签

效果如下: 程序代码: #region 分页代码 public int pPageSize = 5; public int pPag...
  • vincent_void
  • vincent_void
  • 2014年03月10日 15:17
  • 1129

超长文章自动分页(含HTML),用ASP和Javascript实现

这两天看到有朋友提出文章自动分页的问题,贴出我原来系统中的一部分代码,供大家参照,看是否有需要改进的地方或有更好的建议,其实偶们公司最近的项目都是用c#,ASP已经很少用了...这里只贴出了一部分代码...
  • evafly920
  • evafly920
  • 2004年09月20日 10:36
  • 1581

长文章自动分页类

Class AutoPaging*************************************************************目   的:自动将长文章分页输出属   性:S...
  • xuStanly
  • xuStanly
  • 2006年09月10日 20:37
  • 6350

网页分页数据的三种抓取方式亲测

相信所有个人网站的站长都有抓取别人数据的经历吧,目前抓取别人网站数据的方式无非两种方式:   一、使用第三方工具,其中最著名的是火车头采集器,在此不做介绍。     二、自己写程序抓取,...
  • haoxiang110
  • haoxiang110
  • 2016年11月17日 19:56
  • 3466
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:JS+ASP 实现超长文章自动分页
举报原因:
原因补充:

(最多只允许输入30个字)