⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 book.asp

📁 WAP手机网页XXXXX WAP手机网页XXXXX
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<%
Class ImplMocomWAPmoManagerBook
Private intErrId
Private strReason
Private rs, strSQL
Private objPage

Public Sub main()
    If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
        Call doPost
    Else
        Call doGet
    End If
End Sub

Private Sub doGet()
    Select Case LCase(Request.QueryString("Handle"))
    Case "option"
        Call doGetOption
    Case "list"
        MyIO.CodePage = 65001
        Call doGetList
    Case "reply"
        Call doGetReply
    Case "replys"
        Call doGetReplys
    Case Else
        Call doGetMain
    End Select
End Sub

Private Sub doPost()
    Select Case LCase(Request.QueryString("Handle"))
    Case "remove"
        Call doPostRemove
    Case "reply"
        MyIO.CodePage = 65001
        Call doPostReply
    Case Else
        MyIO.Echo "未知操作"
    End Select
End Sub

Private Sub doGetMain()
    MyIO.Echo "<html>"
    MyIO.Echo "<head>"
    MyIO.Echo "<meta http-equiv=""cache-control"" content=""no-cache"" />"
    MyIO.Echo "<meta http-equiv=""cache-control"" content=""max-age=0"" />"
    MyIO.Echo "<meta http-equiv=""content-type"" content=""text/html; charset=gb2312"" />"
    MyIO.Echo "<title>" & MyKernel.Env("WM_VNAME") & " - 留言本管理</title>"
    MyIO.Echo "<link rel=""stylesheet"" href=""images/xw.css"" />"
    MyIO.Echo "<script language=""javascript"" src=""jspp/jspp.js""></script>"
    MyIO.Echo "<script language=""javascript"">"
    MyIO.Echo "jspp.Caption = """ & MyKernel.Env("WM_NAME") & """;"
    MyIO.Echo "</script>"
    MyIO.Echo "<script language=""javascript"" src=""images/wm_book.js""></script>"
    MyIO.Echo "</head>"
    MyIO.Echo "<body style=""padding:5;margin:0;overflow:auto;border:0"">"
    MyIO.Echo "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"" style=""border:1px solid #000000"">"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td align=""right"" bgcolor=""#A2ADC4"" style=""border-bottom:1px solid #000000;padding-right:1px;padding-top:1px"" height=""24""><img src=""images/xw_cls0.gif"" border=""0"" align=""absMiddle"" onMouseOver=""this.src='images/xw_cls1.gif'"" onMouseOut=""this.src='images/xw_cls0.gif'"" onMouseDown=""this.src='images/xw_cls2.gif'"" onMouseUp=""this.src='images/xw_cls1.gif'"" /></td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td>"
    MyIO.Echo "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td height=""24"" style=""background-image:url(images/xw_back4.gif)"">&nbsp;</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td>"
    MyIO.Echo "<table width=""98%"" border=""0"" cellpadding=""0"" cellspacing=""0"" align=""center"">"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td id=""_OPTION"" class=""f12""></td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "</table>"
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "</table>"
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "</table>"
    MyIO.Echo "<iframe id=""console"" name=""console"" frameborder=""0"" scrolling=""no"" width=""0"" height=""0"" style=""display:none""></iframe>"
    MyIO.Echo "</body>"
    MyIO.Echo "</html>"
End Sub

Private Sub doGetOption()
    Response.Charset = "utf-8"
    Select Case Request.QueryString("Option")
    Case "0"
        MyIO.Echo "<form id=""frmMain"" onsubmit=""return(false)"">"
        MyIO.Echo "<table width=""100%"" border=""1"" cellpadding=""2"" cellspacing=""0"" align=""center"" style=""border-collapse:collapse"" bordercolor=""#000000"">"
        MyIO.Echo "<tr>"
        MyIO.Echo "<td colspan=""2"" class=""winT0"">"
        MyIO.Echo " <b>所有留言</b>"
        MyIO.Echo " <a href=""javascript:void(0)"" class=""a1"" onclick=""jspp.Book.doPage(jspp.Book.page)"">刷新留言列表</a>"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td colspan=""2"" id=""_list_""></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "</table>"
        MyIO.Echo "</form>"
    Case Else
        MyIO.Echo "未知选项"
    End Select
End Sub

Private Sub doGetList()
    Response.Charset = "utf-8"
    If MyPower("ViewGuestBook") = 0 Then
        MyIO.Echo "您没有查看留言的权限"
        Exit Sub
    End If
    Dim i
    Dim strKey
    Dim strWhere
    strKey = Trim(MyIO.QueryString("Keyword"))
    Set objPage = MyKernel.Page()
    objPage.PageNum = MyIO.QueryString("Page")
    objPage.PageSize = 20
    objPage.DataType = WM_DataType
    objPage.Increment = "Intime"
    objPage.Column = "*"
    objPage.Table = T_BOOK
    strWhere = "Follow=0"
    If strKey <> "" Then
        strWhere = strWhere & Replace(" AND (UserName LIKE '%$(Keyword)%' Or Content LIKE '%$(Keyword)%')", "$(Keyword)", SafeString(strKey))
    End If
    objPage.Where = strWhere
    objPage.Sort = "Intime DESC"
    objPage.SortType = True
    Set rs = objPage.Execute()
    MyIO.Echo "<table width=""100%"" border=""1"" cellpadding=""2"" cellspacing=""0"" align=""center"" style=""border-collapse:collapse;word-break:break-all;word-wrap:break-word;"" bordercolor=""#000000"">"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td width=""8%"" class=""winT0""><b>选择</b></td>"
    MyIO.Echo "<td width=""12%"" class=""winT0""><b>昵称<b/></td>"
    MyIO.Echo "<td width=""46%"" class=""winT0""><b>留言<b/></td>"
    MyIO.Echo "<td width=""13%"" class=""winT0""><b>IP地址<b/></td>"
    MyIO.Echo "<td width=""13%"" class=""winT0""><b>时间<b/></td>"
    MyIO.Echo "<td width=""8%"" class=""winT0""><b>管理</b></td>"
    MyIO.Echo "</tr>"
    If objPage.TotalRow > 0 Then
        i = 0
        Dim objBook
        Set objBook = MyKernel.Table(T_BOOK)
        Do While rs.EOF = False And i < objPage.PageSize
            objBook.Source = rs
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td align=""center""><input type=""checkbox"" id=""SeqId"" name=""SeqId"" value=""" & objBook("SeqId") & """ /></td>"
            MyIO.Echo "<td>" & objBook("UserName") & "</td>"
            MyIO.Echo "<td>" & Replace(Server.HTMLEncode(objBook("Content")), vbCrLf, "<br/>")
            If objBook("Reply") <> 0 Then
                MyIO.Echo "<div id=""Reply" & objBook("SeqId") & """><img src=""images/xw_tree2.gif"" border=""0"" style=""cursor:pointer"" onclick=""jspp.Book.getReply(" & objBook("SeqId") & ")"" /></div>"
            End If
            MyIO.Echo "</td>"
            MyIO.Echo "<td>" & objBook("IPAddr") & "</td>"
            MyIO.Echo "<td align=""right"">" & FormatTime(getDate(objBook("Intime")), "MM-DD HH24:MI") & "</td>"
            MyIO.Echo "<td align=""center"">"
            MyIO.Echo "<select class=""sel"" onchange=""jspp.Book.control(this, " & objBook("SeqId") & ")"">"
            MyIO.Echo "<option value=""0"">管理</option>"
            MyIO.Echo "<option value=""1"">回复</option>"
            MyIO.Echo "<option value=""2"">删除</option>"
            MyIO.Echo "</select>"
            MyIO.Echo "</td>"
            MyIO.Echo "</tr>"
            rs.MoveNext
            i = i + 1
        Loop
        Set objBook = Nothing
        Call ShowControl
        Call ShowPage
    Else
        MyIO.Echo "<tr class=""winT4"">"
        MyIO.Echo "<td colspan=""6"">尚无任何留言</td>"
        MyIO.Echo "</tr>"
        Call ShowControl
    End If
    MyIO.Echo "</table>"
    If Not rs Is Nothing Then rs.Close
    Set rs = Nothing
    Set objPage = Nothing
End Sub

Private Sub ShowControl()
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -