📄 admin.aspx
字号:
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script language="VB" runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
If Not IsPostBack Then
Call BindData() '启动页面时调用数据绑定子程序
End If
End Sub
'单击删除时执行该事件过程
Sub MyDataGrid_Delete(Sender As Object, E As DataGridCommandEventArgs)
'建立Connection对象,注意从web.Config中获取数据库连接字符串
Dim conn As New OleDbConnection(ConfigurationSettings.AppSettings("strConn"))
'建立Command对象
Dim strSql As String
strSql="Delete from users Where username='" & MyDataGrid.DataKeys(CInt(E.Item.ItemIndex)) &"'"
Dim cmd As New OleDbCommand(strSql, conn)
conn.Open()
cmd.ExecuteNonQuery() '执行删除操作
conn.Close()
MyDataGrid.EditItemIndex = -1 '重新绑定
Call BindData()
End Sub
Sub BindData()
'建立Connection对象,注意从web.Config中获取数据库连接字符串
Dim conn As New OleDbConnection(ConfigurationSettings.AppSettings("strConn"))
Dim cmd As New OleDbCommand("select * from users", conn) '建立Command对象
Dim adp As New OleDbDataAdapter(cmd) '建立DataAdapter对象
Dim ds As New DataSet() '建立DataSet对象
adp.Fill(ds, "users") '填充DataSet
MyDataGrid.DataSource=DS.Tables("users").DefaultView '指定数据源
MyDataGrid.DataBind() '执行绑定
End Sub
</script>
<html>
<body>
<h4 align="center">管理员界面</h4>
<form runat="server">
<ASP:DataGrid id="MyDataGrid" Width="100%" HeaderStyle-BackColor="#BCBCBC" OnDeleteCommand="MyDataGrid_Delete" DataKeyField="username" runat="server" >
<Columns>
<asp:ButtonColumn Text="删除" CommandName="Delete"/>
</Columns>
</ASP:DataGrid>
</form>
<p align="center"><asp:hyperlink id="HyperLink1" text="返回首页" NavigateUrl="../default.aspx" runat="server" />
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -