adcount.asp

来自「一本关于大学的书」· ASP 代码 · 共 23 行

<!--#include file="../conn.asp"-->
<%
Dim Action, ADID
Action = Trim(Request("Action"))
ADID = Trim(Request("ADID"))
If ADID <> "" And Isnumeric(ADID) Then
    ADID = CLng(ADID)
    If Action = "Click" Then
        Conn.Execute ("update PE_Advertisement set Clicks=Clicks+1 where ADID=" & ADID)
        Dim rsAD, ADLinkUrl
        Set rsAD = Conn.Execute("select LinkUrl from PE_Advertisement where ADID=" & ADID)
        If Not (rsAD.bof And rsAD.EOF) Then
            ADLinkUrl = rsAD("LinkUrl")
        End If
        rsAD.Close
        Set rsAD = Nothing
        If ADLinkUrl <> "" Then Response.Redirect (ADLinkUrl)
    Else
        Conn.Execute ("update PE_Advertisement set Views=Views+1 where ADID=" & ADID)
    End If
End If
Call CloseConn
%>