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