最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp分页显示代码
时间:2008-07-07 编辑:简简单单 来源:一聚教程网
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 & "
"
If CurrentPage > 1 Then
If CreateHtml <> 0 Then
TempContent = TempContent & "上一页 "
Else
TempContent = TempContent & "上一页 "
End If
End If
For i = 1 To Paginate
If i = CurrentPage Then
TempContent = TempContent & "[" & i & "] "
Else
If CreateHtml <> 0 Then
TempContent = TempContent & "[" & i & "] "
Else
TempContent = TempContent & "[" & i & "] "
End If
End If
Next
If CurrentPage < Paginate Then
If CreateHtml <> 0 Then
TempContent = TempContent & " 下一页"
Else
TempContent = TempContent & " 下一页"
End If
End If
TempContent = TempContent & "
End If
ContentPaginations = TempContent
End Function
-
上一个: asp投票系统二
-
下一个: asp url转换函数
相关文章
- 长文章用分页符来分页显示(ASP实现) 01-18
- asp分页显示详论 01-12
- VBS 批量Ping的项目讲解 09-19
- 如何封装一个Ajax函数介绍 09-16
- ASP实现加法验证码方法 09-16
- ASP错误捕获的几种常规处理方法介绍 09-16