Question

怎样控制ASP中时间显示的格式

我ACC数据库中一个字段“date”，在ACC中设定它的默认值为“now()”
然后如果在ASP中直接用response.write("&rs("date")&),这样出来的时间格式是"2006-6-7 15:21:30"
我想把显示的时间格式变成“2006年6月7日”
该怎样做呢？

听说可以“<%=formatdatetime(now(),1)%>”
但这个“<%=formatdatetime(now(),1)%>”怎样放到response.write("&rs("date")&)中去呢
楼下在哪随便COPY一段啊？还是没解答我问题啊

我自己解决问题了，不用回答了

response.write(&formatdatetime(rs("date"),1)&)

Answer 1

ASP中从数据库中读取出来的时间要控制显示格式，只需分别获取该日期的年、月、日、小时、分、秒等，再按需组合就可以。
比如：
一、数据库读取出来的日期为： mm=rs("m_date")，则
年：year(mm) 'asp显示为<%=year(mm)%>下面月日等相同写法
月：month(mm)
日：day(mm)
小时：hour(mm)
分：Minute(mm)
秒：Second(mm)
二、然后我们根据需要再组合：
2015-12-10的形式：<%=year(mm) &"-"&month(mm)&"-"&day(mm)%>
2015年12月110日的形式：<%=year(mm) &"年"&month(mm)&"月"&day(mm)&"日"%>

Answer 2

mm=rs("date")
response.write year(mm)&"年"&month(mm)&"月"&day(mm)&"日"

或者自己写一个函数，方便自己以后引用：
function wirteMydate(inputDate)
dim inputDate,outputDate
if inputDate&"a"<>"a" then
outputDate=year(inputDate)&"年"&month(inputDate)&"月"&day(inputDate)&"日"
else
outputDate=""
end if
writeMydate=outputDate
end function

以后引用就用writeMydate(rs("date"))就行了！很方便！

Answer 3

'使日期按指定格式输出显示,规则可修改规则定义器
'例子:Response.Write(FormatNewsDate(#2005/05-03#))
'返回：(2005-5-3)
'如果是当天的，则颜色显示为红色
Function FormatNewsDate(datestr)
Dim yyyy,mm,dd,c_yyyy,c_mm,c_dd
Dim fcolor_s,fcolor_e
yyyy = Year(datestr)
mm = Month(datestr)
dd = Day(datestr)
c_yyyy = Year(Now())
c_mm = Month(Now())
c_dd = Day(Now())
'规则定义器
If c_yyyy = yyyy AND c_mm = mm AND c_dd = dd Then '如果是当天的，则颜色显示发生改变
fcolor_s = "<font style=""color: red;font-size: 9pt;"">"
fcolor_e = "</font>"
Else
fcolor_s = "<font style=""font-size: 9pt;"">"
fcolor_e = "</font>"
End If
FormatNewsDate = fcolor_s & yyyy & "-" & mm & "-" & dd & fcolor_e
End Function