Question

ASPcms时间标签怎么写，精确到秒的格式？

我用的这个标签：[news:date]，只能输出年月日，精确的时间无法输出。求指点。

Answer 1

找到文件：inc/AspCms_CommonFun.asp
搜索：Function formatDate(Byval t 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

然后在 case 8后添加
case 9 ' y
formatDate=y
case 10
' m
formatDate=m case 11 ' d
formatDate=d

找到文件：inc/AspCms_MainClass.asp
搜索：case "date"
找到
case "yy-m-d"
nloopstr = replace(nloopstr,matchfield.value,FormatDate(rsObj(6),1)) case "y-m-d"
nloopstr = replace(nloopstr,matchfield.value,FormatDate(rsObj(6),2)) case "m-d"
nloopstr = replace(nloopstr,matchfield.value,FormatDate(rsObj(7),3)) end select

然后在 case "m-d"后添加
case "new"
nloopstr = replace(nloopstr,matchfield.value, datediff("d",rsObj("AddTime"),now())) case "yy"
nloopstr = replace(nloopstr,matchfield.value,FormatDate(rsObj("AddTime"),9)) case "mm"
nloopstr = replace(nloopstr,matchfield.value,FormatDate(rsObj("AddTime"),10)) case "dd"
nloopstr = replace(nloopstr,matchfield.value,FormatDate(rsObj("AddTime"),11))

修改之后，就可以用[list:date style=yy][list:date style=mm][list:date style=dd]来独立显示年月日了。
还可以通过判断{if:[[list:date style=new]<7]}class=new{end if}来为最近7天更新的新闻增加样式或者new图标了。
如果还想显示英文的月份，就需要AspCms_CommonFun.asp中的case 10的内容。
打开inc/AspCms_CommonFun.asp
搜索：Function formatDate(Byval t,Byval ftype)
找到
case 10 ' m
formatDate=m

修改case 10为：
case 10 ' m
select case m
case 1
m="January"
case 2
m="February"
case 3
m="March"
case 4
m="April"
case 5
m="May"
case 6
m="June"
case 7
m="July"
case 8
m="August"
case 9
m="September"
case 10
m="October"
case 11
m="November"
case else
m="December"
end select
formatDate= m

这样调用[list:date style=mm]是显示的就是英文的月份了。
怎么样，是不是很简单，轻轻松松就可以定义自己想要的日期时间的样式了。

追问

不能显示一小时，分，秒。

Answer 2

第一种方法:用语言英文版,自动识别出来的.如果在原来中文基础上也可以修改: 修改inc/AspCms_Language.asp里边相应的文字,修改成英文的就可以了.找到:if setting.Alias=＂cn＂ then err_01=＂数据库连接错误＂ err_02=＂语言别名设置错误＂ err_03=＂执行SQL语句错误＂ err_04=＂st＂&＂ream对象实例创建失败＂ err_05=＂F＂&＂SO对象实例创建失败＂ err_06=＂加载文件失败＂ err_07=＂数据列表未指定主键＂ err_08=＂数据列表未指定表＂ err_09=＂写入文件失败＂ err_10=＂创建文件夹失败＂ err_11=＂删除文件夹失败＂ err_12=＂删除文件失败＂ err_13=＂文件夹不存在＂ err_14=＂移动文件夹失败＂ err_15=＂请设置默认语言＂ err_16=＂模板文件不存在＂ err_17=＂您当前所在用户组无查看权限!＂ str_01=＂首页＂ str_02=＂尾页＂ str_03=＂上一页＂ str_04=＂下一页＂ str_05=＂页次＂ str_06=＂共＂ str_07=＂页＂ str_08=＂对不起,该分类无任何记录＂ str_09=＂对不起,关键字＂ str_10=＂ 无任何记录＂ str_11=＂您当前所在用户组无查看权限!＂ str_12=＂＂ str_13=＂＂ str_14=＂＂ str_15=＂＂ str_16=＂＂ str_17=＂转到＂ newspageInfo(0)=＂ 对不起,无任何内容 ＂ channellistInfo(0)=＂ 对不起,该分类无记录任何记录 ＂:channellistInfo(1)=＂指定分类错误＂ searchlistInfo(0)=＂对不起,没有找到任何记录＂ pageRunStr(0)=＂页面执行时间: ＂:pageRunStr(1)=＂秒 ＂:pageRunStr(2)=＂次数据查询＂ 修改为:err_01=＂Database Connection Error!＂ err_02=＂Language alias setting error!＂ err_03=＂Execute SQL statement error!＂ err_04=＂St＂&＂ream object instance cr

Answer 3

我用的这个标签：[news:date]，只能输出年月日，精确的时间无法输出。求指点。

Answer 4

找到文件：inc/AspCms_CommonFun.asp

Answer 5

? 守望幸福 ( 2005) ? 警中警 ( 2007) ? 苦菜花 ( 2004)