admin_guestbook.asp

个人网站比较简短

            If rsGuest("GuestType") = 1 Then
                Dim rsUser
                Set rsUser = Conn.Execute("select * from PE_Contacter where ContacterID=(select ContacterID from PE_User where UserName='" & ReplaceBadChar(rsGuest("GuestName")) & "')")
                If Not (rsUser.BOF And rsUser.EOF) Then
                    Dim QQ, icq, msn, Homepage
                    Homepage = rsUser("Homepage")
                    QQ = rsUser("QQ")
                    icq = rsUser("ICQ")
                    msn = rsUser("MSN")
                    Response.Write " title='类型：注册用户" & vbCrLf
                    Response.Write "性别："
                    If rsUser("Sex") = "0" Then
                        Response.Write "女"
                    Else
                        Response.Write "男"
                    End If
                    Response.Write vbCrLf & "信箱：" & rsUser("Email") & vbCrLf & "OICQ：" & QQ & vbCrLf & " ICQ：" & icq & vbCrLf & " MSN：" & msn & vbCrLf & "主页：" & Homepage & vbCrLf & "  IP：" & rsGuest("GuestIP") & "'"
                    '完毕
                End If
                Set rsUser = Nothing
            Else
                Response.Write " title='类型：游客" & vbCrLf
                Response.Write "性别："
                If rsGuest("GuestSex") = "0" Then
                    Response.Write "女"
                Else
                    Response.Write "男"
                End If
                Response.Write vbCrLf & "信箱：" & rsGuest("GuestEmail") & vbCrLf & "OICQ：" & rsGuest("GuestOicq") & vbCrLf & " ICQ：" & rsGuest("GuestIcq") & vbCrLf & " MSN：" & rsGuest("GuestMsn") & vbCrLf & "主页：" & rsGuest("GuestHomepage") & vbCrLf & "  IP：" & rsGuest("GuestIP") & "'"
            End If

            Response.Write " >" & rsGuest("GuestName") & "</div></td>"
            Response.Write "      <td><a href='Admin_GuestBook.asp?Action=Show&GuestID=" & rsGuest("GuestID") & "'>"
            If rsGuest("GuestIsPrivate") = True Then
                Response.Write "<font color=green>【隐藏】</font>" & vbCrLf
            End If
            Dim Title
            Title = rsGuest("GuestTitle")
            If Len(Title) > 18 Then
                Title = Left(Title, 18) & "..."
            End If
            If rsGuest("KindName") <> "" Then
                Response.Write "[" & rsGuest("KindName") & "]" & Title & "</a>"
            Else
                Response.Write "[不指定类别]" & Title & "</a>"
            End If
            'Response.Write "      <td width='120' align='center'>"
            If rsGuest("GuestDatetime") <> "" Then
                Response.Write "(" & TransformTime(FormatDateTime(rsGuest("GuestDatetime"), 0)) & ")"
            End If
            Response.Write "</td>"
            Response.Write "      <td width='30' align='center'>"
            If rsGuest("GuestIsPassed") = True Then
                Response.Write "<b>√</b>"
            Else
                Response.Write "<font color=red><b>×</b></font>"
            End If
            Response.Write "      </td>"
            Response.Write "      <td width='328' align='center'>"
            
            If AdminPurview = 1 Or AdminPurview_GuestBook <= 2 Or CheckKindPurview(0, rsGuest("KindID")) = True Then
                Response.Write "      <a href='Admin_GuestBook.asp?Action=Modify&GuestID=" & rsGuest("GuestID") & "'>修改</a>"
            End If
            If AdminPurview = 1 Or AdminPurview_GuestBook <= 2 Or CheckKindPurview(1, rsGuest("KindID")) = True Then
                If rsGuest("TopicID") <> rsGuest("GuestID") Then
                    Response.Write "      <a href='Admin_GuestBook.asp?Action=Del&GuestID=" & rsGuest("GuestID") & "' onClick=""return confirm('确定要删除此回复吗？');"">删除</a>"
                Else
                    Response.Write "      <a href='Admin_GuestBook.asp?Action=Del&GuestID=" & rsGuest("GuestID") & "' onClick=""return confirm('删除此主题将删除其下所有回复，确定要删除此主题吗？');"">删除</a>"
                End If
            End If
            If (AdminPurview = 1 Or AdminPurview_GuestBook <= 2 Or CheckKindPurview(2, rsGuest("KindID")) = True) And rsGuest("TopicID") = rsGuest("GuestID") Then
                    Response.Write "      <a href='Admin_GuestBook.asp?Action=Move&GuestID=" & rsGuest("GuestID") & "'>移动</a>"
            End If
            If AdminPurview = 1 Or AdminPurview_GuestBook <= 2 Or CheckKindPurview(3, rsGuest("KindID")) = True Then
                If rsGuest("GuestIsPassed") = False Then
                    Response.Write "      <a href='Admin_GuestBook.asp?Action=SetPassed&GuestID=" & rsGuest("GuestID") & "'>通过审核</a>"
                Else
                    Response.Write "      <a href='Admin_GuestBook.asp?Action=CancelPassed&GuestID=" & rsGuest("GuestID") & "'>取消审核</a>"
                End If
            End If
            If rsGuest("TopicID") = rsGuest("GuestID") Then
                If AdminPurview = 1 Or AdminPurview_GuestBook <= 2 Or CheckKindPurview(4, rsGuest("KindID")) = True Then
                    If rsGuest("Quintessence") = 0 Then
                        Response.Write "      <a href='Admin_GuestBook.asp?Action=Quintessence&GuestID=" & rsGuest("GuestID") & "'>推荐精华</a>"
                    Else
                        Response.Write "      <a href='Admin_GuestBook.asp?Action=Cquintessence&GuestID=" & rsGuest("GuestID") & "'>取消精华</a>"
                    End If
                End If
                If AdminPurview = 1 Or AdminPurview_GuestBook <= 2 Or CheckKindPurview(5, rsGuest("KindID")) = True Then
                    If rsGuest("OnTop") = 0 Then
                        Response.Write "      <a href='Admin_GuestBook.asp?Action=SetOnTop&GuestID=" & rsGuest("GuestID") & "'>固顶</a>"
                    Else
                        Response.Write "      <a href='Admin_GuestBook.asp?Action=CancelOnTop&GuestID=" & rsGuest("GuestID") & "'>解固</a>"
                    End If
                End If
            End If
            If AdminPurview = 1 Or AdminPurview_GuestBook <= 2 Or CheckKindPurview(6, rsGuest("KindID")) = True Then
                Response.Write "      <a href='Admin_GuestBook.asp?Action=AdminReply&GuestID=" & rsGuest("GuestID") & "'>回复</a>"
                If rsGuest("GuestReply") <> "" Then
                    Response.Write "      <a href='Admin_GuestBook.asp?Action=DelReply&GuestID=" & rsGuest("GuestID") & "'>清除回复</a>"
                End If
            End If
            Response.Write "      </td>"
            Response.Write "    </tr>"

            GuestNum = GuestNum + 1
            If GuestNum >= MaxPerPage Then Exit Do
            rsGuest.MoveNext
        Loop
    End If
    rsGuest.Close
    Set rsGuest = Nothing
    Response.Write "</table>"
    Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='0'>"
    Response.Write "  <tr>"
    Response.Write "    <td width='130' height='30'><input name='chkAll' type='checkbox' id='chkAll' onclick='CheckAll(this.form)' value='checkbox'>选中所有的留言</td><td>"
    
    Response.Write "<input type='submit' value='删除选定的留言' name='submit' onClick=""document.myform.Action.value='Del'"" "
    If CheckKindPurview(1, KindID) = False And AdminPurview = 2 And AdminPurview_GuestBook >= 3 Then Response.Write "disabled"
    Response.Write ">&nbsp;&nbsp;"
        
    Response.Write "<input name='submit1' type='submit' id='submit1' onClick=""document.myform.Action.value='SetPassed'"" value='审核通过选定的留言' "
    If CheckKindPurview(3, KindID) = False And AdminPurview = 2 And AdminPurview_GuestBook >= 3 Then Response.Write "disabled"
    Response.Write ">&nbsp;&nbsp;"
    Response.Write "<input name='submit2' type='submit' id='submit2' onClick=""document.myform.Action.value='CancelPassed'"" value='取消审核选定的留言' "
    If CheckKindPurview(3, KindID) = False And AdminPurview = 2 And AdminPurview_GuestBook >= 3 Then Response.Write "disabled"
    Response.Write ">"
    If AdminPurview = 1 Or AdminPurview_GuestBook <= 2 Then
        Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;<input type='submit' name='Submit3' value='批量移动' onClick=""document.myform.Action.value='BatchMove'"">"
    End If
    Response.Write "<input name='Action' type='hidden' id='Action' value=''>"
    Response.Write "  </td></tr>"
    Response.Write "</table>"
    Response.Write "</td>"
    Response.Write "</form></tr></table>"
    If totalPut > 0 Then
        Response.Write ShowPage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, "条留言", True)
    End If
    Response.Write "<br><table width='100%' border='0' cellpadding='0' cellspacing='0' class='border'>"
    Response.Write "  <tr class='tdbg'>"
    Response.Write "   <td width='80' align='right'><strong>留言搜索：</strong></td>"
    Response.Write "   <td>" & GetGuestSearch() & "</td>"
    Response.Write "  </tr>"
    Response.Write "</table>"
