Private objAPI
Private objCore
Private objXML
Private objUser
Private objCoop

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

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

Public Sub main()
    objXML.Align = "center"
    objXML.Println MyKernel.Config("BBSTitle")
    objXML.Align = "left"
    If MyKernel.Config("IsBBS") <> "1" Then
        objXML.Println "ùѱվر"
    ElseIf Request.ServerVariables("REQUEST_METHOD") = "POST" Then
        Call doPost
    Else
        Call doGet
    End If
    objCore.ExportBackHome "1", "ҳ"
    objXML.Println ""
End Sub

Private Sub doGet()
    Dim strSQL
    Dim rs
    strSQL = "SELECT * FROM " & T_FORUM & " WHERE Follow=0 ORDER BY Serial"
    Set rs = MyKernel.Execute(strSQL)
    Do While rs.EOF = False
        objXML.Println "[" & rs("Title") & "]"
        doGetForum atol(rs("SeqId"))
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
End Sub

Private Sub doPost()
End Sub

Private Sub doGetForum(ByVal lngSeq)
    Dim strSQL
    Dim rs
    strSQL = "SELECT * FROM " & T_FORUM & " WHERE Follow=" & lngSeq & " ORDER BY Serial"
    Set rs = MyKernel.Execute(strSQL)
    Do While rs.EOF = False
        objXML.Println objCore.CreateA("bbs/forum.asp?ForumId=" & rs("SeqId"), "*." & rs("Title"), "")
        objXML.Println rs("Content")
        objXML.Println String(16, "-")
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
End Sub
