% CountFile=Server.MapPath("count.txt") 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 counter= counter + 1 Out.WriteLine(counter) Application.unlock Out.Close %>
![]() |
|
||||||||||||||||||||||||||||||
|
|
|||||||||||||||||||||||||||||
联系电话:0532-80698010 传真:0532-80698019 |
copyrights © 2006 科大金纳(海纳)等离子科技有限公司 All rights reserved |