End Sub

Function GetManagePath()
    Dim strPath
    strPath = "您现在的位置：网站留言管理&nbsp;&gt;&gt;&nbsp;"
    If KindID > 0 Then
        strPath = strPath & "<a href='Admin_GuestBook.asp?KindID=" & KindID & "'>" & KindName & "</a>&nbsp;&gt;&gt;&nbsp;"
    End If
    If Keyword = "" Then
        If Passed = "True" Then
            strPath = strPath & "所有<font color=green>已审核</font>的留言"
        ElseIf Passed = "False" Then
            strPath = strPath & "所有<font color=blue>未审核</font>的留言"
        Else
            strPath = strPath & "所有留言"
        End If
    Else
        Select Case strField
            Case "GuestTitle"
                strPath = strPath & "留言主题中含有 <font color=red>" & Keyword & "</font> "
            Case "GuestContent"
                strPath = strPath & "留言内容含有 <font color=red>" & Keyword & "</font> "
            Case "GuestReply"
                strPath = strPath & "回复内容含有 <font color=red>" & Keyword & "</font> "
            Case "GuestName"
                strPath = strPath & "留言人姓名中含有 <font color=red>" & Keyword & "</font> "
            Case Else
                strPath = strPath & "留言主题中含有 <font color=red>" & Keyword & "</font> "
        End Select
        If Passed = "True" Then
            strPath = strPath & "并且<font color=green>已审核</font>的留言"
        ElseIf Passed = "False" Then
            strPath = strPath & "并且<font color=blue>未审核</font>的留言"
        Else
            strPath = strPath & "的留言"
        End If
    End If
    GetManagePath = strPath
