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


网页超长文章自动分页

  • 2009年06月04日 12:30
  • 7KB
  • 下载

js超长文章分页修改(兼容FF)

New Document * { font-size:10.2pt; font-family:tahoma; line-height:150%; } .divContent { b...
  • lz00728
  • lz00728
  • 2011年09月17日 13:54
  • 1897

jsp实现新闻内容或超长文章的分页

转自:http://blog.163.com/dufeng_007@126/blog/static/1032169862009270591156/ 思路:      当我们在后台操作,添加...

asp长文章内容自动分页

  • 2009年07月30日 13:33
  • 1KB
  • 下载

asp长文章分页

dim sContent,tempContent,pgCount,pageStr,currentPage currentPage=Request.QueryString("page") ...
  • quweiie
  • quweiie
  • 2011年11月28日 16:31
  • 416

asp中kindeditor实现文章分页代码

  • 2015年10月14日 20:39
  • 915KB
  • 下载

asp.net实现文章分页

  • 2010年01月24日 20:58
  • 154KB
  • 下载

asp生成html文章列表(带分页)的例子

最新看到论坛里有朋友提到asp转html时文章列表遇到一些问题, 所以想写个例子出来看能不能对某些人有帮助: 数据表名是:news 这里我只是做个例子,所以表相对简单,news表只有二个字段...

纯JS长文章分页代码

  • 2010年01月03日 15:09
  • 11KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:JS+ASP 实现超长文章自动分页
举报原因:
原因补充:

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