信息发布中的判断过期和有效期的东西
更新时间：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
相关文章
能不能在flash动画中给asp传递变量？...2006-08-08
asp下如何在ADO服务器端利用好缓存技术？...2007-04-04
这篇文章主要介绍了asp+jsp+JavaScript动态实现添加数据行,实现过程很详细，整个思路清晰，感兴趣的小伙伴们可以参考一下2015-09-09
捕捉并保存ASP运行错误的函数代码，需要获取asp代码运行错误的朋友可以参考下2012-03-03
jb51内容分页函数...2006-08-08
获取软件下载的真实地址！再谈获取Response.redirect重定向的URL
获取软件下载的真实地址！再谈获取Response.redirect重定向的URL...2006-08-08
由给定的字符串生成关键字...2006-10-10
VBScript ASP CDbl() 函数转换为双精度类型
CDbl 函数用于进行从其他数据类型到 Double 子类型的国际公认的格式转换。例如，十进制分隔符和千位分隔符的识别取决于系统的区域设置。2011-05-05
asp adodb.stream对象的方法/属性...2007-07-07
这篇文章主要介绍了ASP建立一个非常简单的聊天室，文中示例代码介绍的非常详细，具有一定的参考价值，感兴趣的小伙伴们可以参考一下2015-09-09
最新评论