<%
Function G_Counts(CounterFile)
Dim objFSO, objTS, Counts, StrCounts
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 1, True)
If Not objTS.AtEndOfStream Then '檢查是否到達檔案結尾
Counts = CLng(objTS.ReadLine)
End If
if isempty(session("connected")) then
Application.Lock
Counts = Counts + 1
objTS.Close
Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 2, True)
objTS.WriteLine(Counts)
objTS.Close
Application.Unlock
end if
StrCounts = CStr(Counts)
For i = 1 to Len(StrCounts)
G_Counts = G_Counts & ""
Next
session("connected")=true
End Function
%>
新增網頁2
