|
<%
function Decrypt(sText)
' Replace with your own decrypt ;)
Decrypt = sText
end function
application.lock
application("PageViews") = application("PageViews") + 1
if application("TodaysDate") <> Date() then
application("PageViewsToday") = 0
application("VisitorsToday") = 0
end if
application("PageViewsToday") = application("PageViewsToday") + 1
application("TodaysDate") = Date()
application.unlock
if session("userid") = "" then
session("devusername") = Decrypt(request.cookies("UserName"))
'session("userid") = Decrypt(request.cookies("devFullName"))
end if
session("PageViewed2") = session("PageViewed1")
session("PageViewed1") = session("PageViewed0")
session("PageViewed0") = request.ServerVariables("script_name")
sUserInfo = dOnlineUsers.Item(Session.SessionID)
aUserInfo = split(sUserInfo, "<|>")
aUserInfo(1) = Time()
aUserInfo(2) = request.ServerVariables("script_name")
sUserInfo = aUserInfo(0) & "<|>" & aUserInfo(1) & "<|>" & aUserInfo(2)
dOnlineUsers.Item(Session.SessionID) = sUserInfo
%>
| 