#12003/10/16 22:27:41
朋友告诉我将下列两个文件放到主页文件夹的根目录下(default.asp和simplecounter.txt)其中default.asp中有一段是这样的:
<%
CountFile=Server.MapPath("simplecounter.txt")
'文件aspconter.txt是用来储存数字的文本文件,初始内容一般是0
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
'方法Application.lock禁止别的用户更改计数器的值
counter= counter + 1
'计数器的值增加1
Out.WriteLine(counter)
'把新的计数器值写入文件
Application.unlock
'使用方法Application.unlock后,允许别的用户更改计数器的值
Response.Write("您是第")
Response.Write("")
Response.Write(counter)
'把计数器的值传送到浏览器,以红(red)色显示给用户
Response.Write("")
Response.Write("位访问者")
Out.Close
'关闭文件
%>
问题是我用了一段时间后,现在开始不好使了(也就是记数器不出来了)
请问:(1)有操作起来很方便的记数器吗?(2)能详细介绍几种记数器的使用方法吗?
我对asp不是很熟。小弟这里万分感谢!!!