使用datagrid默认分页,但是上一页,下一页只有文字却不是按钮或者链接,这是为什么,代码如下:
html代码
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="admin_category_list.aspx.vb" Inherits="GameCardShop.admin_category_list"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>admin_category_list</title>
<meta content="Microsoft Visual Studio .NET 7.1" name="GENERATOR">
<meta content="Visual Basic .NET 7.1" name="CODE_LANGUAGE">
<meta content="JavaScript" name="vs_defaultClientScript">
<meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
</HEAD>
<body>
<form id="Form1" method="post" runat="server">
<FONT face="宋体">
<asp:DataGrid id="DataGrid1" runat="server" BorderColor="#3366CC" BorderStyle="None" BorderWidth="1px"
BackColor="White" CellPadding="4" Width="600px" AllowCustomPaging="True" AllowPaging="True">
<SelectedItemStyle Font-Bold="True" ForeColor="#CCFF99" BackColor="#009999"></SelectedItemStyle>
<ItemStyle ForeColor="#003399" BackColor="White"></ItemStyle>
<HeaderStyle Font-Bold="True" ForeColor="#CCCCFF" BackColor="#003399"></HeaderStyle>
<FooterStyle ForeColor="#003399" BackColor="#99CCCC"></FooterStyle>
<PagerStyle NextPageText="下一页" Font-Names="新宋体" PrevPageText="上一页" HorizontalAlign="Left" ForeColor="#003399"
BackColor="#99CCCC"></PagerStyle>
</asp:DataGrid></FONT>
</form>
</body>
</HTML>后台vb的代码:
Imports System
Imports System.Data
Imports System.Data.SqlClientPublic Class admin_category_list
Inherits System.Web.UI.Page#Region " Web 窗体设计器生成的代码 " '该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() End Sub
Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid '注意: 以下占位符声明是 Web 窗体设计器所必需的。
'不要删除或移动它。
Private designerPlaceholderDeclaration As System.Object Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub#End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码 If Not Page.IsPostBack Then
GridBind()
End If
End Sub Sub GridBind()
Dim connline As String
Dim conn As SqlConnection
Dim comm As SqlCommand
Dim dap As SqlDataAdapter
Dim dst As DataSet
Dim mysql As String connline = System.Configuration.ConfigurationSettings.AppSettings("ConnStr")
connline = connline & "Connect Timeout=30"
conn = New SqlConnection(connline)
conn.Open()
mysql = "select * from group_category order by ID " 'limit 1,5"
comm = New SqlCommand(mysql, conn)
dap = New SqlDataAdapter
dap.SelectCommand = comm
dst = New DataSet
dap.Fill(dst, "group_category")
DataGrid1.DataSource = dst.Tables("group_category")
DataGrid1.DataBind()
End Sub
html代码
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="admin_category_list.aspx.vb" Inherits="GameCardShop.admin_category_list"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>admin_category_list</title>
<meta content="Microsoft Visual Studio .NET 7.1" name="GENERATOR">
<meta content="Visual Basic .NET 7.1" name="CODE_LANGUAGE">
<meta content="JavaScript" name="vs_defaultClientScript">
<meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
</HEAD>
<body>
<form id="Form1" method="post" runat="server">
<FONT face="宋体">
<asp:DataGrid id="DataGrid1" runat="server" BorderColor="#3366CC" BorderStyle="None" BorderWidth="1px"
BackColor="White" CellPadding="4" Width="600px" AllowCustomPaging="True" AllowPaging="True">
<SelectedItemStyle Font-Bold="True" ForeColor="#CCFF99" BackColor="#009999"></SelectedItemStyle>
<ItemStyle ForeColor="#003399" BackColor="White"></ItemStyle>
<HeaderStyle Font-Bold="True" ForeColor="#CCCCFF" BackColor="#003399"></HeaderStyle>
<FooterStyle ForeColor="#003399" BackColor="#99CCCC"></FooterStyle>
<PagerStyle NextPageText="下一页" Font-Names="新宋体" PrevPageText="上一页" HorizontalAlign="Left" ForeColor="#003399"
BackColor="#99CCCC"></PagerStyle>
</asp:DataGrid></FONT>
</form>
</body>
</HTML>后台vb的代码:
Imports System
Imports System.Data
Imports System.Data.SqlClientPublic Class admin_category_list
Inherits System.Web.UI.Page#Region " Web 窗体设计器生成的代码 " '该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() End Sub
Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid '注意: 以下占位符声明是 Web 窗体设计器所必需的。
'不要删除或移动它。
Private designerPlaceholderDeclaration As System.Object Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub#End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码 If Not Page.IsPostBack Then
GridBind()
End If
End Sub Sub GridBind()
Dim connline As String
Dim conn As SqlConnection
Dim comm As SqlCommand
Dim dap As SqlDataAdapter
Dim dst As DataSet
Dim mysql As String connline = System.Configuration.ConfigurationSettings.AppSettings("ConnStr")
connline = connline & "Connect Timeout=30"
conn = New SqlConnection(connline)
conn.Open()
mysql = "select * from group_category order by ID " 'limit 1,5"
comm = New SqlCommand(mysql, conn)
dap = New SqlDataAdapter
dap.SelectCommand = comm
dst = New DataSet
dap.Fill(dst, "group_category")
DataGrid1.DataSource = dst.Tables("group_category")
DataGrid1.DataBind()
End Sub
解决方案 »
- 求救!asp问题
- 如何实现纵向循环求助
- 可逆加密怎样运用?
- ASP.NET脚本注册问题,急急急急急急————————在线等待
- |M| 发送邮件出现乱码 大家看看
- 如何利用ASP.NET开发提取用户表单提交的请求参数.(AJAX基础教程中的一个问题)
- asp.net中在水晶报表中动态加载图片不行,望高手指点!
- 可不可以用datalist或者datagrid嵌套显示的表啊?
- ASP.NET和SQL SERVER 2000连接出问题?????????
- 有关<Form action=""><input type="submit"><asp:button Onclick="">关注一下吧!多谢!
- asp.net服务器如何绑定域名?
- 找不到类型或命名空间名称“Response”(是否缺少 using 指令或程序集引用?)
allowcustompagin=false;
allowpaging=true;