📄 delreg.aspx
字号:
<%@ Import NameSpace="System.Data" %>
<%@ Import NameSpace="System.Data.OleDb" %>
<script language="VB" runat="Server">
Dim objConn As OleDbConnection
Dim strSQL, strDSN As String
Function Get_DSN(bolSQL As Boolean) As String
'--- bolSQL: True for SQL Server, False for Access ---
If Not bolSQL Then 'Access
Get_DSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& Server.MapPath("database.mdb")
Else 'SQL Server
Get_DSN = "Provider=SQLOLEDB.1;Data Source=Alvinnt;User ID=sa;" _
& "Password=;Initial Catalog=ASPNew;autotranslate=no;"
End If
End Function
Sub Page_Load(Sender As Object, E as EventArgs)
strDSN = Get_DSN(False)
objConn = New OleDbConnection(strDSN)
Show_Grid()
End Sub
Sub Delete_Row(S As Object, E As DataGridCommandEventArgs)
Dim objCmd As OleDbCommand
dim strno as string
strDSN = Get_DSN(False)
objConn = New OleDbConnection(strDSN)
strNo = Grid1.DataKeys.Item(E.Item.ItemIndex)
strSQL = "delete from regbook where id='" &strno & "'"
objCmd = New OleDbCommand(strSQL, objConn)
objCmd.Connection.Open()
Try
objCmd.ExecuteNonQuery()
'--- Display Success message ---
lblShow.Text = "<font color='red'>删除数据(" & strNo & ")" _
& "成功！</font>"
Catch exp As OleDbException
lblShow.Text = "<font color='red'>删除数据(" & strNo & ")" _
& "有误，请重试一次！</font>"
End Try
objCmd.Connection.Close()
End Sub
Sub Show_Grid()
Dim objCmd As OleDbDataAdapter
Dim objDS As DataSet
'--- 定义SQL字符串 ---
strSQL = "select * from regbook order by id"
'--- 执行SQL命令 ---
objCmd = New OleDbDataAdapter()
objCmd.TableMappings.Add("Table", "info")
objCmd.SelectCommand = New OleDbCommand(strSQL, objConn)
objDS = New DataSet("info")
objCmd.Fill(objDS)
Grid1.DataSource = objDS.Tables("info").DefaultView
Grid1.DataBind()
End Sub
</script>
<html>
<head><title>欢迎使用音像资料在线管理系统</title></head>
<link href="css/class.css" type=text/css rel=stylesheet>
<body>
<center> <font size="5">致远工作室音像资料在线管理系统<br><br></font><font size="3">管理用户预约数据</font></center><hr>
<form runat="server" method="post">
<center><asp:Label id="lblShow" runat="server" Maintainstate="false" /><p>
<asp:DataGrid id="Grid1" runat="server"
HeaderStyle-BackColor="blue" HeaderStyle-ForeColor="white"
ItemStyle-BackColor="white" ItemStyle-ForeColor="black" Width="720"
DataKeyField="id" OnDeleteCommand="Delete_Row">
<Columns>
<asp:ButtonColumn Text="删除本数据" CommandName="Delete" />
</Columns>
</asp:DataGrid>
</form>
<a href="default.aspx">返回资源管理中心</a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -