newasp中main类(38)

        Case "6"
            strDateTime = m & "/" & d
        Case "7"
            strDateTime = m & "月" & d & "日"
        Case "8"
            strDateTime = y & "年" & m & "月"
        Case "9"
            strDateTime = y & "-" & m
        Case "10"
            strDateTime = y & "/" & m
        Case Else
            strDateTime = DateAndTime
        End Select
        FormatDate = strDateTime
    End Function
    '================================================
    '函数名：ReadFontMode
    '作  用：读取字体模式
    '参  数：str   ----原字符串
    '        vColor   -----颜色的值
    '        vFont   -----字体的值
    '返回值：新字符串
    '================================================
    Public Function ReadFontMode(str, vColor, vFont)
        Dim FontStr, tColor
        Dim ColorStr, arrColor

        If IsNull(str) Then
            ReadFontMode = ""
            Exit Function
        End If
        ReadFontMode = str
        On Error Resume Next
        If Not IsNumeric(vColor) Then Exit Function
        If Not IsNumeric(vFont) Then Exit Function