终于整理了一个能用的分页
2007-06-01 10:49
267 查看
好不好再说吧,先对付用了
<%@ Page Language="vb" Debug="true" %>
<%@ Import Namespace = "System.Data"%>
<%@ Import Namespace = "System.Data.Odbc"%>
<!--#include file="inc_sub.aspx"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
Dim page As String
Dim PageCount As String
Sub Page_Load(ByVal obj As Object, ByVal e As EventArgs)
page = Request.QueryString("page")
If Not IsInt(page) Then
page = 1
End If
'Call show_list(page)
Using connection As New OdbcConnection(ConfigurationSettings.AppSettings("ConnectionString"))
'创建SQL语句
Dim sql = "select * from wenzhang"
Dim da As New OdbcDataAdapter(sql, connection)
'创建DataSet对象
Dim ds As New DataSet
da.Fill(ds, "wenzhang")
'创建分页类
Dim objpage As New PagedDataSource
'设置数据源
objpage.DataSource = ds.Tables("wenzhang").DefaultView
objpage.AllowPaging = True
objpage.PageSize = 3
Repeater1.DataSource = objpage
If page - 1 > objpage.PageCount Then
page = objpage.PageCount
End If
objpage.CurrentPageIndex = page - 1
PageCount = objpage.PageCount
Repeater1.DataBind()
End Using
End Sub
Sub show_PageLeader(ByVal CurrentPageIndex As Integer, ByVal PageCount As Integer)
Response.Write("当前:" & CurrentPageIndex & " 共有 " & PageCount & "页")
Dim i As Integer
Dim j As Integer
For i = 1 To PageCount
If page = i Then
Response.Write("<a href=""admin_wenzhang_list.aspx?page=" & i & """><b>" & i & "</b></a> ")
Else
Response.Write("<a href=""admin_wenzhang_list.aspx?page=" & i & """>" & i & "</a> ")
End If
Next
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>无标题页</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<table width="600" border="0">
<tr>
<td>管理</td>
<td>标题</td>
<td>发布时间</td>
</tr>
<asp:Repeater id="Repeater1" runat="server">
<ItemTemplate>
<tr>
<td><a href="admin_wenzhang_edit.aspx?id=<%#DataBinder.Eval(Container.DataItem, "id")%>">修改</a> <a href="admin_wenzhang_edit.aspx?id=<%#DataBinder.Eval(Container.DataItem, "id")%>">删除</a></td>
<td><%#DataBinder.Eval(Container.DataItem, "biaoti")%> </td>
<td><%#DataBinder.Eval(Container.DataItem, "fabushijian","{0:d}")%> </td>
</tr>
</ItemTemplate>
</asp:Repeater>
<tr>
<td> </td>
<td><%show_PageLeader(page, PageCount)%> </td>
<td> </td>
</tr>
</table>
<p> </p>
</div>
</form>
</body>
</html>
<%@ Page Language="vb" Debug="true" %>
<%@ Import Namespace = "System.Data"%>
<%@ Import Namespace = "System.Data.Odbc"%>
<!--#include file="inc_sub.aspx"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
Dim page As String
Dim PageCount As String
Sub Page_Load(ByVal obj As Object, ByVal e As EventArgs)
page = Request.QueryString("page")
If Not IsInt(page) Then
page = 1
End If
'Call show_list(page)
Using connection As New OdbcConnection(ConfigurationSettings.AppSettings("ConnectionString"))
'创建SQL语句
Dim sql = "select * from wenzhang"
Dim da As New OdbcDataAdapter(sql, connection)
'创建DataSet对象
Dim ds As New DataSet
da.Fill(ds, "wenzhang")
'创建分页类
Dim objpage As New PagedDataSource
'设置数据源
objpage.DataSource = ds.Tables("wenzhang").DefaultView
objpage.AllowPaging = True
objpage.PageSize = 3
Repeater1.DataSource = objpage
If page - 1 > objpage.PageCount Then
page = objpage.PageCount
End If
objpage.CurrentPageIndex = page - 1
PageCount = objpage.PageCount
Repeater1.DataBind()
End Using
End Sub
Sub show_PageLeader(ByVal CurrentPageIndex As Integer, ByVal PageCount As Integer)
Response.Write("当前:" & CurrentPageIndex & " 共有 " & PageCount & "页")
Dim i As Integer
Dim j As Integer
For i = 1 To PageCount
If page = i Then
Response.Write("<a href=""admin_wenzhang_list.aspx?page=" & i & """><b>" & i & "</b></a> ")
Else
Response.Write("<a href=""admin_wenzhang_list.aspx?page=" & i & """>" & i & "</a> ")
End If
Next
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>无标题页</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<table width="600" border="0">
<tr>
<td>管理</td>
<td>标题</td>
<td>发布时间</td>
</tr>
<asp:Repeater id="Repeater1" runat="server">
<ItemTemplate>
<tr>
<td><a href="admin_wenzhang_edit.aspx?id=<%#DataBinder.Eval(Container.DataItem, "id")%>">修改</a> <a href="admin_wenzhang_edit.aspx?id=<%#DataBinder.Eval(Container.DataItem, "id")%>">删除</a></td>
<td><%#DataBinder.Eval(Container.DataItem, "biaoti")%> </td>
<td><%#DataBinder.Eval(Container.DataItem, "fabushijian","{0:d}")%> </td>
</tr>
</ItemTemplate>
</asp:Repeater>
<tr>
<td> </td>
<td><%show_PageLeader(page, PageCount)%> </td>
<td> </td>
</tr>
</table>
<p> </p>
</div>
</form>
</body>
</html>
相关文章推荐
- 我整理的一个经典分页程序(JSP的)
- 我整理的一个经典分页程序(JSP的)
- 终于搞定了一个C#的聊天室 使用的SQLServer+VS 用的Socket 整理下搜的书签
- 一个简单的分页控件,用来自定义分页用的
- 一个简单分页
- 一个强大的jquery分页插件
- Java:一个简捷的可分页的ResultSet实现
- VUE实现一个分页组件
- 终于以一个ACMer的名义开通博客了。。
- 一个将数据分页的存储过程
- [2016/11/1][http服务器开发]终于解决了一个为期一周的bug(开心脸
- 整理:分页存储过程整理
- 一个比较好的分页存储过程
- 整理出来的一个windows关机、锁定、重启、注销 API调用 .
- 分享一个分页计算的小公式
- 创建ORCLE存储过程含有一个输出游标参数和输出整型参数(实现对表的分页效果)
- 终于有一个blog啦!
- 曾经整理的一个php操作mysql类
- 网上的一个PHP分页函数,测试可用
- 又一个简单而强大的单片机内存管理器-不带内存碎片整理