Asp时间处理函数

推荐：asp事件类 asplib-eventProvider.class.asp 用于获取ip等
作者真是细致，把这些东西都封装成为class了。有点过了，这些东西可以作成过程或者函数来封装，sub和function也是封装，不一定非要class才可以。您的文件库不一定全部都是class，一些sub和funtion都是必要的。 实现的功能包括 1，showInfo(e_title,c_url,e_n

一个转化时间的函数。kingcms中的时间处理也是很强大的，有时间可以看看。

PHP中的date()函数功能实在是太强大了，忍不住用ASP模仿写了个.... 但只是写到日，还没写小时，分，秒的..

所以这个函数还没能格式化小时，分，秒的，有时间以后再加上。

<%
'******************************
'名称：时间处理函数
'函数：FormatDate(Str,DateTime)
'参数：Str字符串，DateTime时间
'作者：西楼冷月
'日期：2006/1/24
'网址：www.xilou.net|www.chinaCMS.org
'描述：返回类型为字符串，不是时间类型，错误返回False
'******************************
FunctionFormatDate(Str,DateTime)
FormatDate=False
IfIsDate(DateTime)=FalseThen
FormatDate=False
ExitFunction
EndIf
'//年，月，周，日，小时，分钟，秒
DimY,M,W,D,H,Min,S
'//数字和中文的转换
DimnumTOcn,cnStr
cnStr=零|一|二|三|四|五|六|七|八|九|十|十一|十二|十三|十四|十五|十六|十七|十八|十九|二十|
cnStrcnStr=cnStr&二十一|二十二|二十三|二十四|二十五|二十六|二十七|二十八|二十九|三十|三十一|
cnStrcnStr=cnStr&三十二|三十三|三十四|三十五|三十六|三十七|三十八|三十九|四十|四十一|四十二|
cnStrcnStr=cnStr&四十三|四十四|四十五|四十六|四十七|四十八|四十九|五十|五十一|五十二|五十三|
cnStrcnStr=cnStr&五十四|五十五|五十六|五十七|五十八|五十九|六十
numTOcn=Split(cnStr,|)
'//数字和英文的转换
DimnumTOen,enStr
enStr=January|February|March|April|May|June|July|August|September|October|November|December|
enStrenStr=enStr&Sunday|Monday|Tuesday|Wednesday|Thursday|Friday|Saturday
numTOen=Split(enStr,|)
'-----------------------------
'年的处理,时间DateTime必须包含年份
'标签：3个{Ya}:2006{Yb}:06{Yc}:二零零六
Y=Year(DateTime)'取得年份
IfInStr(Str,{Ya})>0ThenStr=Replace(Str,{Ya},Y)'2006
IfInStr(Str,{Yb})>0ThenStr=Replace(Str,{Yb},Right(Y,2))'06
IfInStr(Str,{Yc})>0Then
DimYY'数字和中文的转换
YYY=Y
ForI=0To9
YY=Replace(YY,I,numTocn(I))
Next
Str=Replace(Str,{Yc},YY)'二零零六
EndIf
分享：Asp class一个标签引擎类tagEngine.Class
一个用来实现tag功能的asp类，具体的作用，如果您可以读懂的话就可以明白了了。 修改记录： 1,增加扩展函数,2006-12-3 % '****************************** '类名：tagEngine '名称：标签引擎 '日期：2006-11-29 '作者：西楼冷月 '网址：www.xilou.net | www.
共3页上一页123下一页