📄 delete.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 session("master")="" then
response.redirect("cancel.aspx")
end if
end sub
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 onclick1(Sender As Object, E As EventArgs)
if txtid.text <>txtid1.text then
lblshow.text= "<font color='red'>ID 输入有误！！</font>"
else
strDSN = Get_DSN(False)
objConn = New OleDbConnection(strDSN)
Show_Grid()
end if
End Sub
Sub Delete_Row(S As Object, E As DataGridCommandEventArgs)
Dim objCmd As OleDbCommand
strDSN = Get_DSN(False)
objConn = New OleDbConnection(strDSN)
strSQL = "delete from info where id='" & txtid.text & "'"
objCmd = New OleDbCommand(strSQL, objConn)
objCmd.Connection.Open()
Try
objCmd.ExecuteNonQuery()
'--- Display Success message ---
lblShow.Text = "<font color='red'>删除数据ID:(" & txtid.text & ")" _
& "成功！</font>"
Catch exp As OleDbException
lblShow.Text = "<font color='red'>删除数据ID:(" & txtid.text & ")" _
& "有误，请重试一次！</font>"
End Try
objCmd.Connection.Close()
End Sub
Sub Show_Grid()
Dim objCmd As OleDbDataAdapter
Dim objDS As DataSet
'--- 定义SQL字符串 ---
strSQL = "select * from info where id='" & txtid.text & "' 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><br><br>
<center><font size="5">致远工作室音像资料管理系统</font><br><br>
<form runat="server" method="post">
<font color="red">请输入你要删除数据的ID，请注意，本操作是不可恢复！！</font><br><br>输入ID：<asp:textbox id="txtid" runat="server"/><br><br>确认ID：<asp:textbox id="txtid1" runat="server"/><br><br>
<asp:button id="button1" text="查询" onclick="onclick1" runat="server"/>
<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 + -