📄 adcount.asp
字号:
<!--#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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -