count.asp

没有什么

<!--#include file="conn.Asp"-->
<%
'dim conn
'dim dbpath
'set conn=server.createobject("adodb.connection")
'DBPath = Server.MapPath("../data.Mdb")
'conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs=server.createobject("adodb.recordset")
dim mac,ver,ip,time1
action=request.QueryString("action")
mac=request.QueryString("mac")
ver=request.QueryString("ver")
ip=getIP()
date1=date()

select case action
	case "install"
		lianmeng=request.QueryString("lianmeng")
		sql="select * from install where mac='"& mac & "'"
		rs.open sql,conn,1,3
		if rs.eof then
			sql1="insert into install (mac,ip,ver,time1,time2,lianmeng) values('"&mac&"','"&ip&"','"&ver&"','"&now&"','"&now&"','"&lianmeng&"')"
		else
			sql1="update install set ip='"&ip&"',ver='"&ver&"',time2='"&now&"' where mac='"&mac&"'"
			rs.close
		end if
    case "clickad"
		adid=request.QueryString("adid")
		ifclick=request.QueryString("ifclick")
		
		sql1="insert into clickad (mac,ip,ver,time1,adid,ifclick) values('"&mac&"','"&ip&"','"&ver&"','"&now&"',"&adid&","&ifclick&")"
		set rs2=server.createobject("adodb.recordset")
		sql2="select * from count_ad where adid="&adid&" and date_time='"&date1&"'"
'		response.Write(sql2)
'		response.End()
		rs2.open sql2,conn,1,1
		if rs2.eof then		
			if  ifclick=1 then
				insertcount1(adid)
			else
				insertcount2(adid)
			end if
		else
			if  ifclick=1 then
				updatecount1 (adid)
			else
				updatecount2 (adid)
			end if
		end if
end select
conn.execute(sql1)

function insertcount1(adid)
	shijian="ch"&hour(now)
	shijian2="sh"&hour(now)
	set rsinsert=server.createobject("adodb.recordset")
	sqlinsert="select * from adsurllist where id="&adid
	rsinsert.open sqlinsert,conn,1,3
	if not rsinsert.eof then
		if rsinsert("sjsuiji")=1 then
			conn.execute("insert into count_ad (counttype,date_time,adid,need_num,click_bi,h1,h2,h3,h4,h5,h6,h7,h8,h9,h10,h11,h12,h13,h14,h15,h16,h17,h18,h19,h20,h21,h22,h23,h0,"&shijian&","&shijian2&",sum_num,click_num) values('1','"&date&"','"&adid&"',"&int(rsinsert("urlcount")*rsinsert("urldisplay")/100)&","&rsinsert("urldisplay")&","&rsinsert("h1")&","&rsinsert("h2")&","&rsinsert("h3")&","&rsinsert("h4")&","&rsinsert("h5")&","&rsinsert("h6")&","&rsinsert("h7")&","&rsinsert("h8")&","&rsinsert("h9")&","&rsinsert("h10")&","&rsinsert("h11")&","&rsinsert("h12")&","&rsinsert("h13")&","&rsinsert("h14")&","&rsinsert("h15")&","&rsinsert("h16")&","&rsinsert("h17")&","&rsinsert("h18")&","&rsinsert("h19")&","&rsinsert("h20")&","&rsinsert("h21")&","&rsinsert("h22")&","&rsinsert("h23")&","&rsinsert("h0")&",1,1,1,1)")
		else
			conn.execute("insert into count_ad (counttype,date_time,adid,need_num,click_bi,"&shijian&","&shijian2&",sum_num,click_num) values('1','"&date&"','"&adid&"',"&int(rsinsert("urlcount")*rsinsert("urldisplay")/100)&","&rsinsert("urldisplay")&",1,1,1,1)")
		end if
	end if
end function
function insertcount2(adid)
	shijian2="sh"&hour(now)
	set rsinsert=server.createobject("adodb.recordset")
	sqlinsert="select * from adsurllist where id="&adid
	rsinsert.open sqlinsert,conn,1,3
	if not rsinsert.eof then
		if rsinsert("sjsuiji")=1 then
			conn.execute("insert into count_ad (counttype,date_time,adid,need_num,click_bi,h1,h2,h3,h4,h5,h6,h7,h8,h9,h10,h11,h12,h13,h14,h15,h16,h17,h18,h19,h20,h21,h22,h23,h0,"&shijian2&",sum_num) values('1','"&date&"','"&adid&"',"&int(rsinsert("urlcount")*rsinsert("urldisplay")/100)&","&rsinsert("urldisplay")&","&rsinsert("h1")&","&rsinsert("h2")&","&rsinsert("h3")&","&rsinsert("h4")&","&rsinsert("h5")&","&rsinsert("h6")&","&rsinsert("h7")&","&rsinsert("h8")&","&rsinsert("h9")&","&rsinsert("h10")&","&rsinsert("h11")&","&rsinsert("h12")&","&rsinsert("h13")&","&rsinsert("h14")&","&rsinsert("h15")&","&rsinsert("h16")&","&rsinsert("h17")&","&rsinsert("h18")&","&rsinsert("h19")&","&rsinsert("h20")&","&rsinsert("h21")&","&rsinsert("h22")&","&rsinsert("h23")&","&rsinsert("h0")&",1,1)")
		else
			conn.execute("insert into count_ad (counttype,date_time,adid,need_num,click_bi,"&shijian2&",sum_num) values('1','"&date&"','"&adid&"',"&int(rsinsert("urlcount")*rsinsert("urldisplay")/100)&","&rsinsert("urldisplay")&",1,1)")
		end if
	end if
end function

function updatecount1(adid)
	shijian="ch"&hour(now)
	shijian2="sh"&hour(now)
	conn.execute("update count_ad set sum_num=sum_num+1,click_num=click_num+1,"&shijian&"="&shijian&"+1,"&shijian2&"="&shijian2&"+1  where adid="&adid&" and date_time='"&date&"'")
end function

function updatecount2(adid)
	shijian2="sh"&hour(now)
	conn.execute("update count_ad set sum_num=sum_num+1,"&shijian2&"="&shijian2&"+1  where adid="&adid&" and date_time='"&date&"'")

end function

Private Function getIP() 
Dim strIPAddr 
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then 
strIPAddr = Request.ServerVariables("REMOTE_ADDR") 
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then 
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1) 
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then 
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1) 
Else 
strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
End If 
getIP = Trim(Mid(strIPAddr, 1, 30)) 
End Function 
set rs=nothing
set conn=nothing
%>