book.asp

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

    MyIO.Echo "<tr class=""winT4"">"
    MyIO.Echo "<td align=""center""><input type=""checkbox"" onclick=""chkAll(this)"" /></td>"
    MyIO.Echo "<td colspan=""5"">"
    MyIO.Echo " <input type=""button"" class=""btn"" value=""删除"" onclick=""jspp.Book.removeAll(this.form)"" />"
    MyIO.Echo " <input type=""button"" class=""btn"" value=""搜索"" onclick=""jspp.Book.query(this.form)"" />"
    MyIO.Echo " <input name=""Keyword"" type=""text"" class=""txt"" value=""" & Server.HTMLEncode(MyIO.QueryString("Keyword")) & """ />"
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
End Sub

Private Sub ShowPage()
    MyIO.Echo "<tr class=""winT4"">"
    MyIO.Echo "<td colspan=""6"" align=""right"">"
    MyIO.Echo "共 " & objPage.TotalRow & " 条信息 "
    MyIO.Echo objPage.PageSize & " 条/页 "
    MyIO.Echo objPage.PageNum & "/" & objPage.TotalPage & " 页"
    If objPage.PageNum > 1 Then
        MyIO.Echo " <a href=""javascript:void(0)"" onclick=""jspp.Book.doPage(1)"" class=""a1"" />首  页</a>"
        MyIO.Echo " <a href=""javascript:void(0)"" onclick=""jspp.Book.doPage(" & (objPage.PageNum - 1) & ")"" class=""a1"" />上一页</a>"
    Else
        MyIO.Echo " <a class=""a1"">首  页</a>"
        MyIO.Echo " <a class=""a1"">上一页</a>"
    End If
    If objPage.PageNum < objPage.TotalPage Then
        MyIO.Echo " <a href=""javascript:void(0)"" onclick=""jspp.Book.doPage(" & (objPage.PageNum + 1) & ")"" class=""a1"" />下一页</a>"
        MyIO.Echo " <a href=""javascript:void(0)"" onclick=""jspp.Book.doPage(" & objPage.TotalPage & ")"" class=""a1"" />尾  页</a>"
    Else
        MyIO.Echo " <a class=""a1"">下一页</a>"
        MyIO.Echo " <a class=""a1"">尾  页</a>"
    End If
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "<tr class=""winT4"">"
    MyIO.Echo "<td colspan=""6"">"
    MyIO.Echo "图标说明：带有<img src=""images/xw_tree2.gif"" border=""0"" align=""absBottom"" />图标的留言表示该留言是已回复过的留言，点击图标可以查看回复"
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
End Sub

Private Sub doGetReply
    Response.Charset = "utf-8"
    Dim objBook
    Set objBook = MyKernel.Table(T_BOOK)
    If MyPower("ReplyGuestBook") = 0 Then
        MyIO.Echo "您没有回复留言的权限"
    ElseIf objBook.Execute("*", "SeqId=" & atol(Request.QueryString("SeqId")) & " AND Follow=0") = False Then
        MyIO.Echo "<table width=""200"" border=""1"" cellpadding=""2"" cellspacing=""0"" style=""border-collapse:collapse"" bordercolor=""#000000"">"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td><b>找不到您要回复的留言</b></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "</table>"
    Else
        MyIO.Echo "<form id=""frmTemplet"" onsubmit=""return(false)"">"
        MyIO.Echo "<table width=""400"" border=""1"" cellpadding=""2"" cellspacing=""0"" style=""border-collapse:collapse"" bordercolor=""#000000"">"
        MyIO.Echo "<tr>"
        MyIO.Echo "<td colspan=""2"" class=""winT0""><b>回复留言</b></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT4"">"
        MyIO.Echo "<td width=""80"">您的回复</td>"
        MyIO.Echo "<td width=""320""><textarea name=""Reply"" class=""area"" style=""width:300px;height:100px""></textarea></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT4"">"
        MyIO.Echo "<td colspan=""2"" align=""center"">"
        MyIO.Echo " <input name=""Accept"" type=""button"" value=""确  定"" class=""btn"" />"
        MyIO.Echo " <input name=""Cancel"" type=""button"" value=""取  消"" class=""btn"" />"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "</table>"
        MyIO.Echo "</form>"
    End If
    Set objBook = Nothing
End Sub

Private Sub doGetReplys()
    Response.Charset = "utf-8"
    Dim objBook
    Set objBook = MyKernel.Table(T_BOOK)
    If MyPower("ViewGuestBook") = 0 Then
        MyIO.Echo "您没有查看留言的权限"
    ElseIf objBook.Execute("*", "SEQID=" & atol(Request.QueryString("SeqId")) & " AND FOLLOW=0") = False Then
        MyIO.Echo "<li>找不到您要回复的留言</li>"
    Else
        strSQL = "SELECT * FROM $(Table) WHERE Follow=$(Follow) ORDER BY Intime DESC"
        strSQL = Replace(strSQL, "$(Table)", T_BOOK)
        strSQL = Replace(strSQL, "$(Follow)", objBook("SeqId"))
        Set rs = MyKernel.DB.Execute(strSQL)
        Do While rs.EOF = False
            MyIO.Echo "<hr/>"
            MyIO.Echo "<li>回复：" & Replace(Server.HTMLEncode(atos(rs("Content"))), vbCrLf, "<br/>") & "</li>"
            MyIO.Echo "<li>时间：" & FormatTime(getDate(rs("Intime")), "YYYY-MM-DD HH24:MI:SS") & "</li>"
            MyIO.Echo "<li>管理：<a href=""javascript:void(0)"" onclick=""jspp.Book.remove(" & rs("SeqId") & ")"" class=""a1"">删除</a></li>"
            rs.MoveNext
        Loop
        rs.Close
        Set rs = Nothing
    End If
    Set objBook = Nothing
End Sub

Private Sub doPostRemove()
    Response.Charset = "utf-8"
    If MyPower("DeleteGuestBook") = 0 Then
        MyIO.Echo "您没有删除留言的权限"
    Else
        Dim strId
        Dim objBook
        strId = Trim(Request.Form("SeqId"))
        If Not IsNumbers(strId) Then
            MyIO.Echo "请选择您要删除的留言"
        Else
            strSQL = "SELECT SEQID,FOLLOW,USERID FROM $(Table) WHERE SEQID IN ($(SeqId))"
            strSQL = Replace(strSQL, "$(Table)", T_BOOK)
            strSQL = Replace(strSQL, "$(SeqId)", strId)
            Set rs = MyKernel.DB.Query(strSQL, adOpenKeyset, adLockOptimistic, adCmdText)
            Set objBook = MyKernel.Table(T_BOOK)
            If rs.EOF Then
                MyIO.Echo "请选择您要删除的留言"
            Else
                Do While Not rs.EOF
                    objBook.Source = rs
                    If objBook("Follow") = 0 Then
                        strSQL = "DELETE FROM $(Table) WHERE FOLLOW=$(Follow)"
                        strSQL = Replace(strSQL, "$(Table)", T_BOOK)
                        strSQL = Replace(strSQL, "$(Follow)", objBook("SeqId"))
                        MyKernel.DB.Exec strSQL
                    Else
                        strSQL = "UPDATE $(Table) SET REPLY=REPLY-1 WHERE SEQID=$(SeqId)"
                        strSQL = Replace(strSQL, "$(Table)", T_BOOK)
                        strSQL = Replace(strSQL, "$(SeqId)", objBook("Follow"))
                        MyKernel.DB.Exec strSQL
                    End If
                    rs.Delete adAffectCurrent
                    rs.MoveNext
                Loop
                MyIO.Echo "OK"
            End If
            Set objBook = Nothing
            rs.Close
            Set rs = Nothing
        End If
    End If
End Sub

Private Sub doPostReply()
    Response.Charset = "utf-8"
    Dim lngId
    Dim strReply
    lngId = atol(Request.QueryString("SeqId"))
    strReply = Trim(MyIO.Form("Reply"))
    If MyPower("ReplyGuestBook") = 0 Then
        MyIO.Echo "您没有回复留言的权限"
    ElseIf lngId <= 0 Then
        MyIO.Echo "请选择您要回复的留言"
    ElseIf strReply = "" Then
        MyIO.Echo "请输入您的回复"
    Else
        strSQL = getLimitSQL(1, "*", T_BOOK, "SEQID=$(SeqId) AND FOLLOW=0", "", "")
        strSQL = Replace(strSQL, "$(SeqId)", lngId)
        Set rs = MyKernel.DB.Query(strSQL, adOpenKeyset, adLockOptimistic, adCmdText)
        If rs.EOF Then
            MyIO.Echo "找不到您要回复的留言"
        Else
            rs("Reply") = rs("Reply") + 1
            rs.Update
            rs.AddNew
            rs("UserId") = 0
            rs("UserName") = "站长"
            rs("Content") = strReply
            rs("Follow") = lngId
            rs("Reply") = 0
            rs("Intime") = getTime(Now())
            rs.Update
            MyIO.Echo "OK"
        End If
        rs.Close
        Set rs = Nothing
    End If
End Sub

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