ASP格式化时间函数代码

ASP格式化时间函数代码：

  '[格式化时间(显示)]
  '函数名：Format_Time
  '作 用：格式化时间(显示)
  '参 数：s_Time ---- 时间变量
  '参 数：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"
  '返回值：返回格式化后时间
  '示 例：response.write Format_Time(now(),4)
  '**************************************************
  Public Function Format_Time(ByVal s_Time,ByVal 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
   Format_Time = m & "/" & d & "/" & right(y,2)
   End Select
  End Function