ASP简单计数器(读写Txt文件)

[code]<% CountFile=Server.MapPath("flyso_counter.txt") '文件flyso_counter.txt是用来储存数字的文本文件,初始内容一般是0 'flyso blog:www.flyso.net 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
‘关闭文件
%>[/code]

未经允许不得转载:Windy's Blog » ASP简单计数器(读写Txt文件)

赞 (0)