asp 格式化时间日期

asp教程 格式化时间日期
public function formatdt(dt, style)
'style=0 2000-10-10 下午 12:17:45
'style=1 2000-10-10 23:17:45
'style=2 2000-10-10 23:45
'style=3 00-10-10 23:45
'style=4 10-10 23:45
'style=5 2000-10-10
'style=6 00-10-10
'style=7 10-10
'style=8 23h-45m-45s
'style=9 20001010231745
'style=10 0510　　　上传图片
'style=11 05年10月10日
'style=12 05/10/12　　　上传图片

    dim nowdate, y, m, d, h, i, s, t, apm, hapm
    nowdate = dt
    y = year(nowdate)
    if len(y)=1 then y="0"&y
    m = month(nowdate)
    if len(m)=1 then m="0"&m
    d = day(nowdate)
    if len(d)=1 then d="0"&d
    h = hour(nowdate)
    if len(h)=1 then h="0"&h
    i = minute(nowdate)
    if len(i)=1 then i="0"&i
    s = second(nowdate)
    if len(s)=1 then s="0"&s
   if h > 12 then
        apm = "下午 "
        hapm = cstr(cint(h) mod 12)
   else
        apm = "上午 "
        hapm = h
   end if
    select case style
        case 0
            t = y & "-" & m & "-" & d & " " & apm & hapm & ":" & i & ":" & s
        case 1
            t = y & "-" & m & "-" & d & " " & h & ":" & i & ":" & s
        case 2
            t = y & "-" & m & "-" & d & " " & h & ":" & i
        case 3
            t = right(y, 2) & "-" & m & "-" & d & " " & h & ":" & i
        case 4
            t = m & "-" & d & " " & h & ":" & i
        case 5
            t = y & "-" & m & "-" & d
        case 6
            t = right(y, 2) & "-" & m & "-" & d
        case 7
            t = m & "-" & d
        case 8
            t = h & "h-" & i & "m-" & s &"s"
        case 9
            t = y & m & d & h & i & s
        case 10'上传
            t = right(y, 2) & m
  case 11
   t = right(y, 2) & "年" & m & "月" & d & "日"
  case 12
   t = right(y, 2) & "/" & m & "/" & d
    end select
   

    formatdt = t
end function