
Private objAPI
Private objCore
Private objXML
Private objUser

Private Sub Class_Initialize()
    Set objAPI = New WAPmoAPI
    Set objCore = objAPI.Core
    Set objXML = objCore.XMLParser
    Set objUser = objCore.User
End Sub

Private Sub Class_Terminate()
    Set objUser = Nothing
    Set objXML = Nothing
    Set objCore = Nothing
    Set objAPI = Nothing
End Sub

Public Sub main()
    If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
        Call doPost
    Else
        Call doGet
    End If
End Sub

Private Sub doGet()
    Dim objAds
    Dim strURL
    Set objAds = MyKernel.Table(T_ADS)
    strURL = Request.QueryString("URL")
    If objAds.Exec("*", "SeqId=" & atol(Request.QueryString("id"))) = False Then
        objXML.Println "Ӷʧ1"
    ElseIf strURL = "" Then
        objXML.Println "Ӷʧ2"
    Else
        Dim strSQL
        strSQL = "UPDATE $(Table) SET Hit=Hit+1 WHERE SeqId=$(SeqId)"
        strSQL = Replace(strSQL, "$(Table)", T_ADS)
        strSQL = Replace(strSQL, "$(SeqId)", objAds.Item("SeqId"))
        SafeExecute strSQL
        objCore.Redirect strURL
    End If
    Set objAds = Nothing
    objXML.Println objCore.CreateA("index.asp", "ҳ", "home.gif")
End Sub

Private Sub doPost()
End Sub
