您是第<% Set fsObject = Server.CreateObject ("Scripting.FileSystemObject") FileName = Server.MapPath ("./DataFile/Counter.cnt") Set txtsRead = fsObject.OpenTextFile(FileName, 1 ,False) Num = txtsRead.ReadLine for i = 1 to Len(num) %> <% next Set txtsWrite = fsObject.OpenTextFile(FileName, 2 ,False) txtsWrite.WriteLine num + 1 %> 位访问者