<%@LANGUAGE="VBSCRIPT"%>
<% Option Explicit %>
<% Response.Expires = -1500 %>
<%
Function Counts(CounterFile)
Dim objFSO, objTS
Application.Lock
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 1, True)
If Not objTS.AtEndOfStream Then 'Checking whether it is at the end of the file
Counts = CLng(objTS.ReadLine)
End If
Counts = Counts + 1
objTS.Close
Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 2, True)
objTS.WriteLine(Counts)
objTS.Close
Application.Unlock
End Function
If Session("Counter") = Empty Then
Session("Counter") = Counts("Counter.txt")
End If
%>
物理治療資訊網
|
瀏覽人次 |
|
<% =Session("Counter")%>
|