activeonline.asp

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

<%
Option Explicit
Response.Expires = 0
%>
<!--#Include File="Counter_Conn.asp"-->
<%
Call OpenConnection()
Dim CounterCmd, RemoteIp, Referer

RemoteIp = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If RemoteIp = "" Then RemoteIp = Request.ServerVariables("REMOTE_ADDR")
RemoteIp = Trim(RemoteIp)
Referer = Request.ServerVariables("HTTP_REFERER")

Set CounterCmd = Server.CreateObject("ADODB.COMMAND")
With CounterCmd
   .ActiveConnection = Conn
   .CommandText = "EL_SP_CounterOnline"
   .CommandType = 4
   .Prepared = True
   
   .Parameters.Append .CreateParameter("@RemoteIp", 200, 1, 15, RemoteIp)
   .Parameters.Append .CreateParameter("@Referer", 200, 1, 100, Referer)
   .Execute()
End With
Set CounterCmd = Nothing
Call CloseConn()  
Server.Transfer("img.gif")
%>