老迷的ASP倒计时代码

08-3-13做网页时需要用到一个倒计时插件，刚好碰到光临应天网http://www.aggov.com/的老迷写了个放在网上。代码是与他发邮件交流得来，用了很久，感觉挺好用地。好几年过去了应天网已经不知道什么时候关闭了，找不着这个朋友，但它的代码还是一直在用着。

倒计时插件说明

功能：

1、在预设时间没到前，显示距离多少天的文字。

2、当到预设时间在两天之内，则显示距离多少小时。

3、当到了预定日期，显示今日是XXX。

4、当时间超过预设置日期，则显示XXX已经过去多少天。

特点：在任何支持脚本的地方均可调用，并且可以预设各种日期和事件执行文件为：plus_datediff.asp，参数timevalue为预设日期，必须为时间格式。另一个参数e则是事件参数。

调用代码：<script language="javascript" src="//www.aggov.com/mz/datediff.asp?timevalue=日期&e=事件" type="text/javascript"></script>例子：

<script language="javascript" src="=元旦" type="text/javascript"></script>会显示“距离元旦还有XX天。”>

plus_datediff.asp页面代码

-----------------------------------begain-------------------------

<%@ LANGUAGE = VBScript CodePage = 936 %>

<%

Option Explicit

Response.Buffer = True

'Copyright 2005 aggov.com

'Response.Write "document.write("""

If IsDate(Request.QueryString("timevalue")) Then

If DateDiff("D",Now(),

Request.QueryString("timevalue")) >= 3 Then

Response.Write "离"&Request.QueryString("e")

Response.Write "还有 <b>"& DateDiff("D",Now(),

Request.QueryString("timevalue"))&"</b> 天"

ElseIf DateDiff("D",Now(),

Request.QueryString("timevalue")) < 3 and DateDiff("D",Now(),

Request.QueryString("timevalue")) > 0 Then

Response.Write "离"&Request.QueryString("e")

Response.Write "还有 <b>"& DateDiff("h",Now(),

Request.QueryString("timevalue"))&"</b> 小时"

ElseIf DateDiff("D",Now(),

Request.QueryString("timevalue")) = 0 Then

Response.Write "今天是 "&

Request.QueryString("timevalue") &" "&

Request.QueryString("e")

Else

Response.Write Request.QueryString("e")&"已经过去 <b>"& Abs(DateDiff("D",Now(),

Request.QueryString("timevalue")))&"</b> 天"

End If

Else

Response.Write "没提交正确时间"

End If

Response.Write """);"

%>

-----------------------------------end-------------------------

旧文见：http://liujinyuan.com.cn/baidu-blog/blog/144095850.html