newasp中main类(40)

    End Function
    '=============================================================
    '函数名：ShowDateTime
    '作  用：读取日期格式
    '参  数：DateAndTime ---- 当前时间
    '        para ---- 时间格式
    '=============================================================
    Public Function ShowDateTime(DateAndTime, para)
        ShowDateTime = ""
        Dim strDate
        If Not IsDate(DateAndTime) Then Exit Function
        If DateAndTime >= Date Then
            strDate = "<font color='" & Main_Setting(1) & "'>"
            strDate = strDate & FormatDate(DateAndTime, para)
            strDate = strDate & "</font>"
        Else
            strDate = "<font color='" & Main_Setting(2) & "'>"
            strDate = strDate & FormatDate(DateAndTime, para)
            strDate = strDate & "</font>"
        End If
        ShowDateTime = strDate
    End Function
    Public Function ShowDatePath(strval, n)
        ShowDatePath = ""
        If Trim(strval) = "" Then Exit Function
        Dim strTempPath, strTime
        Dim y, m, d

        strTime = Left(strval, 8)
        y = Left(strTime, 4)
        m = Mid(strTime, 5, 2)
        d = Right(strTime, 2)
        Select Case CInt(n)