|
<%
Set objFS=Server.CreateObject("Scripting.FileSystemObject")
Set objRF=objFS.OpenTextFile(Server.MapPath("/count/hit_count.txt"))
visitor_no=objRF.ReadLine
objRF.Close
Set objRF=Nothing
If Session("visitor")="" Then
visitor_no=visitor_no+1
Set objRF=objFS.OpenTextFile(Server.MapPath("/count/hit_count.txt"), 2)
objRF.WriteLine visitor_no
objRF.Close
Set objRF=Nothing
Session("visitor")=visitor_no
End If
Set objFS=Nothing
%>
|
||
|
|
|
© 2006 Apidej Plaibua All rights reserved. |