<%
'商易仿淘宝4.0(多用户)
'ACCESS版演示网站：http://www.ftaobao.com(商易仿淘宝商城)
'SQL版演示网站：http://sql.ftaobao.com
'电话：0571-56907100
'QQ：1147100
%>
<!--#include file="include/conn.asp" -->
<!--#include file="include/config.asp" -->

<%
Dim rs
id=Request("id")
If id<>"" Then 
      set rs=server.createobject("adodb.recordset")
	  sql="select * from ad where id="&id
      rs.open sql,conn,1,3
	  if rs.eof then
	  response.write"数据库里没有此记录"
	  else
	  rs("count")=rs("count")+1
	  rs.update
	  End If
End If
If rs("url")<>"" Then 
response.redirect ""&rs("url")&""
response.End
End if
rs.close
set rs=Nothing
conn.close
set conn=Nothing%>
