adcount.asp

依蓝旅游网站管理系统Elan2008.SP2

<!--#include file="../Conn.asp"-->
<%
On Error Resume Next
Dim ADID
ADID = ELClng(Request("ADID"))
If Action = "Click" Then   
   Dim rsAD, LinkURL
   LinkURL = ""
   Set rsAD = Conn.Execute("SELECT TOP 1 [ADID],[LinkURL] FROM [EL_Advertisement] WHERE ADID="& ADID)
   If Not rsAD.BOF And Not rsAD.EOF Then
      If rsAD("ADID") = ADID Then
         LinkURL = rsAD(1)
		 Conn.Execute("UPDATE [EL_Advertisement] SET [Hits]=[Hits]+1 WHERE ADID="& ADID)
      End If
   End If
   rsAD.Close()
   Set rsAD = Nothing
   If LinkURL <> "" Then
      Call CloseConn()
	  Response.Redirect LinkURL
   End If
End If
Call CloseConn


Function ELClng(ByVal lng)
  If IsNumeric(lng) Then
     ELClng = Clng(lng)
  Else
     ELClng = 0
  End If
End Function 
%>