我的计数器程序为什么不累加？

[wjb]

<%
Dim ObjCounterFile, ReadCounterFile, WriteCounterFile
Dim CounterFile
Dim CounterHits
Dim FixedDigitCount
Dim DigitCount
Dim DigitCountLength
Dim DigitZerosToAdd
Dim DigitZeroCount
Dim ShowDigits
Dim DigitPath
FixedDigitCount = 5
DigitPath = "digits/red_on_white"
On Error Resume Next
Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject")

CounterFile = Server.MapPath ("counter.txt")

Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True)

If Not ReadCounterFile.AtEndOfStream Then
CounterHits = Trim(ReadCounterFile.ReadLine)
If CounterHits = "" Then CounterHits = 0
Else
CounterHits = 0
End If

ReadCounterFile.Close
Set ReadCounterFile = Nothing

CounterHits = CounterHits + 1

Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile,2,True)
WriteCounterFile.WriteLine(CounterHits)
WriteCounterFile.Close
Set WriteCounterFile = Nothing

Set ObjCounterFile = Nothing

DigitCountLength = Len(CounterHits)

If DigitCountLength < FixedDigitCount Then
DigitZerosToAdd= FixedDigitCount - DigitCountLength
DigitZeroCount = 1
For DigitZeroCount = DigitZeroCount to DigitZerosToAdd
ShowDigits = ShowDigits & "<img src=""" & DigitPath & "/0.gif"" Alt =""" & CounterHits & " Visitors"" >"
Next
End If

DigitCount = 1
For DigitCount = DigitCount to DigitCountLength
ShowDigits = ShowDigits & "<img src=""" & DigitPath & "/" & Mid(CounterHits,DigitCount,1) & ".gif"" Alt =""" & CounterHits & " Visitors"">"
Next
%>

[一杯咖啡]

CounterHits = cint(Trim(ReadCounterFile.ReadLine))
If CounterHits = "" Then CounterHits = 0
Else
CounterHits = 0
End If
这个语法有点问题.counterhits既然是字符型你怎么把数值赋与它.
把数据写入文件中可以先kill 掉文件再创建写入.

[纪俊]

好像是这个问题，你自己have a try

[hhwlc]

用 global.asa 写计数器简单多了

[freeleo]

还有一个可能，你的服务器不支持文件读写

[freeleo]

还有一个可能，你的服务器不支持文件读写

[希偌]

If CounterHits = "" Then CounterHits = 0
Else
CounterHits = 0
End If
很明显，你这句有问题，无论什么情况下你都CounterHits=0，你这个计数器怎么累加？
你的计数器是否一直都是1，你把文本改成别的数字，比如3，4等等，运行一次这个程序看看，是否恢复计数为1，如果是就是这个问题了！

[希偌]

当CounterHits=""时把他重新赋值为0，那为什么else的情况下也赋值为0呢，可以说
If CounterHits = "" Then CounterHits = 0
Else
CounterHits = 0
End If
这一段根本就没有用嘛！