ASP格式化时间函数代码!
[格式化时间(显示)]
'函数名：Format_Time
'作用：格式化时间(显示)
'参数：s_Time----时间变量
'参数：n_Flag----时间样式类型代码
'1:"yyyy-mm-ddhh:mm:ss"
'2:"yyyy-mm-dd"
'3:"hh:mm:ss"
'4:"yyyy年mm月dd日"
'5:"yyyymmdd"
'6:"MM/DD"
'返回值：返回格式化后时间
'示例：response.writeFormat_Time(now(),4)
'**************************************************
PublicFunctionFormat_Time(ByVals_Time,ByValn_Flag)
Dimy,m,d,h,mi,s
Format_Time=""
IfIsDate(s_Time)=FalseThenExitFunction
y=cstr(year(s_Time))
m=cstr(month(s_Time))
Iflen(m)=1Thenm="0"&m
d=cstr(day(s_Time))
Iflen(d)=1Thend="0"&d
h=cstr(hour(s_Time))
Iflen(h)=1Thenh="0"&h
mi=cstr(minute(s_Time))
Iflen(mi)=1Thenmi="0"&mi
s=cstr(second(s_Time))
Iflen(s)=1Thens="0"&s
SelectCasen_Flag
Case1
'yyyy-mm-ddhh:mm:ss
Format_Time=y&"-"&m&"-"&d&""&h&":"&mi&":"&s
Case2
'yyyy-mm-dd
Format_Time=y&"-"&m&"-"&d
Case3
'hh:mm:ss
Format_Time=h&":"&mi&":"&s
Case4
'yyyy年mm月dd日
Format_Time=y&"年"&m&"月"&d&"日"
Case5
'yyyymmdd
Format_Time=y&m&d
Case6
'mm/dd
Format_Time=m&"/"&aad
case7
Format_Time=m&"/"&d&"/"&right(y,2)
EndSelect