Welcome to the Homepage of Aromepur!

歡迎瀏覽純香薰的主頁!

Any Time and Anywhere

Enchanted with Aromepur

何時何地都

情迷純香薰


Let's begin the journey of beauty and health in aromatherapy!

讓我們開始香薰治療的健美之旅!

<% const forReading = 1 filename = Server.MapPath("http://aromepur.com/apcounter.txt") Set fs = Server.CreateObject("Scripting.FileSystemObject") Set ts = fs.OpenTextFile(filename,forReading,true) if ts.AtEndOfStream Then counter = 1 else counter = ts.ReadLine end if ts.Close response.write "Visitor No: " for i = 1 to len(counter) response.write "" next Set ts = fs.CreateTextFile(filename,true) ts.writeline(counter+1) ts.close set fs = nothing %> Copyright © 2001-2008 Aromepur. All Rights Reserved.