被动式统计网站在线人数

' Guest_IP为访客的IP
IF Session("GuestIP")<>Guest_IP Then
    Dim Guest_Agent,Guest_Refer
    ' Guest_Agent和Guest_Refer访问记录要用到
    Guest_Agent=Trim(Request.ServerVariables("HTTP_USER_AGENT"))
    Guest_Refer=Trim(Request.ServerVariables("HTTP_REFERER"))
    ' 添加一个访问记录
    Conn.ExeCute("INSERT INTO blog_Counter(coun_IP,coun_Agent,coun_Refer) VALUES
    ('"&Guest_IP&"','"&Guest_Agent&"','"&Guest_Refer&"')")
    ' 访问次数加1
    Conn.ExeCute("UPDATE blog_Info SET blog_VisitNums=blog_VisitNums 1")
    SQLQueryNums=SQLQueryNums 2
    ' 用Session保存访客IP
    Session("GuestIP")=Guest_IP
End IF

'站点统计代码
IF Session("GuestIP")<>Guest_IP Then
    ' 原来的站点访问计数器
    Conn.ExeCute("INSERT INTO blog_Counter(coun_IP,coun_Agent,coun_Refer)
    VALUES ('"&Guest_IP&"','"&Guest_Agent&"','"&Guest_Refer&"')")
    Conn.ExeCute("UPDATE blog_Info SET blog_VisitNums=blog_VisitNums+1")
    SQLQueryNums=SQLQueryNums+2
    Session("GuestIP")=Guest_IP
    '在线人数统计
    ' 判断在在线列表中是否在在已经超时的访客
    IF Conn.ExeCute("SELECT COUNT(ol_ID) FROM blog_Online
    WHERE DateDiff('n',ol_Time,Now())>20")(0)>0 Then
        ' 如果有则覆盖一个已超时访客的记录
        Conn.ExeCute("UPDATE blog_Online SET ol_IP='"&Guest_IP&"',
        ol_Time=Now() WHERE ol_ID IN (SELECT TOP 1 ol_ID
        FROM blog_Online WHERE DateDiff('n',ol_Time,Now())>20)")
    Else
        ' 如果没有则添加一条在线访客记录
        Conn.ExeCute("INSERT INTO blog_Online (ol_IP)
        VALUES ('"&Guest_IP&"')")
    End IF
    ' 统计blog在线人数
    blog_OnlineNums=Conn.ExeCute("SELECT DISTINCT COUNT(ol_ID)
    FROM blog_Online WHERE DateDiff('n',ol_Time,Now())<20")(0)
    ' 更新blog信息中的在线人数
    Conn.ExeCute("UPDATE blog_Info SET blog_OnlineNums="&blog_OnlineNums&"")
    SQLQueryNums=SQLQueryNums+3
End IF