<%@ Page Language="VB" AutoEventWireup="True" Debug="true"%> <%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.OleDb" %><html> <script runat="server"> dim MyConnection as OleDbConnection dim strID as String Sub Page_Load(sender As Object, e As EventArgs) MyConnection = New OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" + Server.MapPath(".")+"/db/data.mdb") If Not IsPostBack Then BindGrid() End If End Sub Sub MyDataGrid_Page(sender as Object, e As DataGridPageChangedEventArgs) MyDataGrid.CurrentPageIndex = e.NewPageIndex BindGrid() End Sub Sub BindGrid() Dim MyCommand As OleDbDataAdapter = new OleDbDataAdapter("SELECT * FROM [min] ORDER BY id ASC", MyConnection) Dim DS As DataSet = new DataSet() MyCommand.Fill(DS,"min") MyDataGrid.DataSource = DS.Tables("min").DefaultView MyDataGrid.DataBind() End Sub Sub My_ItemDataBound(S As Object, E As DataGridItemEventArgs) If e.Item.ItemType = ListItemType.AlternatingItem Or e.Item.ItemType = ListItemType.Item Then Dim r,rID As Label r = CType(e.Item.FindControl("lbl"), Label) rID = CType(e.Item.FindControl("lblID"), Label) strID = rID.Text r.Text = "<input type=checkbox name='chbRights' value='" & strID & "'>" End If End Sub Sub Button_Click(s as object, e as eventargs) dim selectResult as string SelectResult = Request.Form("chbRights") response.write(SelectResult) End Sub </script> <form runat="server"> <asp:Button id="SelectID" Text="SELECT" OnClick="Button_Click" runat="server"/> <asp:DataGrid id="MyDataGrid" AllowPaging="True" PageSize="20" OnPageIndexChanged="MyDataGrid_Page" runat="server" AutoGenerateColumns="False" Width="200" OnItemDataBound="My_ItemDataBound"> <HeaderStyle BackColor="Navy" ForeColor="White" Font-Bold="True" /> <PagerStyle Mode="NumericPages" HorizontalAlign="Right" /> <Columns> <asp:TemplateColumn> <ItemTemplate> <asp:Label ID="lbl" Runat="server"/> </ItemTemplate> </asp:TemplateColumn> <asp:TemplateColumn HeaderText="ID"> <ItemTemplate> <asp:Label ID="lblID" Text='<%#(Container.DataItem("id"))%>' Runat=server /> </ItemTemplate> </asp:TemplateColumn> <asp:TemplateColumn HeaderText="zhuti"> <ItemTemplate> <asp:Label ID="lblTotalPrice" Text='<%#(Container.DataItem("zhuti"))%>' Runat=server /> </ItemTemplate> </asp:TemplateColumn> </Columns> </asp:DataGrid> </form>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %><html>
<script runat="server">
dim MyConnection as OleDbConnection
dim strID as String
Sub Page_Load(sender As Object, e As EventArgs)
MyConnection = New OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" + Server.MapPath(".")+"/db/data.mdb") If Not IsPostBack Then
BindGrid()
End If
End Sub Sub MyDataGrid_Page(sender as Object, e As DataGridPageChangedEventArgs)
MyDataGrid.CurrentPageIndex = e.NewPageIndex
BindGrid()
End Sub Sub BindGrid()
Dim MyCommand As OleDbDataAdapter = new OleDbDataAdapter("SELECT * FROM [min] ORDER BY id ASC", MyConnection)
Dim DS As DataSet = new DataSet()
MyCommand.Fill(DS,"min")
MyDataGrid.DataSource = DS.Tables("min").DefaultView
MyDataGrid.DataBind()
End Sub Sub My_ItemDataBound(S As Object, E As DataGridItemEventArgs)
If e.Item.ItemType = ListItemType.AlternatingItem Or e.Item.ItemType = ListItemType.Item Then
Dim r,rID As Label
r = CType(e.Item.FindControl("lbl"), Label)
rID = CType(e.Item.FindControl("lblID"), Label)
strID = rID.Text
r.Text = "<input type=checkbox name='chbRights' value='" & strID & "'>"
End If
End Sub Sub Button_Click(s as object, e as eventargs)
dim selectResult as string
SelectResult = Request.Form("chbRights")
response.write(SelectResult)
End Sub
</script>
<form runat="server">
<asp:Button id="SelectID" Text="SELECT" OnClick="Button_Click" runat="server"/>
<asp:DataGrid id="MyDataGrid"
AllowPaging="True"
PageSize="20"
OnPageIndexChanged="MyDataGrid_Page"
runat="server"
AutoGenerateColumns="False"
Width="200"
OnItemDataBound="My_ItemDataBound">
<HeaderStyle BackColor="Navy"
ForeColor="White"
Font-Bold="True" />
<PagerStyle Mode="NumericPages"
HorizontalAlign="Right" />
<Columns>
<asp:TemplateColumn>
<ItemTemplate>
<asp:Label ID="lbl" Runat="server"/>
</ItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="ID">
<ItemTemplate>
<asp:Label ID="lblID" Text='<%#(Container.DataItem("id"))%>' Runat=server />
</ItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="zhuti">
<ItemTemplate>
<asp:Label ID="lblTotalPrice" Text='<%#(Container.DataItem("zhuti"))%>' Runat=server />
</ItemTemplate>
</asp:TemplateColumn>
</Columns>
</asp:DataGrid>
</form>
http://218.27.204.17/aspnet/a_user.aspx