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下一頁