delete1.aspx
来自「《精通ASP.NET网络编程》附带实例」· ASPX 代码 · 共 42 行
ASPX
42 行
<%@Import Namespace="System.Data"%>
<%@Import Namespace="System.Data.SqlClient"%>
<Html>
<head>
<title>删除新闻</title>
<Script Language="VB" runat="server">
Sub delete_Click(sender As Object,e As EventArgs)
'当点击删除按钮之后执行下面的代码
Dim MyConnection As SqlConnection
Dim MyCommand As SqlCommand
Dim ConnStr As String
'链接SQL Server数据库
MyConnection =New SqlConnection("Initial Catalog=mydb;Data Source=(local)\NetSDK;Integrated Security=SSPI;")
MyConnection.Open()
If newsid.Text="" Then
Label1.Text="新闻的ID号不能为空!"
else
'删除记录
ConnStr="delete from news where id="+newsid.Text
MyCommand=New SqlCommand(ConnStr,MyConnection)
MyCommand.ExecuteNonQuery()
Label1.Text="删除成功!"
newsid.Text=""
End If
End Sub
</Script>
</head>
<Body>
<Div Align="CENTER">
<P><FONT SIZE="+3">删除新闻</FONT></P>
<P>请输入要删除新闻的ID号:</P>
<form runat=server>
<asp:TextBox id="newsid" size="20" runat="server"/>
<br>
<asp:Button id="delete" onClick=delete_Click runat="server" Text="删除"></asp:Button>
<br>
<asp:Label id="Label1" runat="server"/>
</form>
</Div>
</Body>
</Html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?