风讯官方论坛

首页 » FoosunCMS交流区 » Foosun3.x安装使用 » 再问一个问题,如果去掉添加或者修改时间的分和秒

好饿啊 - 2005-4-25 09:24:00

RT

好饿啊 - 2005-4-25 10:47:00

[em06][em06]

网路游侠 - 2005-4-25 10:51:00

？？？不明白

好饿啊 - 2005-4-25 10:53:00

就是在主题后面的时间显示,

2005-4-22 16:45:36

想让他显示这样

2005-4-22

我说的是下载栏目里的

[em08]

网路游侠 - 2005-4-25 11:02:00

修改代码吧

好饿啊 - 2005-4-25 11:05:00

晕了,肯定要修改啊,关键是不知道去掉哪里啊

网路游侠 - 2005-4-25 11:07:00

用TT浏览器，要它每次都打开新窗口，看哪个文件管发布 ^_^

圆之终点 - 2005-4-25 11:24:00

以下是引用圆之终点在2005-4-21 14:27:00的发言：

修改/inc/Function.asp文件中Function  DateFormat(DateStr,Types)函数最后面：

  Case Else
      DateString = DateStr改为：
      DateString = n&"-"&y&"-"&r

好饿啊 - 2005-4-25 14:37:00

不行啊,

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 运行时错误 错误 '800a01f4'

变量未定义: 'n'

/oa/Inc/Function.asp，行77

发布栏目的时候就这样了

发布具体下载页面,时间显示还是原来那个啊

在帮忙看看好吗

[em07]

圆之终点 - 2005-4-25 17:17:00

肯定可以，你没改对咯

好饿啊 - 2005-4-25 20:56:00

我是完全按照你说的啊,而且是COPY过去,不可能错的啊

圆之终点 - 2005-4-25 22:00:00

Function  DateFormat(DateStr,Types)
    Dim DateString
if IsDate(DateStr) = False then
  DateString = ""
end if
    Dim n,y,r,s,f
n = Year(DateStr)
y = Month(DateStr)
r = Day(DateStr)
s = Hour(DateStr)
f = Minute(DateStr)
if len(n) = 2 then n = "20" & n
if len(y) = 1 then y = "0" & y
if len(r) = 1 then r = "0" & r     
if len(s) = 1 then s = "0" & s
if len(f) = 1 then f = "0" & f

  Select Case Types
  Case "1"
    DateString = n&"-"&y&"-"&r
  Case "2"
    DateString = n&"."&y&"."&r
  Case "3"
    DateString = n&"/"&y&"/"&r
  Case "4"
    DateString = y&"/"&r&"/"&n
  Case "5"
    DateString = r&"/"&y&"/"&n
  Case "6"
    DateString = y&"-"&r&"-"&n
  Case "7"
    DateString = y&"."&r&"."&n
  Case "8"
    DateString = y&"-"&r
  Case "9"
    DateString = y&"/"&r
  Case "10"
    DateString = y&"."&r
  Case "11"
    DateString = y&"ÔÂ"&r&"ÈÕ"
  Case "12"
    DateString = r&"ÈÕ"&s&"ʱ"
  case "13"
    DateString = r&"ÈÕ"&s&"µã"
  Case "14"
    DateString = s&"ʱ"&f&"·Ö"
  Case "15"
    DateString = s&":"&f
  Case "16"
    DateString = n&"Äê"&y&"ÔÂ"&r&"ÈÕ"
  Case Else
      'ĬÈÏʱ¼ä¸ñʽÐÞ¸Ä by wsw 2005 04 17
  ]    'DateString = DateStr
      DateString = n&"-"&y&"-"&r
  End Select
  DateFormat = DateString
End Function

我系统的字体有问题，你把乱码换一下。就改了上面有颜色的字

[此贴子已经被作者于2005-4-25 22:04:47编辑过]

1

查看完整版本: 再问一个问题,如果去掉添加或者修改时间的分和秒

Powered by Discuz!NT Archiver 2.0.1115 2001-2008 Comsenz Inc.