asp.net技术内幕的书配源码

				
								Dim conPubs As SqlConnection
				Dim strUpdate As String
				Dim cmdUpdate As SqlCommand
				
				conPubs = 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!