News Contents
信息中心

关于如何自定义Aspcms的日期显示的样式

发表日期:2018/3/5      浏览次数:

1、找到文件: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 "m"
                nloopstr = replace(nloopstr,matchfield.value,FormatDate(rsObj("AddTime"),10))
   case "d"
                nloopstr = replace(nloopstr,matchfield.value,FormatDate(rsObj("AddTime"),11))

修改之后,就可以用[list:date style=yy][list:date style=m][list:date style=d]来独立显示年月日了。
还可以通过判断{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=m]是显示的就是英文的月份了。

 

AspCms_templateFun.asp 找到

    templateObj.content=replace(templateObj.content,"["&str&":date style=yy-m-d]",FormatDate(rsObj("Addtime"),1))
    templateObj.content=replace(templateObj.content,"["&str&":date style=y-m-d]",FormatDate(rsObj("Addtime"),2))
    templateObj.content=replace(templateObj.content,"["&str&":date style=m-d]",FormatDate(rsObj("Addtime"),3))

增加
    templateObj.content=replace(templateObj.content,"["&str&":date style=yy]",FormatDate(rsObj("Addtime"),9))
    templateObj.content=replace(templateObj.content,"["&str&":date style=m]",FormatDate(rsObj("Addtime"),10))
    templateObj.content=replace(templateObj.content,"["&str&":date style=d]",FormatDate(rsObj("Addtime"),11))

盛大建站承接个人、公司、企业的网站建设、网页设计、网店制作、独立商城制作、外贸网站制作,也承接同行介绍的业务,欢迎联系!
本站承接主要业务如下:
1、提供免备案虚拟主机(网站空间),有独立国内服务器、高速美国服务器、香港服务器、韩国服务器、日本服务器,>> http://www.fuanxx.com
2、网站建设:个人网店制作、企业建站、公司网站、新闻、下载等;论坛、博客网站搭建,承接外贸英文站制作
3、承接阿里巴巴、京东、淘宝、天猫等的商品数据采集
4、网站防钓鱼,可以过360、QQ、搜狗、金山、微信拦截
5、要就发IP网站限制访问系统,防止同行抄袭并保障海外客户访问不受影响,>> http://www.198ip.com
十年如一日,我们专注于提供高品质 定制网站建设服务!
您的信任,我们的责任,期待与您的合作!