% Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile(server.mappath("data.txt")) b=f.readline b=b+1 f.close Set f = fs.createtextfile(server.mappath("data.txt"),true) f.writeline b f.close %>
|
|
||||||
|
中国工控网·网上展厅 |