信息发布中的判断过期和有效期的东西
更新时间:2006年12月25日 00:00:00 作者:
复制代码 代码如下:
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
相关文章
ASP的Server.MapPath()不同参数返回路径总结
这篇文章主要介绍了ASP的Server.MapPath()不同参数返回路径总结,也就是在Server.MapPath()中填入绝对路径、相对路径等情况的返回值总结,需要的朋友可以参考下2014-07-07
windows2003下使用asp WScript.Shell的设置方法
在windows2000下,IIS默认设置是可以web和可执行程序通信的。但是在2003下IIS关于这方面的服务是禁止的。2007-12-12


最新评论