第一步：找到文件：inc/AspCms_CommonFun.asp
搜索：Function formatDate(Byval t,Byval ftype)
找到
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
2、找到文件：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图标了。
苏公网安备 32080202000131号 
建站咨询
13915107752