：：梦溪苑博客：：

Asp长文章自动分页，在做博客的时候网友提到要这个功能于是我花了点时间写出了下面的内容：分vbscript和javascript两个部分．用js的好处在于不会破坏html标签，就是破坏了，也在一个页面中，不会出现样式变化。

至于效果，你只能下载我们的产品：ASBLOG来看了．

1、文章篇幅过长，自动分页生成静态。
'==============================================================
'解析自动分页(AS_Theme.ASP)
'==============================================================
Public Function AutoSplitPage(shtml,lnum)
    Dim returns,num,i,arr,arri,AutoPageStr,ReHtml,tempShtml
   If InStr(shtml,"[NextPage]")>0 Then
    arr = Split(shtml,"[NextPage]")
    num = UBound(arr)
    For i=0 To num
     If Trim(arr(i))<>"" Then
      If i = 0 Then
       arri= "<div id=""Autopage0"" style=""display:block;"">"&vbcrlf
      Else
       arri= "<div id=""Autopage"&i&""" style=""display:none;"">"&vbcrlf
      End If
      arri = arri & arr(i) &vbcrlf
      arri = arri & "</div>"&vbcrlf
      AutoPageStr = AutoPageStr & "<span><a href=""javascript:void(0)"" onclick=""AutoPage("&i&","&num&")"">第" &i+1&"页</a></span>"
      ReHtml= ReHtml&arri
     End If
    Next
    returns = ReHtml & "<div id=""AotuPageContent""></div>"&AutoPageStr
   Else
    Dim len_t,parts,start
    lnum = CInt(lnum)
    len_t = Len(shtml)
    If len_t < lnum Then
     returns = shtml
    Else
     parts = CInt(len_t/lnum)
     For i=0 To parts
      start = CInt(lnum * i)
      If start = 0 Then start = 1
      tempShtml = tempShtml & Mid(shtml,start,lnum) & "[NextPage]"&vbcrlf
     Next
       tempShtml = Left(tempShtml,(Len(tempShtml) - 12))
     returns   = AutoSplitPage(tempShtml,lnum)
    End If
   End If
   AutoSplitPage = returns

End Function

'-----------------------------
//AS_Public.js)
<script>
function AutoPage(currentPage,AllPage){
   document.getElementById("Autopage0").style.display='none';
   document.getElementById("AotuPageContent").innerHTML="";
   document.getElementById("AotuPageContent").innerHTML=document.getElementById("Autopage" currentPage).innerHTML;
}
</script>