asp时间日期格式化输出 
1，2010-10-10 00：00：00 
2，2010-10-10 
3，2010/10/10 
4，2010年10月10 00小时00分钟00秒 
5，10-10 00:00:00 
6，10/10 
7，10月10日 

其他变换根据程序要自行添加即可

'转换时间 时间格式化 

Function formatDate(Byval t,Byval ftype) 
dim y, m, d, h, mi, s 
formatDate=""
If IsDate(t)=False Then Exit Function
y=cstr(year(t)) 
m=cstr(month(t)) 
If len(m)=1 Then m="0" & m 
d=cstr(day(t)) 
If len(d)=1 Then d="0" & d 
h = cstr(hour(t)) 
If len(h)=1 Then h="0" & h 
mi = cstr(minute(t)) 
If len(mi)=1 Then mi="0" & mi 
s = cstr(second(t)) 
If len(s)=1 Then s="0" & s 
select case cint(ftype) 
case 1 
' yyyy-mm-dd 
formatDate=y & "-" & m & "-" & d 
case 2 
' yy-mm-dd 
formatDate=right(y,2) & "-" & m & "-" & d 
case 3 
' mm-dd 
formatDate=m & "-" & d 
case 4 
' yyyy-mm-dd hh:mm:ss 
formatDate=y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s 
case 5 
' hh:mm:ss 
formatDate=h & ":" & mi & ":" & s 
case 6 
' yyyy年mm月dd日 
formatDate=y & "年" & m & "月" & d & "日"
case 7 
' yyyymmdd 
formatDate=y & m & d 
case 8 
'yyyymmddhhmmss 
formatDate=y & m & d & h & mi & s 
end select 
End Function

使用方法：

Strdate=formatdatetime(rs("date"),1)

推荐您阅读更多有关于“”的文章