ads

WAPmo手机网站管理平台是一款创建与管理维护WAP网站的的软件产品

Private Sub Class_Initialize()
    Set MyXML = MyKernel.XMLParser
End Sub

Private Sub Class_Terminate()
End Sub

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

Private Sub doGet()
    Dim strURL
    Dim lngID
    Dim objCmd, strSQL
    lngID = atol(MyIO.QueryString("ID"))
    strURL = MyIO.QueryString("URL")
    If strURL = "" Then
        MyXML.Println "未知请求"
    ElseIf lngID < 1 Then
        MyXML.Println "未知请求"
    Else
        Set objCmd = MyKernel.Command(T_ADS)
        objCmd.CommandType = "SELECT"
        objCmd.Column = "SEQID,HIT"
        objCmd.Where = "SEQID=" & lngID
        If Not objCmd.Exec Then
            MyXML.Println "广告连接丢失"
        Else
            objCmd.CommandType = "UPDATE"
            objCmd.Where = "SEQID=" & lngID
            objCmd.Add "Hit", objCmd("Hit") + 1
            objCmd.Exec
        End If
        Set objCmd = Nothing
        MyRedirect strURL
    End If
    Call BackHome
    Call MyKernel.OutputXML(Empty)
End Sub

Private Sub doPost()
End Sub