设为首页| 网站评价 | 网友建议 | 郑重声明 |
加入收藏 | 网站地图
Copyright 2007 焦作市统计局 All Rights Reserv
ed 本站访问
<%
CountFile=Server.MapPath("counter.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(counter)
'把计数器的值传送到浏览器，以红(red)色显示给用户
Response.Write("")
Out.Close
'关闭文件
%> 次
主办：焦作市统计局 维护：焦作市统计局综合科 技术支持：焦作市电子计算中心
联系电话：0391－3569212 
