<% Set Fs=Server.CreateObject("Scripting.FileSystemObject") file_path=Server.MapPath("../counter.txt") Set CounterFile=Fs.OpenTextFile(file_path) OldCounterValue=CounterFile.ReadLine NewCounterValve=OldCounterValue+1 CounterFile.Close Set CounterFile=Fs.OpenTextFile(file_path,2) CounterFile.WriteLine(NewCounterValue) CounterFile.Close %> 【 Minami 手工生活雜貨 】- 繪本作者與影像作者的設計品牌

 
© Minami Studio, Taipei, 2005