End Function

Sub SetProperty()
    Dim sqlProperty, rsProperty
    If GuestID = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>请指定留言ID</li>"
    End If
    If Action = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>参数不足！</li>"
    End If
    If FoundErr = True Then
        Exit Sub
    End If
    If InStr(GuestID, ",") > 0 Then
        sqlProperty = "select * from PE_GuestBook where GuestID in (" & GuestID & ")"
    Else
        sqlProperty = "select * from PE_GuestBook where GuestID=" & GuestID
    End If
    Set rsProperty = Server.CreateObject("ADODB.Recordset")
    rsProperty.Open sqlProperty, Conn, 1, 3
    Dim ReplyNumCount, rsReplyNum
    Do While Not rsProperty.EOF
        Select Case Action
        Case "SetPassed"
            If AdminPurview = 2 And AdminPurview_GuestBook = 3 And CheckKindPurview(3, rsProperty("KindID")) = False Then
                FoundErr = True
                ErrMsg = ErrMsg & "<li>对 " & rsProperty("GuestTitle") & " 没有操作权限！</li>"
            Else
                rsProperty("GuestIsPassed") = True
                If rsProperty("TopicID") <> rsProperty("GuestID") Then
                    Dim sqlMaxId, rsMaxId, MaxId
                    sqlMaxId = "select max(GuestMaxId) as MaxId from PE_GuestBook"
                    Set rsMaxId = Conn.Execute(sqlMaxId)
                    MaxId = rsMaxId("MaxId")
                    If MaxId = "" Or IsNull(MaxId) Then MaxId = 0
                    Set rsMaxId = Nothing
                    Dim sql, rs, rsReplyNumber
                    Set rs = Server.CreateObject("adodb.recordset")
                    sql = "select top 1 * from PE_GuestBook where GuestId=" & rsProperty("TopicID")
                    rs.Open sql, Conn, 1, 3
                    If rs.EOF And rs.BOF Then
                        FoundErr = True
                        ErrMsg = ErrMsg & "<li>找不到发言的主题，可能已被删除！</li>"
                    Else
                        rsReplyNumber = rs("ReplyNum")
                        rs("LastReplyContent") = rsProperty("GuestContent")
                        rs("LastReplyGuest") = rsProperty("GuestName")
                        rs("LastReplyTitle") = rsProperty("GuestTitle")
                        rs("LastReplyTime") = Now()
                        rs("ReplyNum") = rsReplyNumber + 1
                        rs("GuestMaxId") = MaxId + 1
                        rs.Update
                    End If
                    rs.Close
                End If
            End If