推荐：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.
。