<!--#include file="../Include/Const.Asp" -->
<!--#include file="../Include/ConnDatabase.asp" -->
<%
'*********************************************
'软件名称：博科企业网站内容管理系统（BOKECMS）
'软件开发：博科网络科技工作室
'网    址：http://www.bokew.net
'服务  QQ：530051328
'服务邮箱：bbfhq@163.com
'微信公众号：bokewlkj
'*********************************************
%>
<%
	Dim ADID,AD_Link
		ADID=Request.QueryString("adid")
	Set rs=server.createobject("adodb.recordset")
		sql = "Select ADLink,ADHits from [BokeCMS_ad] where ADID='" & ADID & "'"
		rs.open sql,conn,1,3
	If not (rs.bof or rs.eof) Then
		AD_Link=rs("ADLink")
		rs("ADHits")=rs("ADHits") + 1
		rs.Update
	else
		response.write "<font size=2 color=red>没有找到您要浏览的广告</font>"
	End If
		rs.Close
	set rs=nothing
Call CloseDB(conn)
	If AD_Link="" Then AD_Link="http://"&Request.Servervariables("server_name")
	response.redirect AD_Link%>