ASP的时间格式化函数，一般情况用不到。需要的话。可以使用这个。

'=====================
'格式化时间 
'formatDate(t,ftype)
'=====================
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
		formatDate=y&"-"&m&"-"&d
		case 2
		formatDate=m&"-"&d
		case 3
		formatDate=d&"-"&m
		case 4
		formatDate=y&"-"&m&"-"&d&" "&h&":"&mi&":"&s
		case 5
		formatDate=h&":"&mi&":"&s
		case 6
		formatDate=y&vbsUnEscape("%u5E74")&m&vbsUnEscape("%u6708")&d&vbsUnEscape("%u65E5")
		case 7
		formatDate=y&m&d
		case 8
		formatDate=y&m&d&h&mi&s
		case 9
		formatDate=y&vbsUnEscape("%u5E74")&m&vbsUnEscape("%u6708")&d&vbsUnEscape("%u65E5")&" "&h&":"&mi&":"&s

	end select
End Function
formatDate(now(),1~9)