Asp時(shí)間處理函數(shù)(2)_ASP教程

教程Tag：暫無(wú)Tag,歡迎添加,賺取U幣!

推薦：asp事件類(lèi) 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

'-----------------------------

'月的處理,時(shí)間DateTime必須包含年份月份

'標(biāo)簽：5個(gè) {Ma}：1 {Mb}：01 {Mc}：一 {Md}：January {Me}：Jan

M=Month(DateTime)'取得月份

Dim MM

If InStr(Str,"{Ma}")>0 Then Str=Replace(Str,"{Ma}",M)'1

If InStr(Str,"{Mb}")>0 Then

If M<10 Then MM=0&M

Str=Replace(Str,"{Mb}",MM)'01

End If

'//中文一月

If InStr(Str,"{Mc}")>0 Then

MMM=M

For I=1 To 12

If MM=I Then MM=numTocn(I):Exit For

End If

'//英文 January

If InStr(Str,"{Md}")>0 Then

MMM=M

For I=1 To 12

If MM=I Then MM=numTOen(I-1):Exit For

End If

'//英文縮寫(xiě)Jan

If InStr(Str,"{Me}")>0 Then Str=Replace(Str,"{Me}",Left(MM,3))

'-------------------------------

'日的處理，時(shí)間DateTime必須包含年份月份日

'標(biāo)簽：4個(gè) {Da}：1 {Db}：01 {Dc}：一 {Dd}：1st

D=Day(DateTime)'取得日

Dim DD

'//數(shù)字 1

If InStr(Str,"{Da}")>0 Then Str=Replace(Str,"{Da}",D)

'//數(shù)字 01

If InStr(Str,"{Db}")>0 Then

DDD=D

If DD<10 Then DD=0&DD

Str=Replace(Str,"{Db}",DD)

End If

'//中文一

If InStr(Str,"{Dc}")>0 Then

DDD=D

For I=1 To 31

If DD=I Then DD=numTOcn(I):Exit For

End If

'//英文 24th

If InStr(Str,"{Dd}")>0 Then

DDD=D

Select Case DD

Case 1, 21, 31

DDDD = DD&"st"

Case 2, 22

DDDD = DD&"nd"

Case 3, 23

DDDD = DD&"rd"

Case Else

DDDD = DD&"th"

End Select

Str=Replace(Str,"{Dd}",DD)

End If

分享：Asp class一個(gè)標(biāo)簽引擎類(lèi)tagEngine.Class
一個(gè)用來(lái)實(shí)現(xiàn)tag功能的asp類(lèi)，具體的作用，如果您可以讀懂的話(huà)就可以明白了了。修改記錄： 1,增加擴(kuò)展函數(shù),2006-12-3 % '****************************** '類(lèi)名：tagEngine '名稱(chēng)：標(biāo)簽引擎 '日期：2006-11-29 '作者：西樓冷月 '網(wǎng)址：www.xilou.net | www.