<font color="#FF0000">人生過程精彩才是重點</font>

Dim s As String = “選取的項目:<br>”

For i As Integer = 0 To cblCate.Items.Count - 1
            If cblCate.Items(i).Selected Then
                ‘ List the selected items
                s = s & cblCate.Items(i).Text
                s = s & “<br>”
            End If
        Next
Response.Write(s);