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

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

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

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

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

'標(biāo)簽：4個(gè) {Wa}：1 {Wb}：Friday {Wc}：一 {Wd}：Tue

W=WeekDay(DateTime)

Dim WW

'//數(shù)字 5

If InStr(Str,"{Wa}")>0 Then Str=Replace(Str,"{Wa}",W)

'//英文 Friday

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

For I=1 To 7

If W=I Then Str=Replace(Str,"{Wb}",numTOen(I+11)):Exit For

'//中文五

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

WWW=W

If WW=1 Then

Str=Replace(Str,"{Wc}","日")

Else

For I=2 To 7

If WW=I Then Str=Replace(Str,"{Wc}",numTOcn(I-1)):Exit For

End If

'//英文縮寫 Tue

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

For I=1 To 7

If W=I Then Str=Replace(Str,"{Wd}",Left(numTOen(I+11),3)):Exit For

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

'小時(shí)的處理，時(shí)間DateTime必須包含小時(shí)

'標(biāo)簽：

H=Hour(DateTime)

Dim HH

FormatDate=Str

End Function

%>

<%

'例子

'Sub Br()

'Response.Write "<br/>"&VBCrlf

'End Sub

'Sub Out(Str)

'Response.Write Str&VBCrlf

'Br

'End Sub

'----------Test

'Dim S,T

'S="今年是{Yc}年{Yb}年{Ya}年{Ma}月{Mb}月{Mc}月{Md} {Me} {Da}日{(diào)Db}日{(diào)Dc}日 The {Dd}周{Wb}|{Wd}星期{Wc}"

'T=Now()

'Out FormatDate(S,T)

%>

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