复制代码代码如下:yxq=cdate(rdsInfo("InfoDate"))//得到有效期
fbsj=FormatTime(rdsInfo("CreateTime"),8)//发布时间
dqsj=DateAdd("d",yxq,fbsj)//到期时间
sysj=DateDiff("d",date(),dqsj)//判断剩余时间或是否过期
ifsysj<0then
sysj="<fontcolor=#808080>过期</font>"
else
sysj="<fontcolor=#ff0000>"&sysj&"</font>天"
endif