admin.aspx

来自「asp书籍光盘」· ASPX 代码 · 共 48 行

ASPX
48 行
字号 
<%@ 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>

admin.aspx - 源码说明

本页面展示了「asp书籍光盘」中的 admin.aspx 源码文件，采用 ASPX 编程语言编写，共 48 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?