asp正确显示日期代码

来源：互联网发布：短信群发系统源码编辑：程序博客网时间：2024/05/18 22:42

<%
Function time_type(tvar,tt)
dim ttt:ttt=tvar
if not(isdate(ttt)) then time_type="":exit function
select case tt
case 1 '10-10
    time_type=month(ttt)&"-"&day(ttt)
case 11 '月-日
    time_type=month(ttt)&"月"&day(ttt)&"日"
case 2 '年(2)-月-日 00-10-10
    time_type=right(year(ttt),2)&"-"&month(ttt)&"-"&day(ttt)
case 3 '2000-10-10
    time_type=year(ttt)&"-"&month(ttt)&"-"&day(ttt)
case 33 '年(4)-月-日
    time_type=year(ttt)&"年"&month(ttt)&"月"&day(ttt)&"日"
case 4 '23:45
    time_type=hour(ttt)&":"&minute(ttt)
case 44 '时:分
    time_type=hour(ttt)&"时"&minute(ttt)&"分"
case 5 '23:45:36
    time_type=hour(ttt)&":"&minute(ttt)&":"&second(ttt)
case 55 '时:分:秒
    time_type=hour(ttt)&"时"&minute(ttt)&"分"&second(ttt)&"秒"
case 6 '10-10 23:45
    time_type=month(ttt)&"-"&day(ttt)&" "&hour(ttt)&":"&minute(ttt)
case 66 '月-日时:分
    time_type=month(ttt)&"月"&day(ttt)&"日 "&hour(ttt)&"时"&minute(ttt)&"分"
case 7 '年(2)-月-日时:分 00-10-10 23:45
    time_type=right(year(ttt),2)&"-"&month(ttt)&"-"&day(ttt)&" "&hour(ttt)&":"&minute(ttt)
case 8 '2000-10-10 23:45
    time_type=year(ttt)&"-"&month(ttt)&"-"&day(ttt)&" "&hour(ttt)&":"&minute(ttt)
case 88 '年(4)-月-日时:分
    time_type=year(ttt)&"年"&month(ttt)&"月"&day(ttt)&"日 "&hour(ttt)&"时"&minute(ttt)&"分"
case 9 '2000-10-10 23:45:45
    time_type=year(ttt)&"-"&month(ttt)&"-"&day(ttt)&" "&hour(ttt)&":"&minute(ttt)&":"&second(ttt)
    time_type=formatdatetime(time_type)
case 99 '年(4)-月-日时:分:秒
    time_type=year(ttt)&"年"&month(ttt)&"月"&day(ttt)&"日 "&hour(ttt)&"时"&minute(ttt)&"分"&second(ttt)&"秒"
case else
    time_type=ttt
end select
end function%>
<%now_time=time_type(now(),9)%>
<%response.write formatdatetime(now_time,1)&" "&WeekDayName(WeekDay(now_time))%>

能看懂的自然就会用了，哈哈