%
Set Fs=Server.CreateObject("Scripting.FileSystemObject") '创建文件操作对象
file_path=Server.MapPath("./counter.txt") '获得文件路径
Set CounterFile=Fs.OpenTextFile(file_path) '选择记录浏览记录的文档
OldCounterValue=CounterFile.ReadLine '读取原有记录资料
NewCounterValue=OldCounterValue+1 '原有记录资料增加1
CounterFile.Close '关闭文件
Set CounterFile=Fs.OpenTextFile(file_path,2) '打开记录浏览记录的文档--counter.txt?可以写入模式
CounterFile.WriteLine(NewCounterValue) '将新的浏览记录写入文档
CounterFile.Close '关闭文档
%>
天津MRO专业提供商--天津地吉特尔集团网{电话:022-23035697}
Only Actions, anything can be possible |
|