%@ LANGUAGE="VBSCRIPT" %> <% Set fs =server.CreateObject("Scripting.FileSystemObject") path=server.MapPath ("counter.txt") Set thisfile = fs.OpenTextFile(path, 1, False) number=thisfile.readline number=number+1 thisfile.close set outfile=fs.createtextfile(path) outfile.writeline number %>
![]() |
|
|||||||||||||||||||||||||||
|
![]() |