复制代码 代码如下: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

　　推荐阅读

　　ASP万用分页程序

这只是个asp小技巧类的东西，它虽然适合在每个不同文件名里调用这个函数，但是也是有前提的，下面让我们来仔细看看其中的原委。 　　下面这段是基本的分页代码： ＜% sql = "select……………………省略了sql语句>>>详细阅读

本文标题：信息发布中的判断过期和有效期的东西

地址：http://www.17bianji.com/kaifa2/ASP/32903.html

 1/2    1