ASP中格式化时间的函数

<%

' ============================================

' 格式化时间(显示)

' 参数：n_Flag

'    1:"yyyy-mm-dd hh:mm:ss"

'    2:"yyyy-mm-dd"

'    3:"hh:mm:ss"

'    4:"yyyy年mm月dd日"

'    5:"yyyymmdd"

'    6:"mm-dd"

' ============================================

Function Format_Time(s_Time, n_Flag)

    Dim y, m, d, h, mi, s

    Format_Time = ""

    If IsDate(s_Time) = False Then Exit Function

    y = cstr(year(s_Time))

    m = cstr(month(s_Time))

    If len(m) = 1 Then m = "0" & m

    d = cstr(day(s_Time))

    If len(d) = 1 Then d = "0" & d

    h = cstr(hour(s_Time))

    If len(h) = 1 Then h = "0" & h

    mi = cstr(minute(s_Time))

    If len(mi) = 1 Then mi = "0" & mi

    s = cstr(second(s_Time))

    If len(s) = 1 Then s = "0" & s

    Select Case n_Flag

    Case 1

        ' yyyy-mm-dd hh:mm:ss

        Format_Time = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s

    Case 2

        ' yyyy-mm-dd

        Format_Time = y & "-" & m & "-" & d

    Case 3

        ' hh:mm:ss

        Format_Time = h & ":" & mi & ":" & s

    Case 4

        ' yyyy年mm月dd日

        Format_Time = y & "年" & m & "月" & d & "日"

    Case 5

        ' yyyymmdd

        Format_Time = y & m & d

    case 6

        'mm-dd

        Format_Time = m & "-" & d

    case 7

        'hh:mm:ss dd-mm-yyyy

        Format_Time = h & ":" & mi & ":" & s& " " & d & "-" & m & "-" & y 

    End Select

End Function

dim shijian

shijian=Format_Time(Now(),7)

response.write "当前时间为"&Cstr(shijian)

%>