推薦：asp事件類 asplib-eventProvider.class.asp 用于獲取ip等作者真是細致，把這些東西都封裝成為class了。有點過了，這些東西可以作成過程或者函數來封裝，sub和function也是封裝，不一定非要class才可以。您的文件庫不一定全部都是class，一些sub和funtion都是必要的。 實現的功能包括 1，showInfo(e_title,c_url,e_n
'----------------------------- '月的處理,時間DateTime必須包含年份月份 '標簽：5個 {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 Next Str=Replace(Str,"{Mc}",MM)'一 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 Next Str=Replace(Str,"{Md}",MM) End If '//英文縮寫Jan If InStr(Str,"{Me}")>0 Then Str=Replace(Str,"{Me}",Left(MM,3)) '------------------------------- '日的處理，時間DateTime必須包含年份月份日 '標簽：4個 {Da}：1 {Db}：01 {Dc}：一 {Dd}：1st D=Day(DateTime)'取得日 Dim DD '//數字 1 If InStr(Str,"{Da}")>0 Then Str=Replace(Str,"{Da}",D) '//數字 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 Next Str=Replace(Str,"{Dc}",DD) 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一個標簽引擎類tagEngine.Class一個用來實現tag功能的asp類，具體的作用，如果您可以讀懂的話就可以明白了了。 修改記錄： 1,增加擴展函數,2006-12-3 % '****************************** '類名：tagEngine '名稱：標簽引擎 '日期：2006-11-29 '作者：西樓冷月 '網址：www.xilou.net | www.
。