前几天我在配SQL标签的时候，因为需要用到时间，发现科讯的时间格式还蛮多的，我好奇想看看这个函数是怎么写的，仔细一看吓了一跳，这个函数居然有132行。这个突然让我想到今年高考的理科考生“神奇”解题的思路：在常规思路下，那道理科题目是需要25个以上的步骤才可以将问题解决，而且专家们还故意在常规的思路中设置了重重障碍，估计的作对率在5%，但是出奇的是，有好几个学生居然使用5-6个步骤就解答出来而其很容易看懂，思路非常清晰....，最后专家们感叹这些学生很厉害，除了赞叹之余，我被引入了一个思考的境地......，

总结分析：其实这个是建模型带来的好处，我在上学阶段也一直很注重学习数学的思维，特别是建模型。如果说数据结构是计算机的灵魂，那么我说建模型是社会一切实践的核心，下面我使用这一思路去修正科讯的时间格式化函数，当然还看到很多科讯的函数是可以精简的，比方说科讯的生成函数与缓存函数，还有编辑器调用函数，但是由于时间关系，我这里只例举一个说明问题。

科讯这个时间格式化的函数在我看到之后，发现居然有132行，我在思考，难道真的需要这么多的步骤才可以完成吗？为什么JSP的编程中可以使用YY-MM-DD hh:mm:ss或者YY年MM月DD日等的格式（模型）就可以完成，也不需要任何的重写函数，ASP重写函数是否可以借鉴其思路来建模型呢？我根据程序上下结构，根本没有看它的执行调用的地方，我就可以将函数通过模型精简到10行完全可以实现科讯的时间格式化函数的所有功能（这个科讯官方可以检测），而且非常容易懂（不需要大家在开发的时候去记忆或者查询：0到底是什么是什么返回值,1到底是什么是什么返回值，2到底是什么是什么返回值，3到底是什么返回值....，只需要知道你需要什么样的格式，传递模型过去即可返回这种模型或格式的值。这个思路jsp就处理的比较好，jsp开发的时候只需要大家知道接口函数名以及接口函数实现的功能与返回值，大家就可以去各自开发，如果asp可以引入这些对象性的高级思想，那么这个就可以明显提团队开发的效率），不信大家看下面的代码，然后比较最下面的科讯的代码。然后解释之类的大家应该不需要了，明白我想表达什么，也知道函数模型在表达什么。

附：
一：我其实没有别的意思，只是想让程序更加简洁易懂，让大家可以更加好的去理解程序进行二次开发,你们既然提供二次开发的机会给大家，那么代码的简洁性固然重要。像官方所描述的加粗与加颜色，这个不是也一样吗？

二：假设你是需要这样的格式：(2010/07/27)，那么模型：(YY/MM/DD)，假设你需要(2010/07/27)，那么模型：(<b>YY/MM/DD</b>)，再假设你需要[2010年07月27日]，那么你的模型就是：[<font color=red>YY</font>年MM月<font color=green>YY</font>日]，不知道你们是否觉得这样不行，还是怎么的？这样程序开发者难道不是好理解吗？你们的论坛主要是针对科讯CMS爱好者交流与问题的讨论社区，你们原来那个程序没有使用的原因我自己也测试了，月份标签MM和分钟标签mm在执行替换的时候很容易导致返回值不正确。我只是想通过讨论让用户得到更加好的体验，我也未曾打算开发什么CMS，用你们的CMS给我带来了很多方便，所以我如果发现能在最大程度上提高效率的，我就会去改你们的程序。包括伪静态的，以及栏目域名与文章的域名绑定问题，均使用伪静态规则实现，所以不必要再程序中增加哪些域名判断的东西,这样不是又可以给程序瘦身吗？（当前这个也有前提，必须是伪静态的模式之下才有效)

如果只要年月：time = DateTimeFormat(ByVal DateTime, "YY年MM月")

如果只要月日：time = DateTimeFormat(ByVal DateTime, "MM月DD日")

如果只要时分秒：time = DateTimeFormat(ByVal DateTime, "hh时ff分ss秒")

....
YY年MM月，MM月DD日，hh时ff分ss秒，MM/DD hh:ff:ss，【MM-DD】,[MM-DD hh:ff] 这些就是模型

非常简单就可以实现ASP时间格式化的函数分享，希望能代替可续的时间格式化函数 Kesion.CommonCls.asp 的1107行的函数DateFormat（科讯的这个函数一共是132行），精简之后代码只有10行或者在加几行就可以完全实现。10行代码与132行代码加载速度一比较，大家都清楚其速度。

精简之后的函数：

' 函数名：DateTimeFormat

' 形 参：Format 时间格式（模型） 格式为 YY-MM-DD hh:ff:ss或者 YY年MM月DD日 或者 YY-MM或者【YY/MM/DD】或者[MM/DD]等都是时间格式或者模型

' 返回值：根据传递的模型返回模型格式的值。例如：【YY年MM月DD日 hh时ff分】=【2010年07月29日 12时27分】

