歡迎光臨~~您是本站第 <% Set fsObject = Server.CreateObject ("Scripting.FileSystemObject") FileName = Server.MapPath ("./Counter/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 %>位訪客!