Question

在ASP网站中如何实现循环倒计时，并且能防刷新

要求网站上倒计时器可以循环，比如倒计时30秒，29.，28，。。。。0。然后又重新从30秒开始倒计时。并且可以不因访问者的刷新页面而中断倒计时的进程导致重新开始计时。具有防刷新功能，支持ASP语言上使用

Answer 1

用asp制作的一个网站访问计数器，利用网上一个源代码，增加防刷新的功能,小巧好用，感谢原代码作者。

代码如下：

<%
'---------------------------------------------------------------
' 文件名称：count.asp
' 功 能：网站计数器
' 改编作者：法盲
' 作者邮件：famang@sina.com
' 创建日期：星期五，2005年12月23日 08:42:27
' 使用说明：
' 在需要计数的页面添加<!--#include file="count.asp"-->
' 调用read_或者Digital ( counter )函数来显示访问次数
' 系统防页面刷新，期间默认为一个小时,可通过修改DateAdd函数的参数进行
' 系统会自动在count.asp所在目录下创建count.txt来存储访问次数
'--------------------------------------------------------------
%>

<%

dim fs,filename,txt,content,total,counter_lenth
counter_lenth=10 '设置显示数据的最小长度，如果小于实际长度则以实际长度为准
set fs=Server.CreateObject("Scripting.FileSystemObject")
filename=server.MapPath("count.txt")
if not fs.FileExists(filename) then
fs.CreateTextFile filename,True,True
set txt=fs.OpenTextFile(filename,2,true)
txt.write 0 '如不存在保存数据的文件则创建新文件并写入数据0
set fs=nothing
end if

set txt=fs.OpenTextFile(filename)
If txt.AtEndOfStream Then
Application("Counter")=0 '如果文件中没有数据，则初始化Application("Counter")的值（为了容错）
else
Application("Counter")=txt.readline
end if

'判断是否访问过，系统默认一个小时为刷新访问期间,需要客户端支持cookie,可通过更改DateAdd的参数值来更改
if Request.Cookies("countcookie")="" then
Response.Cookies("countcookie")="visited"
Response.Cookies("countcookie").Expires=DateAdd("h", 1, now)
Application.Lock
Application("Counter") = Application("Counter") + 1
Application.UnLock
end if

save_ '调用保存函数保存数据

Function save_ '保存计数函数
set fs=Server.CreateObject("Scripting.FileSystemObject")
filename=server.MapPath("count.txt")
content=Application("Counter")
et txt=fs.OpenTextFile(filename,2,true)
txt.write content
set fs=nothing
End Function

Function Digital ( counter ) '显示数据函数
Dim i,MyStr,sCounter
sCounter = CStr(counter)
For i = 1 To counter_lenth - Len(sCounter)
MyStr = MyStr & "0"
'MyStr = MyStr & "<IMG SRC=改成你自己的图片存放的相对目录\0.gif>" '如有图片，可用此语句调用
Next
For i = 1 To Len(sCounter)
MyStr = MyStr & Mid(sCounter, i, 1)
'MyStr = MyStr & "<IMG SRC=改成你自己的图片存放的相对目录\" & Mid(sCounter, i, 1) & ".gif>" '如有图片，可用此语句调用
Next
Digital = MyStr
End Function

Function read_ '读取计数函数
set fs=Server.CreateObject("Scripting.FileSystemObject")
filename=server.MapPath("count.txt")
set txt=fs.opentextfile(filename,1,true)
total=txt.readline
total=cint(total)
'response.write total
response.write right(Digital (total),4) '调用显示函数
set fs=nothing
End Function

%>

Answer 2

这个要用JAVASCRIPT脚步本实现,如果要更准确得用JAVASCRIPT(时间从本地读取)+ASP(时间从服务器读取),如果两者结合就可以实现准确的计时器,关于代码,找网上搜索"JS倒计时代码"应该一堆了,