newasp中main类(39)

        Select Case CInt(vFont)
            Case 1
                FontStr = "<b>" & str & "</b>"
            Case 2
                FontStr = "<em>" & str & "</em>"
            Case 3
                FontStr = "<u>" & str & "</u>"
            Case 4
                FontStr = "<b><em>" & str & "</em></b>"
            Case 5
                FontStr = "<b><u>" & str & "</u></b>"
            Case 6
                FontStr = "<em><u>" & str & "</u></em>"
            Case 7
                FontStr = "<b><em><u>" & str & "</u></em></b>"
        Case Else
            FontStr = str
        End Select
        ReadFontMode = FontStr

        If vColor = "" Or vColor = 0 Then Exit Function
        ColorStr = "," & InitTitleColor
        arrColor = Split(ColorStr, ",")
        If vColor > UBound(arrColor) Then Exit Function
        tColor = Trim(arrColor(vColor))
        ReadFontMode = "<font color=" & tColor & ">" & FontStr & "</font>"