<%@ Import Namespace="System.Data.SqlClient" %>
<Script Runat="Server">Sub Button_Click( s As Object, e As EventArgs )
Dim conPubs As SqlConnection
Dim strUpdate As String
Dim cmdUpdate As SqlCommand
Dim intUpdateCount As Integer conPubs = New SqlConnection( "Server=localhost;UID=sa;PWD=secret;database=Pubs" )
strUpdate = "Update Authors Set phone=@phone Where au_fname=@firstname And au_lname=@lastname"
cmdUpdate = New SqlCommand( strUpdate, conPubs )
cmdUpdate.Parameters.Add( "@phone", txtPhone.Text )
cmdUpdate.Parameters.Add( "@firstname", txtFirstName.Text )
cmdUpdate.Parameters.Add( "@lastname", txtLastName.Text )
conPubs.Open()
intUpdateCount = cmdUpdate.ExecuteNonQuery()
conPubs.Close()
lblResults.Text = intUpdateCount & " records updated!"
End Sub
</Script><html>
<head><title>SqlFormUpdate.aspx</title></head>
<body>
<form Runat="Server"><h2>Update Phone Number</h2><b>First Name:</b>
<br>
<asp:TextBox
ID="txtFirstName"
Runat="Server" />
<p>
<b>Last Name:</b>
<br>
<asp:TextBox
ID="txtLastName"
Runat="Server" />
<p>
<b>New Phone:</b>
<br>
<asp:TextBox
ID="txtPhone"
Runat="Server" />
<p>
<asp:Button
Text="Update Phone Number!"
OnClick="Button_Click"
Runat="Server" />
<p>
<asp:Label
ID="lblResults"
Runat="Server" /></form>
</body>
</html>
<Script Runat="Server">Sub Button_Click( s As Object, e As EventArgs )
Dim conPubs As SqlConnection
Dim strUpdate As String
Dim cmdUpdate As SqlCommand
Dim intUpdateCount As Integer conPubs = New SqlConnection( "Server=localhost;UID=sa;PWD=secret;database=Pubs" )
strUpdate = "Update Authors Set phone=@phone Where au_fname=@firstname And au_lname=@lastname"
cmdUpdate = New SqlCommand( strUpdate, conPubs )
cmdUpdate.Parameters.Add( "@phone", txtPhone.Text )
cmdUpdate.Parameters.Add( "@firstname", txtFirstName.Text )
cmdUpdate.Parameters.Add( "@lastname", txtLastName.Text )
conPubs.Open()
intUpdateCount = cmdUpdate.ExecuteNonQuery()
conPubs.Close()
lblResults.Text = intUpdateCount & " records updated!"
End Sub
</Script><html>
<head><title>SqlFormUpdate.aspx</title></head>
<body>
<form Runat="Server"><h2>Update Phone Number</h2><b>First Name:</b>
<br>
<asp:TextBox
ID="txtFirstName"
Runat="Server" />
<p>
<b>Last Name:</b>
<br>
<asp:TextBox
ID="txtLastName"
Runat="Server" />
<p>
<b>New Phone:</b>
<br>
<asp:TextBox
ID="txtPhone"
Runat="Server" />
<p>
<asp:Button
Text="Update Phone Number!"
OnClick="Button_Click"
Runat="Server" />
<p>
<asp:Label
ID="lblResults"
Runat="Server" /></form>
</body>
</html>
解决方案 »
- asp.net怎样实现将大量图片上传
- listview的itemDataBound事件能否实现像gridview的rowDataBound效果?
- 一打开iis,服务器的缓存就丢失,流量瞬间涨很多倍.
- 数据绑定怎么帮控件的id
- 同志们,进来看看,这是怎么回事儿?
- VS.net 与 Asp.net 与 .net framework都是什么概念?我都模糊了.VS.net=Asp.net吗?
- 100分,急:怎样用验证控件处理2个(多个)TextBox输入的值之和 是否等于另外一个TextBox的值
- 在ASP.NET中如何使用正则表达试?
- MVC4,通过Model的修饰限制前台输入框可输入长度的问题
- ASP.NET和PHP
- 谁可以提供一个免费的HTML在线编辑器
- 如何单击展开TreeView节点,再单击收拢TreeView节点?解决立刻给分
<%
Dim conPubs As SqlConnection
Dim strUpdate As String
Dim cmdUpdate As SqlCommand
Dim intUpdateCount As IntegerconPubs = New SqlConnection( "Server=localhost;UID=sa;PWD=secret;database=Pubs" )
strUpdate = "Update Authors Set au_lname='Smith' Where au_lname='Bennet'"
cmdUpdate = New SqlCommand( strUpdate, conPubs )
conPubs.Open()
intUpdateCount = cmdUpdate.ExecuteNonQuery()
conPubs.Close()
%>
<%=intUpdateCount%> Records Updated!
<%
Dim conPubs As SqlConnection
Dim strUpdate As String
Dim cmdUpdate As SqlCommandconPubs = New SqlConnection( "Server=localhost;UID=sa;PWD=secret;database=Pubs" )
strUpdate = "Update Authors Set au_lname='Smith' Where au_lname='Bennet'"
cmdUpdate = New SqlCommand( strUpdate, conPubs )
conPubs.Open()
cmdUpdate.ExecuteNonQuery()
conPubs.Close()
%>
Author Updated!