找个3页的,看看前两页是否大小(或文字个数)(图片用html代码算)相同,如果不同(差别较多)那就根本是两页,不是分页

解决方案 »

  1.   

    在通过程序生成HTM页时进行了关键字判断.[应该是编辑器提供的关键字]
      

  2.   

    提供一个asp的 实现方法  转换成jsp应该有帮助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 FunctionFunction 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