版权所有：烟台市万特达精密铸造有限公司  |  鲁 ICP备05047704号  |<% 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("") Response.Write(counter) ''把计数器的值传送到浏览器，以红(red)色显示给用户 Response.Write("") Response.Write("位访问者") Out.Close ''关闭文件 %> 技术支持：万特达公司 T.G SP:W.T.D LTD.