Dim myOutputString As String = "My name is"
Dim myInputString As String = " Alex"
myOutputString = myOutputString & myInputString
Response.Write(myoutputString)

http://www.CodeHighlighter.com/

-->Dim sb as StringBuilder = New StringBuilder()
sb.append( " 
" )
For i = 0 To RowCount - 1
sb.Append(" 
")
For k = 0 To ColCount - 1
sb.Append(" 
" )
Next
sb.Append(" 
")
Next
sb.Append( "
")
sb.Append( dt.Rows(i).Item(k, DataRowVersion.Current).toString())
sb.Append( "
")
Dim strOutput as String = sb.ToString()
lblCompany.Text = strOutput

http://www.CodeHighlighter.com/

-->Sub Page_Load(Source As Object, E As EventArgs)
Dim sb As System.Text.StringBuilder
Dim varother As Integer
varother=9999
sb =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 SqlDataReader
Try
myConnection.Open()
myDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
DropDownList1.DataSource = myDataReader
DropDownList1.DataBind()
Catch myException As Exception
Response.Write("An error has occurred: " & myException.ToString())
Finally
If Not myDataReader Is Nothing Then
\\\'關閉DataReader
myDataReader.Close()
End If
End 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)
Try
myConnection.Open()
DropDownList1.DataSource = myCommand.ExecuteReader()
DropDownList1.DataBind()
Catch myException As Exception
Response.Write("An error has occurred: " & myException.ToString())
Finally
If Not myConnection Is Nothing AndAlso 

((myConnection.State And ConnectionState.Open) = ConnectionState.Open) Then
myConnection.Close()
End If
End Try