forum.asp

WAP手机网页XXXXX WAP手机网页XXXXX

<%
Class ImplMocomWAPmoWAPBbsForum
Private lngForumId

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

Private Sub Class_Terminate()
End Sub

Public Sub main()
    Dim objForum
    MyXML.Align = "center"
    MyXML.Println MyKernel.Config("BBSTitle")
    MyXML.Align = "left"
    Set objForum = MyKernel.Table(T_FORUM)
    lngForumId = atol(Request.QueryString("ForumId"))
    If MyKernel.Config("IsBBS") <> "1" Then
        MyXML.Println "该功能已被站长关闭"
    ElseIf lngForumId < 1 Then
        MyRedirect "bbs/index.asp"
    ElseIf Not objForum.Execute("*", "SEQID=" & lngForumId) Then
        MyRedirect "bbs/index.asp"
    ElseIf Request.ServerVariables("REQUEST_METHOD") = "POST" Then
        Call doPost
    Else
        MyXML.Println "[" & objForum("Title") & "]"
        Call doGet
    End If
    If objForum("Follow") <> 0 Then
        MyXML.Println CreateA("bbs/forum.asp?ForumId=" & objForum("Follow"), "返回上级", getImagePrefix("back.gif"))
    End If
    Set objForum = Nothing
    MyXML.Println CreateA("bbs/index.asp", "返回" & MyKernel.Config("BBSTitle"), getImagePrefix("back.gif"))
    Call BackHomeX(BBS_SEQID)
    Call setLog("bbs", 0)
    MyXML.Transform Response
End Sub

Private Sub doGet()
    Call doGetForum
    MyXML.Println CreateA("bbs/post.asp?ForumId=" & lngForumId & "&PageNo=" & atoi(Request.QueryString("PageNo")), "我要发帖", "")
    Call doGetArticle
End Sub

Private Sub doPost()
End Sub

Private Sub doGetForum()
    Dim strSQL
    Dim rs
    strSQL = "SELECT * FROM " & T_FORUM & " WHERE Follow=" & lngForumId & " 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")
        MyXML.Println String(16, "-")
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
End Sub

Private Sub doGetArticle()
    Dim clsPage
    Dim rs
    Dim i
    Set clsPage = MyKernel.Page()
    clsPage.PageNum = Request.QueryString("PageNo")
    clsPage.PageSize = 10
    clsPage.DataType = WM_DataType
    clsPage.Increment = "Outime"
    clsPage.Table = T_ARTICLE
    clsPage.Where = "ForumId=" & lngForumId & " AND Follow=0"
    clsPage.Sort = "OUTIME DESC"
    clsPage.SortType = True
    Set rs = clsPage.Execute()
    If clsPage.TotalRow > 0 Then
        i = 0
        Dim objArt
        Set objArt = MyKernel.Table(T_ARTICLE)
        Do While rs.EOF = False And i < clsPage.PageSize
            objArt.Source = rs
            MyXML.Println CreateA("bbs/article.asp?ForumId=" & objArt("ForumId") & "&PageNo=" & clsPage.PageNum & "&ArticleId=" & objArt("SeqId"), "*." & objArt("Title") & "[" & objArt("Reply") & "/" & objArt("Hit") & "/" & FormatTime(getDate(objArt("Intime")), "YY-MM-DD HH24:MI") & "]", "")
            rs.MoveNext
            i = i + 1
        Loop
        Set objArt = Nothing
        MyXML.Println ""
        If clsPage.PageNum < clsPage.TotalPage Then
            MyXML.Printf CreateA("bbs/forum.asp?ForumId=" & lngForumId & "&PageNo=" & (clsPage.PageNum + 1), "下一页", "")
            MyXML.Printf "|"
            MyXML.Println CreateA("bbs/forum.asp?ForumId=" & lngForumId & "&PageNo=" & (clsPage.TotalPage), "最末页", "")
        End If
        If clsPage.PageNum > 1 Then
            MyXML.Printf CreateA("bbs/forum.asp?ForumId=" & lngForumId & "&PageNo=" & (clsPage.PageNum - 1), "上一页", "")
            MyXML.Printf "|"
            MyXML.Println CreateA("bbs/forum.asp?ForumId=" & lngForumId & "&PageNo=" & (1), "第一页", "")
        End If
        If clsPage.TotalPage > 2 Then
            MyXML.SetF getPathName("bbs/forum.asp"), "get", "", True
            Call setQuery
            MyXML.SetN "ForumId", "hidden", lngForumId, "", "", False
            MyXML.SetN "PageNo", "text", "", clsPage.PageNum & "/" & clsPage.TotalPage & "页>>跳到", "页", False, 5, 5, "*N"
            MyXML.SetN "", "submit", "GO", "", "", True
        End If
        MyXML.Println ""
    End If
    If Not rs Is Nothing Then rs.Close
    Set rs = Nothing
    Set clsPage = Nothing
End Sub

Public Function newInstance()
    Set newInstance = New ImplMocomWAPmoWAPBbsForum
End Function
End Class
%>