index

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

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

Private Sub Class_Terminate()
End Sub

Public Sub main()
    MyXML.Align = "center"
    MyXML.Println MyKernel.Config("BBSTitle")
    MyXML.Align = "left"
    If MyKernel.Config("IsBBS") <> "1" Then
        MyXML.Println "该功能已被站长关闭"
    ElseIf Request.ServerVariables("REQUEST_METHOD") = "POST" Then
        Call doPost
    Else
        Call doGet
    End If
    Call BackHomeX(BBS_SEQID)
    Call setLog("bbs", 0)
    MyXML.Transform Response
End Sub

Private Sub doGet()
    Dim rs, strSQL
    strSQL = "SELECT * FROM " & T_FORUM & " WHERE Follow=0 ORDER BY Serial"
    Set rs = MyKernel.DB.Execute(strSQL)
    Do While rs.EOF = False
        MyXML.Println CreateA("bbs/forum.asp?ForumId=" & rs("SeqId"), "[" & rs("Title") & "]", "")
        doGetForum atol(rs("SeqId"))
        rs.MoveNext
        If Not rs.EOF Then
            MyXML.Println String(16, "-")
        End If
    Loop
    rs.Close
    Set rs = Nothing
End Sub

Private Sub doPost()
End Sub

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