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