只能自己组合:
Dim str
str = Year(Now) & Month(Now) & Day(Now) & Hour(Now) & Minute(Now) & Second(Now)
str 就是你要的格式了
<%=DatePart("yyyy",now())%> 年
<%=DatePart("m",now())%> 月
<%=DatePart("d",now())%> 日
<%=DatePart("h",now())%> 时
<%=DatePart("n",now())%> 分
<%=DatePart("s",now())%> 秒