<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim id,linkpath
id=request.QueryString("id")
linkpath=request.QueryString("linkpath")
%>
<!--#include file="../conn.html"-->
<%
dim rs
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from pet_ad_link where id="&id,conn,1,3
rs("click")=rs("click")+1
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.Redirect linkpath
%>