<!--#include file="../../Inc/Cls_Main.Asp"-->
<%
'=======================================================
Dim Action
'=======================================================
Action = LCase(Trim(Easp.Get("action:s")))
'=======================================================
Select Case Action
    Case "link"
        Call GetLinkCounts()
    Case Else
        Easp.RR "/"
End Select
Set Cms = Nothing
Set Easp = Nothing

Sub GetLinkCounts()
    Dim DataId
    DataId = Easp.Get("id:n:0")
    If DataId = 0 Then
        CmsFun.ShowJsonMsg 0, "参数错误!"
    Else
        Easp.db.UR TablePrefix & "Link", " Id = "& DataId &" ", Array("Counts:Counts+1")
        CmsFun.ShowJsonMsg 1, ""
    End If
End Sub
%>