yxq=cdate(rdsInfo("InfoDate"))  //得到有效期
fbsj=FormatTime(rdsInfo("CreateTime"),8)  //發(fā)布時間
dqsj=DateAdd( "d" ,yxq ,fbsj)  //到期時間
sysj=DateDiff ("d",date(),dqsj)  //判斷剩余時間 或是否過期
 if sysj<0 then 
sysj="<font color=#808080>過期</font>" 
else 
sysj="<font color=#ff0000>"&sysj&"</font>&nbsp;天" 
end if