ads

来自「WAP手机网页XXXXX WAP手机网页XXXXX」· 代码 · 共 45 行

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

Private Sub Class_Terminate()
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 strURL
    Dim lngId
    Dim rs, strSQL
    lngId = atol(Request.QueryString("id"))
    strURL = Request.QueryString("URL")
    If strURL = "" Then
        MyXML.Println "未知请求"
    ElseIf lngId < 1 Then
        MyXML.Println "未知请求"
    Else
        strSQL = getLimitSQL(1, "HIT", T_ADS, "SEQID=" & lngId, "", "")
        Set rs = MyKernel.DB.Query(strSQL, adOpenKeyset, adLockOptimistic, adCmdText)
        If rs.EOF Then
            MyXML.Println "广告连接丢失"
        Else
            rs("Hit") = rs("Hit") + 1
            rs.Update
        End If
        rs.Close
        Set rs = Nothing
        MyRedirect strURL
    End If
    Call BackHome
    MyXML.Transform Response
End Sub

Private Sub doPost()
End Sub