<!--#Include file="../../Common/Inc_DatConn.asp"-->
<%
'┌─  風云ASP在線  ────────────────────────┐
'│                                                                 │
'│  作者：趙振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：fy96@163.com                                             │
'│                                                                 │
'│ 程序定做，系統開發，網站制作，提供高質量的網絡產品、技術和服務！│
'│                                                                 │
'│【版權聲明】                                                     │
'│                                                                 │
'│     本程序版權歸坐看風云所有，未經授權擅自修改、復制或散布本程序│
'│                                                                 │
'│的部分或全部，將承受嚴厲的民事和刑事處罰，對已知的違反者將給予法 │
'│                                                                 │
'│律范圍內的全面制裁。對非法使用此程序所造成的一切后果本人概不負責!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘

	Dim ADID,AD_Link,rs
		ADID=Request.QueryString("adid")
	Set rs=server.createobject("adodb.recordset")
		sql = "Select ADLink,ADHits from [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
		conn.Close
	set conn=nothing
	If AD_Link="" Then AD_Link="http://"&Request.Servervariables("server_name")
		response.redirect AD_Link
%>