複製代碼代碼如下: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