Copy the code as follows: yxq=cdate(rdsInfo("InfoDate"))//Get the validity period
fbsj=FormatTime(rdsInfo("CreateTime"),8)//Publish time
dqsj=DateAdd("d",yxq,fbsj)//Expiration time
sysj=DateDiff("d",date(),dqsj)//Judge the remaining time or whether it expires
ifsysj<0then
sysj="<fontcolor=#808080>Expired</font>"
else
sysj="<fontcolor=#ff0000>"&sysj&"</font>day"
endif