转载请注明本文地址：http://www.1366.me/aspjc/64.html

科讯的时间格式函数

'----------------------------------------------------------------------------------------------------------------------------
'函数名:DateFormat

'功 能:日期格式函数

'参 数: DateStr日期, Types转换类型 '----------------------------------------------------------------------------------------------------------------------------

Function DateFormat(DateStr, Types)

if Types=22 then
DateString = "(" & DateString &")"
elseIf Types=42 then
DateString = "[" & DateString &"]"
end if
Case 3,23,43
DateString=Year(DateStr) & "/" & Right("0" & Month(DateStr), 2) & "/" & Right("0" & Day(DateStr), 2)
if Types=23 then
DateString = "(" & DateString &")"
elseIf Types=43 then
DateString = "[" & DateString &"]"
end if
Case 4,24,44
DateString=Right("0" & Month(DateStr), 2) & "/" & Right("0" & Day(DateStr), 2) & "/" & Year(DateStr)
if Types=24 then
DateString = "(" & DateString &")"
elseIf Types=44 then
DateString = "[" & DateString &"]"
end if
Case 5,25,45
DateString = Year(DateStr) & "年" & Right("0" & Month(DateStr), 2) & "月"
if Types=25 then
DateString = "(" & DateString &")"
elseIf Types=45 then
DateString = "[" & DateString &"]"
end if
Case 6,26,46
DateString = Year(DateStr) & "年" & Right("0" & Month(DateStr), 2) & "月" & Right("0" & Day(DateStr), 2) & "日"
if Types=26 then
DateString = "(" & DateString &")"
elseIf Types=46 then
DateString = "[" & DateString &"]"
end if
Case 7,27,47
DateString = Right("0" & Month(DateStr), 2) & "." & Right("0" & Day(DateStr), 2) & "." & Year(DateStr)
if Types=27 then
DateString = "(" & DateString &")"
elseIf Types=47 then
DateString = "[" & DateString &"]"
end if
Case 8,28,48
DateString = Right("0" & Month(DateStr), 2) & "-" & Right("0" & Day(DateStr), 2) & "-" & Year(DateStr)
if Types=28 then
DateString = "(" & DateString &")"
elseIf Types=48 then
DateString = "[" & DateString &"]"
end if
Case 9,29,49
DateString = Right("0" & Month(DateStr), 2) & "/" & Right("0" & Day(DateStr), 2)
if Types=29 then
DateString = "(" & DateString &")"
elseIf Types=49 then
DateString = "[" & DateString &"]"
end if
Case 10,30,50
DateString = Right("0" & Month(DateStr), 2) & "." & Right("0" & Day(DateStr), 2)
if Types=30 then
DateString = "(" & DateString &")"
elseIf Types=50 then
DateString = "[" & DateString &"]"
end if
Case 11,31,51
DateString = Right("0" & Month(DateStr), 2) & "月" & Right("0" & Day(DateStr), 2) & "日"
if Types=31 then
DateString = "(" & DateString &")"
elseIf Types=51 then
DateString = "[" & DateString &"]"
end if
Case 12,32,52
DateString = Right("0" & Day(DateStr), 2) & "日" & Right("0" & Hour(DateStr), 2) & "时"
if Types=32 then
DateString = "(" & DateString &")"
elseIf Types=52 then
DateString = "[" & DateString &"]"
end if
Case 13,33,53
DateString = Right("0" & Day(DateStr), 2) & "日" & Right("0" & Hour(DateStr), 2) & "点"
if Types=33 then
DateString = "(" & DateString &")"
elseIf Types=53 then
DateString = "[" & DateString &"]"
end if
Case 14,34,54
DateString = Right("0" & Hour(DateStr), 2) & "时" & Minute(DateStr) & "分"
if Types=34 then
DateString = "(" & DateString &")"
elseIf Types=54 then
DateString = "[" & DateString &"]"
end if
Case 15,35,55
DateString = Right("0" & Hour(DateStr), 2) & ":" & Right("0" & Minute(DateStr), 2)
if Types=35 then
DateString = "(" & DateString &")"
elseIf Types=55 then
DateString = "[" & DateString &"]"
end if
Case 16,36,56
DateString = Right("0" & Month(DateStr), 2) & "-" & Right("0" & Day(DateStr), 2)
if Types=36 then
DateString = "(" & DateString &")"
elseIf Types=56 then
DateString = "[" & DateString &"]"
end if
Case 17,37,57
DateString = Right("0" & Month(DateStr), 2) & "/" & Right("0" & Day(DateStr), 2) &" " &Right("0" & Hour(DateStr), 2)&":"&Right("0" & Minute(DateStr), 2)
if Types=37 then
DateString = "(" & DateString &")"
elseIf Types=57 then
DateString = "[" & DateString &"]"
end if
Case Else
DateString = DateStr
End Select
DateFormat = DateString
End Function


大家看了之后，从运行的速度上来看到底谁的会加载快，速度快，效率高！