<%
Response.Buffer = True
buguntarih=date()
duntarih=date()-1
set gunsay = cilem.Execute("SELECT tarih,tekilhit,cogulhit FROM sayac WHERE tarih="&"tarih"&"")
set gunsay=server.createobject("adodb.recordset")
sql="select * from sayac where tarih like '"&buguntarih&"'"
gunsay.open sql, cilem, 1, 3
set dunsay = cilem.Execute("SELECT tarih,tekilhit,cogulhit FROM sayac WHERE tarih="&"tarih"&"")
set dunsay=server.createobject("adodb.recordset")
sql="select * from sayac where tarih like '"&duntarih&"'"
dunsay.open sql, cilem, 1, 3
if gunsay.eof then
gunsay.addnew
gunsay("tarih")=buguntarih
gunsay("tekilhit")="1"
gunsay("cogulhit")="1"
gunsay.update
else
if session("sayac")<>"evet" then
tekil=gunsay("tekilhit")
gunsay("tekilhit")=tekil + 1
end if
DunTekil = gunsay("tekilhit")
cogul=gunsay("cogulhit")
gunsay("cogulhit")=cogul + 1
gunsay.update
end if%>
<%
If Not dunsay.Eof Then
DunTekilhit = dunsay("tekilhit")
End If
%>
<%
Set SayacToplam= cilem.Execute("Select Sum(tekilhit) As SayacToplam from sayac")
ipno = Request.ServerVariables("REMOTE_ADDR")
%>
<%
Sub LogActiveUser
Dim strActiveUserList
Dim intUserStart, intUserEnd
Dim strUser
Dim strDate
strActiveUserList = Application("ActiveUserList")
If Instr(1, strActiveUserList, Session.SessionID) > 0 Then
Application.Lock
intUserStart = Instr(1, strActiveUserList, Session.SessionID)
intUserEnd = Instr(intUserStart, strActiveUserList, "|")
strUser = Mid(strActiveUserList, intUserStart, intUserEnd - intUserStart)
strActiveUserList = Replace(strActiveUserList, strUser, Session.SessionID & ":" & Now())
Application("ActiveUserList") = strActiveUserList
Application.UnLock
Else
Application.Lock
Application("ActiveUsers") = CInt(Application("ActiveUsers")) + 1
Application("ActiveUserList") = Application("ActiveUserList") & Session.SessionID & ":" & Now() & "|"
Application.UnLock
End If
End Sub
Sub ActiveUserCleanup
Dim ix
Dim intUsers
Dim strActiveUserList
Dim aActiveUsers
Dim intActiveUserCleanupTime
Dim intActiveUserTimeout
intActiveUserCleanupTime = 1 'In minutes, how often should the ActiveUserList be cleaned up.
intActiveUserTimeout = 1 'In minutes, how long before a User is considered Inactive and is deleted from ActiveUserList
If Application("ActiveUserList") = "" Then Exit Sub
If DateDiff("n", Application("ActiveUsersLastCleanup"), Now()) > intActiveUserCleanupTime Then
Application.Lock
Application("ActiveUsersLastCleanup") = Now()
Application.Unlock
intUsers = 0
strActiveUserList = Application("ActiveUserList")
strActiveUserList = Left(strActiveUserList, Len(strActiveUserList) - 1)
aActiveUsers = Split(strActiveUserList, "|")
For ix = 0 To UBound(aActiveUsers)
If DateDiff("n", Mid(aActiveUsers(ix), Instr(1, aActiveUsers(ix), ":") + 1, Len(aActiveUsers(ix))), Now()) > intActiveUserTimeout Then
aActiveUsers(ix) = "XXXX"
Else
intUsers = intUsers + 1
End If
Next
strActiveUserList = Join(aActiveUsers, "|") & "|"
strActiveUserList = Replace(strActiveUserList, "XXXX|", "")
Application.Lock
Application("ActiveUserList") = strActiveUserList
Application("ActiveUsers") = intUsers
Application.UnLock
End If
End Sub
%>
<%
Call LogActiveUser()
Call ActiveUserCleanup()
%>
|
|
|
|
|
Online |
: |
<%=Application("ActiveUsers")%> |
|
Bugün |
: |
<%=gunsay("tekilhit")%> |
|
Dün |
: |
<%=DunTekilhit%> |
|
Toplam |
: |
<%=SayacToplam("SayacToplam")%> |
|
Ip No |
: |
<%=ipno%> |
|
|
|
|
<%
session("sayac")="evet"
%>