ok<%@language=vbscript codepage=936 %>
<!--#include file="../Inc/Conn.asp"-->
<!--#include file="../Inc/ClsSysTem.asp"-->
<%
Dim u_id,IP,sql,AdvMoney
If request("u_id")="" then
	u_id=0
Else
	u_id= Ads.ChkClng(request("u_id"))
End If

AdvMoney=0.02

'IP=Request.ServerVariables("HTTP_CLIENT_IP") & Request.ServerVariables("HTTP_X_FORWARDED_FOR") 'cdn下导致ip变  & Request.ServerVariables("REMOTE_ADDR") 
IP=Request.ServerVariables("HTTP_CLIENT_IP") & Request.ServerVariables("HTTP_X_FORWARDED_FOR") & Request.ServerVariables("REMOTE_ADDR")

'gf cid=request("cid")

if Not IsObject(Conn) then
  OpenConn
end if

'sql="INSERT INTO cpa_AdvCount(cid,SiteID, AdvListID,AddIP,u_id) VALUES('"& cid &"',"& SiteID&","&StyleID&",'"&IP&"',"&u_id&")"
sql="INSERT INTO cpa_AdvCount(AddIP,u_id,Money) VALUES('"& IP &"',"& u_id& ","& AdvMoney & ")"

Conn.execute(sql)

response.Write("tongji:" & IP)

%>