推薦：asp事件類 asplib-eventProvider.class.asp 用于獲取ip等
作者真是細(xì)致，把這些東西都封裝成為class了。有點(diǎn)過(guò)了，這些東西可以作成過(guò)程或者函數(shù)來(lái)封裝，sub和function也是封裝，不一定非要class才可以。您的文件庫(kù)不一定全部都是class，一些sub和funtion都是必要的。 實(shí)現(xiàn)的功能包括 1，showInfo(e_title,c_url,e_n

一個(gè)轉(zhuǎn)化時(shí)間的函數(shù)。kingcms中的時(shí)間處理也是很強(qiáng)大的，有時(shí)間可以看看。

PHP中的date()函數(shù)功能實(shí)在是太強(qiáng)大了，忍不住用ASP模仿寫(xiě)了個(gè).... 但只是寫(xiě)到日，還沒(méi)寫(xiě)小時(shí)，分，秒的..

所以這個(gè)函數(shù)還沒(méi)能格式化小時(shí)，分，秒的，有時(shí)間以后再加上。

<%  
'******************************  
'名稱：時(shí)間處理函數(shù)  
'函數(shù)：FormatDate(Str,DateTime)  
'參數(shù)：Str 字符串，DateTime 時(shí)間  
'作者：西樓冷月  
'日期：2006/1/24  
'網(wǎng)址：www.xilou.net | www.chinaCMS.org  
'描述：返回類型為字符串，不是時(shí)間類型，錯(cuò)誤返回False  
'******************************  
Function FormatDate(Str,DateTime)  
FormatDate=False  
If IsDate(DateTime)=False Then  
FormatDate=False  
Exit Function  
End If  
'//年，月，周，日，小時(shí)，分鐘，秒  
Dim Y,M,W,D,H,Min,S  
'//數(shù)字和中文的轉(zhuǎn)換  
Dim numTOcn,cnStr  
cnStr="零|一|二|三|四|五|六|七|八|九|十|十一|十二|十三|十四|十五|十六|十七|十八|十九|二十|"  
cnStrcnStr=cnStr&"二十一|二十二|二十三|二十四|二十五|二十六|二十七|二十八|二十九|三十|三十一|"  
cnStrcnStr=cnStr&"三十二|三十三|三十四|三十五|三十六|三十七|三十八|三十九|四十|四十一|四十二|"  
cnStrcnStr=cnStr&"四十三|四十四|四十五|四十六|四十七|四十八|四十九|五十|五十一|五十二|五十三|"  
cnStrcnStr=cnStr&"五十四|五十五|五十六|五十七|五十八|五十九|六十"  
numTOcn=Split(cnStr,"|")  
'//數(shù)字和英文的轉(zhuǎn)換  
Dim numTOen,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,"|")  
 
'-----------------------------  
'年的處理,時(shí)間DateTime必須包含年份  
'標(biāo)簽：3個(gè) {Ya}:2006 {Yb}:06 {Yc}:二零零六  
Y=Year(DateTime)'取得年份  
If InStr(Str,"{Ya}")>0 Then Str=Replace(Str,"{Ya}",Y)'2006  
If InStr(Str,"{Yb}")>0 Then Str=Replace(Str,"{Yb}",Right(Y,2))'06  
If InStr(Str,"{Yc}")>0 Then  
Dim YY'數(shù)字和中文的轉(zhuǎn)換  
YYY=Y  
For I=0 To 9  
YY=Replace(YY,I,numTocn(I))  
Next  
Str=Replace(Str,"{Yc}",YY)'二零零六  
End If  
分享：Asp class一個(gè)標(biāo)簽引擎類tagEngine.Class
一個(gè)用來(lái)實(shí)現(xiàn)tag功能的asp類，具體的作用，如果您可以讀懂的話就可以明白了了。 修改記錄： 1,增加擴(kuò)展函數(shù),2006-12-3 % '****************************** '類名：tagEngine '名稱：標(biāo)簽引擎 '日期：2006-11-29 '作者：西樓冷月 '網(wǎng)址：www.xilou.net | www.

ASP視頻教程
ASP系列課程從入門(mén)到精通教程打包下載  黑鷹ASP視頻教程下載  黑鷹基地ASP特訓(xùn)班教程  FIF ASP互動(dòng)視頻VIP教程下載  輕輕松松學(xué)編程！FIF小組ASP互動(dòng)視頻教程  ASP操作ACCESS數(shù)據(jù)庫(kù)視頻教程