asp代码日期位数不够补0
因为短日期不足2位，所以在网页排版的时候，影响美观，下面两个函数可以解决这个问题。
/**********************************************/
< %
Function FStime(times)
Dim years,months,days
if len(times)=0 then exit function
years=year(times)
months=right("0"&month(times),2)
days=right("0"&day(times),2)
times=years&"-"&months&"-"&days
FStime=times
End Function
%>
/**********************************************/
< %
Function FLtime(times)
Dim years,months,days,hours,minutes,seconds
if len(times)=0 then exit function
years=year(times):months=right("0"&month(times),2)
days=right("0"&day(times),2):hours=right("0"&hour(times),2)
minutes=right("0"&minute(times),2):seconds=right("0"&second(times),2)
FLtime=years&"-"&months&"-"&days&" "&hours&":"&minutes&":"&seconds
End Function
%>
登陆您的帐号 | 免费注册帐号