推荐：asp事件类 asplib-eventProvider.class.asp 用于获取ip等作者真是细致，把这些东西都封装成为class了。有点过了，这些东西可以作成过程或者函数来封装，sub和function也是封装，不一定非要class才可以。您的文件库不一定全部都是class，一些sub和funtion都是必要的。 实现的功能包括 1，showInfo(e_title,c_url,e_n
'------------------------------- '星期的处理，时间DateTime必须包含年份月份日 '标签：4个 {Wa}：1 {Wb}：Friday {Wc}：一 {Wd}：Tue W=WeekDay(DateTime) Dim WW '//数字 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 Next End If '//中文 五 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 Next End If 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 Next End If '------------------------------- '小时的处理，时间DateTime必须包含小时 '标签： 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}日{Db}日{Dc}日 The {Dd}周{Wb}|{Wd}星期{Wc}" 'T=Now() 'Out FormatDate(S,T) %> 分享：Asp class一个标签引擎类tagEngine.Class一个用来实现tag功能的asp类，具体的作用，如果您可以读懂的话就可以明白了了。 修改记录： 1,增加扩展函数,2006-12-3 % '****************************** '类名：tagEngine '名称：标签引擎 '日期：2006-11-29 '作者：西楼冷月 '网址：www.xilou.net | www.
。