<% Set fsObject = Server.CreateObject ("Scripting.FileSystemObject") FileName = Server.MapPath ("./Counter.txt") Set txtsRead = fsObject.OpenTextFile(FileName, 1 ,False) Num = txtsRead.ReadLine Response.Write num Set txtsWrite = fsObject.OpenTextFile(FileName, 2 ,False) txtsWrite.WriteLine num + 1 %>
造訪人次：
艾莉詩服飾集團 版權所有
2006 IRIS INTERNATIONAL GROUP. All Rights Reserved.
2006 IRIS INTERNATIONAL GROUP. All Rights Reserved. 2006 IRIS INTERNATIONAL GROUP. All Rights Reserved.