count.asp

依蓝旅游网站管理系统Elan2008.SP2

<%
Option Explicit
Response.Expires = 0
%>
<!--#Include File="Counter_Conn.asp"-->
<!--#Include File="../Inc/ClassCache.asp"-->
<%
Dim EL_Cache, EL_IntervalTime, EL_IntervalNum
Set EL_Cache = New ClassCache

EL_IntervalTime = EL_Cache.GetCache("Count.IntervalTime", 0)
EL_IntervalNum = EL_Cache.GetCache("Count.IntervalNum", 0)

If EL_IntervalTime = "" OR EL_IntervalNum = "" Then
   Call OpenConnection()
   Dim rsApp
   Set rsApp = Conn.Execute("SELECT IntervalTime,IntervalNum FROM EL_CounterConfig")
   If rsApp.EOF And rsApp.BOF Then    
	  Call EL_Cache.SetCache("Count.IntervalTime", 60, -1)
	  Call EL_Cache.SetCache("Count.IntervalNum", 5, -1)
   Else
	  EL_IntervalTime = rsApp(0)
	  EL_IntervalNum = rsApp(1)
	  Call EL_Cache.SetCache("Count.IntervalTime", EL_IntervalTime, -1)
	  Call EL_Cache.SetCache("Count.IntervalNum", EL_IntervalNum, -1)
   End If
   rsApp.Close()
   Set rsApp = Nothing
   Call CloseConn()
End If

Set EL_Cache = Nothing

Dim URL
URL = "http://" & Request.ServerVariables("HTTP_HOST") & GetDir(Request.ServerVariables("URL"))
If Right(URL, 1) <> "/" Then URL = URL & "/"

Function GetDir(ByVal Path)
    Dim i, Temp
    GetDir = ""
    For i = 1 To Len(Path)
        If Left(Right(Path, i), 1) = "/" Or Left(Right(Path, i), 1) = "\" Then
            Temp = i
            Exit For
        End If
    Next
    If Temp <> 1 Then GetDir = Left(Path, Len(Path) - Temp + 1)
End Function
%>

var url = "<%=URL%>";
var IntervalTime = <%=(EL_IntervalTime * 1000)%>;
var IntervalNum = <%=EL_IntervalNum%>;
var n = 0;
function EL_ActiveOnline(){
   if(n<=IntervalNum){
		var img = new Image();
		img.src = url +'ActiveOnline.asp';
		setTimeout('EL_ActiveOnline()',  IntervalTime);
	}
	n++;	
}
document.write("<scr"+"ipt language=javascript src="+url+"Stat.asp?Referer="+escape(document.referrer)+"&Width="+escape(screen.width)+"&Height="+escape(screen.height)+"&Color="+escape(screen.colorDepth)+"></sc"+"ript>");
EL_ActiveOnline();