asp系统转换php系统时间函数,ASP格式化日期函数

ASP对时间的输出没有类似PHP的date函数，自定义格式化时间函数，代码如下：' ============================================

' 格式化时间(显示)

' 参数：n_Flag

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

' 2:"yyyy-mm-dd"

' 3:"hh:mm:ss"

' 4:"yyyy年mm月dd日"

' 5:"yyyymmdd"

' 6:"yyyymmddhhmmss"

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

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

'yyyymmddhhmmss

format_time= y & m & d & h & mi & s

End Select

End Function