asp 格式化時間函數

'本款函數可以根據使用者給定的時間日期進行年月日，時分秒等，只要使用者給定不同的style參數就可以顯示不同風格的時間日期。

function formattime(testtime,style)
 dim n,y,r,s,f,m
 n = year(testtime)
 y = month(testtime)
 r = day(testtime)
 s = hour(testtime)
 f = minute(testtime)
 m = second(testtime)
 if len(n) = 2 then n = "20" & n
 if len(y) = 1 then y = "0" & y
 if len(r) = 1 then r = "0" & r      
 if len(s) = 1 then s = "0" & s
 if len(f) = 1 then f = "0" & f
 if len(m) = 1 then m = "0" & m
 nn=right(n,2)
 if style = 1 then
  formattime = "<font color=""#ff0000"">"& n &"</font>年<font color=""#ff0000"">"& y &"</font>月<font color=""#ff0000"">"& r &"</font>日<font color=""#ff0000"">"& s &"</font>時"
 elseif style = 2 then
  formattime = r &"日 "& s & ":" & f & ":" & m
 elseif style = 3 then
  formattime = n &"年"& y &"月"& r &"日"
 elseif style = 4 then
  formattime = n & "-" & y & "-" & r & " " & s & ":" & f
 elseif style = 5 then
  formattime =  y &"-"& r &"&nbsp;" & s & ":" & f
 elseif style = 6 then
  formattime = n &"年"& y &"月"& r &"日" & s &":"& f
 elseif style = 7 then
  formattime =  n & y & r & s & f & m
 elseif style = 8 then
  formattime = n & "-" & y & "-" & r
 elseif style = 9 then
  formattime = n & "/" & y & "/" & r 
 end if
end function