Question

asp网页计数器

<%
CountFile=Server.MapPath("newscounter.txt")
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)
counter=Out.ReadLine
Out.Close
SET FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)
Application.lock
counter= counter + 1
Out.WriteLine(counter)
Application.unlock
Response.Write"document.write("&counter&")"
'为了在页面正确显示计数器的值，调用VBScript函数Document.write
Out.Close
%>
有错吗，，怎么用了一段时间后就不能显示了

Answer 1

Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)

你用create并且第一个参数是true的话不是每次都覆盖了么
另外加application.lock是对公共变量锁定的
counter 不是你自己的变量么 加上这句有什么用
这是以前用的一个计数器，你看看吧
Dim CountFileDir,CountFile,CounterLenth,CountNum
CounterLenth = 6 '显示数据最小长度
CountFileDir = Server.MapPath("Count.txt") '数据文件地址
Function PrintNumber(x) '显示方式函数
Dim i,MyStr,sCounter
sCounter = CLng(x) '转换数据
For i = 1 To CounterLenth - Len(sCounter) '循环添加0
MyStr = MyStr & "0"
Next
For i = 1 To Len(sCounter)
MyStr = MyStr & Mid(sCounter, i, 1)
Next
PrintNumber = MyStr '输出
End Function
'显示计数函数
Function ReadNum()
'初始化
If Application("Counter")="" Then '用Application缓存数据
If Not FSO.FileExists(CountFileDir) Then '检查文件是否存在
FSO.CreateTextFile CountFileDir,True,-1 '创建文件
Set CountFile = FSO.OpenTextFile(CountFile,2,True,-1) '打开文件
CountFile.Write 0 '写入0
CountFile.Close
Set CountFile = Nothing '释放内容
End If
Set CountFile = FSO.OpenTextFile(CountFileDir,1,-1)
If CountFile.AtEndOfStream Then '如果文件中没有数据
Application("Counter")=0
Else
Application("Counter")=CountFile.ReadLine '读入数据
End If

CountFile.close
Set CountFile=Nothing '释放内容
Else
Application.Lock '锁定
Application("Counter") = Application("Counter") + 1 '增加访问量
Set CountFile=FSO.OpenTextFile(CountFileDir,2,-1) '打开文件
CountFile.Write Application("Counter") '写入数据
CountFile.Close
Set CountFile=Nothing '释放内容
Application.UnLock '解锁
End If
ReadNum=PrintNumber(Application("Counter")) '调用显示方式函数
End Function

调用：<%= ReadNum() %>