asp分頁顯示代碼

Private Function ContentPagination(strContent)
 Dim ContentLen, maxperpage, Paginate
 Dim arrContent, TempContent, i
 
 On Error Resume Next
 strContent = Newasp.ReadContent(strContent)
 strContent = Replace(strContent, "[NextPage]", "[page_break]")
 strContent = Replace(strContent, "[Page_Break]", "[page_break]")
 ContentLen = Len(strContent)
 If InStr(strContent, "[page_break]") <= 0 Then
  TempContent = strContent
 Else
  arrContent = Split(strContent, "[page_break]")
  Paginate = UBound(arrContent) + 1
  If CurrentPage = 0 Then
   CurrentPage = 1
  Else
   CurrentPage = CInt(CurrentPage)
  End If
  If CurrentPage < 1 Then CurrentPage = 1
  If CurrentPage > Paginate Then CurrentPage = Paginate
  TempContent = TempContent & arrContent(CurrentPage - 1)
 End If
 ContentPagination = TempContent
End Function
Private Function ContentPaginations(strContent)
 Dim ContentLen, maxperpage, Paginate
 Dim arrContent, TempContent, i
 
 On Error Resume Next
 strContent = Newasp.ReadContent(strContent)
 strContent = Replace(strContent, "[NextPage]", "[page_break]")
 strContent = Replace(strContent, "[Page_Break]", "[page_break]")
 ContentLen = Len(strContent)
 If InStr(strContent, "[page_break]") <= 0 Then
  TempContent = strContent
 Else
  arrContent = Split(strContent, "[page_break]")
  Paginate = UBound(arrContent) + 1
  If CurrentPage = 0 Then
   CurrentPage = 1
  Else
   CurrentPage = CInt(CurrentPage)
  End If
  If CurrentPage < 1 Then CurrentPage = 1
  If CurrentPage > Paginate Then CurrentPage = Paginate
  TempContent = TempContent & arrContent(CurrentPage - 1)
  TempContent = TempContent & "</p><p align='center'><b>"
  If CurrentPage > 1 Then
   If CreateHtml <> 0 Then
    TempContent = TempContent & "<a href='" & ReadPagination(CurrentPage - 1) & "'>上一頁</a>&nbsp;&nbsp;"
   Else
    TempContent = TempContent & "<a href='?id=" & ArticleID & "&Page=" & CurrentPage - 1 & "'>上一頁</a>&nbsp;&nbsp;"
   End If
  End If
  For i = 1 To Paginate
   If i = CurrentPage Then
    TempContent = TempContent & "<font color='red'>[" & i & "]</font>&nbsp;"
   Else
    If CreateHtml <> 0 Then
     TempContent = TempContent & "<a href='" & ReadPagination(i) & "'>[" & i & "]</a>&nbsp;"
    Else
     TempContent = TempContent & "<a href='?id=" & ArticleID & "&Page=" & i & "'>[" & i & "]</a>&nbsp;"
    End If
   End If
  Next
  If CurrentPage < Paginate Then
   If CreateHtml <> 0 Then
    TempContent = TempContent & "&nbsp;<a href='" & ReadPagination(CurrentPage + 1) & "'>下一頁</a>"
   Else
    TempContent = TempContent & "&nbsp;<a href='?id=" & ArticleID & "&Page=" & CurrentPage + 1 & "'>下一頁</a>"
   End If
  End If
  TempContent = TempContent & "</b></p>"
 End If
 ContentPaginations = TempContent
End Function