一个特殊的计数器!!!(问题)

[笨魚]

我想做一个特别的计数器,既计数达到一定的次数(10次)后,记录下当时的时间,便不在计数了,
然后过一段时间(10分种),再将计数器清零,重新开始计数!

设想:用一个文件(time.txt)记录下,计数器满了的时间Time_Flag,然后用Time()和Time_Flag比较!

程序如下:
<%
Dim NowTime
NowTime = Time()

set fsFilesys=Server.CreateObject("Scripting.FileSystemObject")
set myTime=fsFilesys.OpenTextFile(Server.MapPath("time.txt"),,true)
Time_Flag=MyTime.ReadLine
MyTime.close

IF NowTime > Time_Flag THEN

'计数器清零

ELSE

'时间未到!!!


END IF

%>

.
.
.
.
.
.

'计数器满时，将当时的时间写如time.txt
<%
Set FS = CreateObject("Scripting.FileSystemObject")
Set MyTime = FS.CreateTextFile(Server.Mappath("time.txt"))
Dim Time_Flag
Time_Flag = Time() + #00:01:00#
'MyTime.write("#") 这么写也没用
MyTime.Write(Time_Flag)
'MyTime.write("#")
MyTime.Close
%>

我的程序执行时总是显示 "时间未到!!!"

但是将 IF NowTime > Time_Flag THEN 中的Time_Flag该为具体的时间(#10:00:00#)程序就

正常了,请高手指点一下,小弟我先在这里谢啦! ^o^

[笨魚]

大虾们,帮帮忙啊!:~(

[solomon]

1. Comfirm waht you write to [time.txt] is OK. use NotePad.exe
2. Comfirm waht you read from [time.txt] is OK. add response.write Time_Flag
3. When Compare , Convert to Date. use CDate(Time_Flag);

[笨魚]

我也想过,我写进去的应该是个字符串,读出来的也应该是字符串!
而NowTime是个日期型变量,我开始是这么写的

Time_Flag=MyTime.ReadLine

IF NowTime > CDate(Time_Flag) THEN

但错误提示--->类型不匹配

后来我该成 Time_Flag=CDate(MyTime.ReadLine)
IF NowTime > Time_Flag THEN
就好了!:)
谢谢solomon!!!!!!!
分数给你30分吧!:)