復制代碼 代碼如下:
yxq=cdate(rdsInfo("InfoDate")) //得到有效期
fbsj=FormatTime(rdsInfo("CreateTime"),8) //發布時間
dqsj=DateAdd( "d" ,yxq ,fbsj) //到期時間
sysj=DateDiff ("d",date(),dqsj) //判斷剩余時間 或是否過期
if sysj<0 then
sysj="<font color=#808080>過期</font>"
else
sysj="<font color=#ff0000>"&sysj&"</font> 天"
end if
fbsj=FormatTime(rdsInfo("CreateTime"),8) //發布時間
dqsj=DateAdd( "d" ,yxq ,fbsj) //到期時間
sysj=DateDiff ("d",date(),dqsj) //判斷剩余時間 或是否過期
if sysj<0 then
sysj="<font color=#808080>過期</font>"
else
sysj="<font color=#ff0000>"&sysj&"</font> 天"
end if
