Private objAPI
Private objCore
Private objXML
Private objUser
Private strReferer

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()
    strReferer = Request.QueryString("Referer")
    If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
        Call doPost
    Else
        Call doGet
    End If
End Sub

Private Sub doGet()
    Dim arrCols
    Dim arrCol
    arrCols = MyKernel.TableX(T_USER)
    For Each arrCol In arrCols
        MyKernel.Memory(arrCol(0)) = Empty
    Next
    If objUser.Item("UserId") <> WM_USERID Then
        Dim arrTemp
        arrTemp = MyCache.getCache("WAPmo.Env.Minute")
        arrTemp(0) = arrTemp(0) - 1
        If arrTemp(0) < 0 Then arrTemp(0) = 0
        MyCache.setCache "WAPmo.Env.Minute", arrTemp, DateAdd("n", 10, Now())
    End If
    If objCore.Cookie Then
        objCore.Query("MEMID") = Empty
    End If
    objXML.Align = "center"
    objXML.Println MyKernel.Config("SiteName") & "Ա˳"
    objXML.Align = "left"
    objXML.Println "ѳɹ˳¼"
    If strReferer <> "" Then
        objXML.Println objCore.CreateA(strReferer, "ٷ", objCore.CreateImg("back.gif", ""))
    End If

    objCore.ExportBackHome "1", "ҳ"
    objXML.Println ""
End Sub

Private Sub doPost()
    objXML.Println "ִ֧"
End Sub
