<% ' Web Counter Dim sPath, filesys, count, getValue, update, twohrs sPath = Request.ServerVariables("Path_Translated") sPath = Left(sPath,InStrRev(sPath,"\")) & "counter.txt" Set filesys = CreateObject("Scripting.FileSystemObject") Set getValue = filesys.OpenTextFile(sPath,1,0) count = getValue.ReadLine ' Get the current value 'Response.write(count) count = Int(count) + 1 getValue.Close Set update = filesys.CreateTextFile(sPath) update.WriteLine(count) ' Put new value in text file update.Close 'Response.write(count) %> 39 Chinese Medicine TCM acupuncture holistic clinic medical Center doctor in Toronto Canada

 

 
C








English Chinese

 
© 2010 SANJIU




 


S
You are the
Visitors