文件：

KS_CLS\KS.LabelCls.asp

函数：

KS_A_L    

 要改动的地方：

If Cbool(NewTF)=True And (Year(SQL(7,N))&Month(SQL(7,N))&Day(SQL(7,N)) =Year(Now)&Month(Now)&Day(Now)) Then

自己动手吧