在线人数统计：Global.asa
〈SCRIPT LANGUAGE=VBScript RUNAT=Server〉

Sub Application_onStart
Application("OnLine") = 0
End Sub

Sub Session_onStart
Application.Lock
Application("OnLine") = Application("OnLine") + 1
Application.Unlock
End Sub

Sub Session_OnEnd
Application.Lock
Application("OnLine") = Application("OnLine") - 1
Application.Unlock
End Sub

〈/SCRIPT〉
-------------------------------------
今日PV统计：
〈%
Sub IncrementCounter()
Set fs=Server.CreateObject ("Scripting.FileSystemObject")

counter_file=Server.MapPath("../count/today.txt")

Set txt=fs.OpenTextFile (counter_file)
Application("counter")=txt.ReadLine
txt.Close

if time < #00:01:00# and time >=#00:00:00# then
Application("counter")=0
else
Application("counter")=Application("counter")+1
end if

Set txt=fs.CreateTextFile (counter_file,True)
txt.WriteLine(Application("counter"))
txt.Close
End Sub
IncrementCounter
Application.UnLock
%〉