ad_count.asp

一个功能强大的搜索系统

<!--#include file="setup.asp"-->
<!--#include file="conn.asp"-->
<%
'================================================================================
'Product:K-Search Version 2.1
'本“软件产品”受《中华人民共和国著作权法》和《中华人民共和国计算机软件保护条例》 
'和国际条约的保护。如未经授权而擅自复制或传播本程序（或其中任何部分），将受到严厉
'的刑事及民事制裁，并将在法律许可的范围内受到最大可能的起诉！
'Homepage：http://www.lucoo.com/
'--------------------------------------------------------------------------------
'Copyright(c) 2005 lucoo.com All Rights Reserved 绿色互联 版权所有
'================================================================================
dim rs
dim id
id=Request.QueryString("id")
if isnumeric(id)=0 or id="" then
response.write "非法ID参数"
response.end
end if
set rs=conn.execute("update ad set click=click+1 where id="&id)
rs.close
set rs=Nothing
set rs=conn.execute("select id,url from ad where id="&id)
response.write "<Script>location.replace('"&rs("url")&"');</Script>"
rs.close
set rs=Nothing
conn.close
set conn=nothing
%>