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()
    objCore.BackColor = MyKernel.Config("BackColor")
    If MyKernel.Config("BackImage") <> "" Then
        objCore.BackImage = "backimage." & MyKernel.Config("BackImage")
    End If
    If MyKernel.Config("BackSound") <> "" Then
        objCore.BackSound = "backsound." & MyKernel.Config("BackSound")
    End If
    objCore.CSS = MyKernel.Config("IndexCSS")
    If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
        Call doPost
    Else
        Call doGet
    End If
End Sub

Private Sub doGet()
    Dim strName
    Dim blnParse
    strName = MyKernel.Config("Templet")
    If strName = "" Then strName = getIndexTemplet(1)
    If strName = "" Then
        blnParse = False
    Else
        blnParse = objAPI.Parse(strName)
    End If
    If blnParse = False Then
        objAPI.ParseString "left@@@Text##<img src=""images/logo.gif"" alt="""" />" & vbCrLf & _
            "ӭ$(SiteName)" & vbCrLf & _
            "$$$left@@@UserEntry##¼&&login.asp||ע&&register.asp||&&forget.asp##&&msgbox.asp||ǩ&&marker.asp||ҵĿ̨&&console.asp##|$$$left@@@Text##[Ƽ]$$$left@@@Contentx##0##5##x##5######0##|##0$$$left@@@Themes##1##0||0||0###000000######0##|##$$$left@@@Text##ʱ:$(Time(MM-DD HH24:MI))" & vbCrLf & _
            ":$(VisitCount)" & vbCrLf & _
            "----------------" & vbCrLf & _
            "$(SiteCopy)" & vbCrLf
    End If
    If atol(MyKernel.Config("CacheIndex")) <= 0 Then
        MyKernel.Config("CacheIndex") = 60
    End If
    objCore.SetExpires "index", MyKernel.Config("CacheIndex"), True
End Sub

Private Sub doPost()
End Sub
