Dim myOutputString As String = "My name is"Dim myInputString As String = " Alex"myOutputString = myOutputString & myInputStringResponse.Write(myoutputString)
http://www.CodeHighlighter.com/-->Sub Page_Load(Source As Object, E As EventArgs)Dim sb As System.Text.StringBuilderDim varother As Integervarother=9999sb =new System.Text.StringBuilder()sb.append("可以Append其他类型:")sb.append(varother)Response.write(sb.toString())End Sub
Dim myConnection As SqlConnection = new SqlConnection(ConfigurationSettings.AppSettings("DSN_pubs"))Dim myCommand As SqlCommand = new SqlCommand("Select pub_id, pub_name From publishers", myConnection)Dim myDataReader As SqlDataReaderTrymyConnection.Open()myDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)DropDownList1.DataSource = myDataReaderDropDownList1.DataBind()Catch myException As ExceptionResponse.Write("An error has occurred: " & myException.ToString())FinallyIf Not myDataReader Is Nothing Then\\\'关闭DataReadermyDataReader.Close()End IfEnd Try
http://www.CodeHighlighter.com/-->Dim myConnection As SqlConnection = new SqlConnection(ConfigurationSettings.AppSettings("DSN_pubs"))Dim myCommand As SqlCommand = new SqlCommand("Select pub_id, pub_name From publishers", myConnection)TrymyConnection.Open()DropDownList1.DataSource = myCommand.ExecuteReader()DropDownList1.DataBind()Catch myException As ExceptionResponse.Write("An error has occurred: " & myException.ToString())FinallyIf Not myConnection Is Nothing AndAlso ((myConnection.State And ConnectionState.Open) = ConnectionState.Open) ThenmyConnection.Close()End IfEnd Try