get.asp

来自「漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了」· ASP 代码 · 共 56 行

<!--#include file="include/z_adv_conn.asp"-->
<%
'=========================================================
' File: get.asp
' Version:1.0
' Date: 2003-9-10
' Written by zhyj([e-mail])
'=========================================================

	set rs=server.createobject("adodb.recordset")
	sql="select * from [adv_config] where adv_type='默认'"
	rs.Open sql,conn_adv,1,3
	if rs.eof and rs.bof then
		rs.close
		set rs=nothing
	else
		dim adv_url
		dim adv_cheat
		adv_url=rs("adv_url")
		adv_cheat=rs("adv_cheat")
		rs("adv_click")=rs("adv_click")+1
		rs.update
		rs.close	
		
		dim username
		dim sql
		username = Request("get")
		if username<>"" then
			dim ip
			ip=Request.ServerVariables("REMOTE_ADDR")
			set rs=server.createobject("adodb.recordset")
			sql="select top 1 * from [adv_log] where username='"&username&"' and guest_ip='"&ip&"' and clickdate>=dateadd('n',-"&adv_cheat&",now()) order by clickdate desc"
			Response.Write sql
			rs.Open sql,conn_adv,1,3
			if rs.eof and rs.bof then
				rs.addnew
				rs("username")=username
				rs("guest_ip")=ip
				rs("clickdate")=now()
				rs("lx")="默认"
				rs.update
				rs.close
				sql="update adv_broker set count_b=count_b+1 where username='"&username&"'"
				conn_adv.execute (sql)
				sql="update adv_broker set count_z=count_z+1 where username='"&username&"'"
				conn_adv.execute (sql)
				sql="update adv_config set adv_click1=adv_click1+1 where adv_type='默认'"
				conn_adv.execute (sql)
				conn_adv.close
			end if
		end if

		response.redirect adv_url
	end if
		
%>