📄 admin_guestbook.asp
字号:
<!--#include file="Admin_Common.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************
Const NeedCheckComeUrl = True '是否需要检查外部访问
Const PurviewLevel = 2 '0--不检查，1--超级管理员，2--普通管理员
Const PurviewLevel_Channel = 0 '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员
Const PurviewLevel_Others = "" '其他权限
Const AdminType = True
Const EnableGuestCheck = "Yes"
Dim rs, sql, rsGuest, sqlGuest
Dim GuestID, Passed, GImagePath, GFacePath, GEmotPath, i, KindID, KindName
GImagePath = InstallDir & "GuestBook/Images/"
GFacePath = InstallDir & "GuestBook/Images/Face/"
GEmotPath = InstallDir & "GuestBook/Images/Emote/"
'检查管理员操作权限
If AdminPurview > 1 Then
If AdminPurview_GuestBook = "" Then
AdminPurview_GuestBook = 5
Else
AdminPurview_GuestBook = PE_CLng(AdminPurview_GuestBook)
End If
If AdminPurview_GuestBook > 3 Then
PurviewPassed = False
Else
PurviewPassed = True
End If
If PurviewPassed = False Then
Response.Write "<br><p align='center'><font color='red' style='font-size:9pt'>对不起，你没有此项操作的权限。</font></p>"
Call WriteEntry(6, AdminName, "越权操作")
Response.End
End If
End If
Passed = Trim(Request("Passed"))
GuestID = Trim(Request("GuestID"))
KindID = PE_CLng(Trim(Request("KindID")))
If Passed = "" Then
Passed = Session("Passed")
End If
Session("Passed") = Passed
If IsValidID(GuestID) = False Then
GuestID = ""
End If
strFileName = "Admin_GuestBook.asp?Action=" & Action & "&Field=" & strField & "&KindID=" & KindID & "&keyword=" & Keyword
Response.Write "<html><head><title>留言管理</title>" & vbCrLf
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
Response.Write "<link href='Admin_Style.css' rel='stylesheet' type='text/css'>" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>" & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>" & vbCrLf
Call ShowPageTitle("网 站 留 言 管 理", 10141)
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='70' height='30'><strong>管理导航：</strong></td>" & vbCrLf
Response.Write " <td>"
Response.Write " <a href='Admin_GuestBook.asp?Passed=All'>网站留言管理</a> | "
Response.Write " <a href='Admin_GuestBook.asp?Passed=False'>网站留言审核</a> | "
If AdminPurview = 1 Or AdminPurview_GuestBook < 3 Then
Response.Write " <a href='Admin_GuestBook.asp?Action=GKind'>留言类别管理</a> | "
Response.Write " <a href='Admin_GuestBook.asp?Action=AddGKind'>添加留言类别</a> | "
End If
If AdminPurview = 1 Or AdminPurview_GuestBook < 2 Then
Response.Write " <a href='Admin_GuestBook.asp?Action=CreateCode'>首页嵌入代码生成</a>"
End If
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
If Action = "" Then
Response.Write "<form name='form' method='Post' action='Admin_GuestBook.asp'><tr class='tdbg'>"
Response.Write " <td width='70' height='30' ><strong>留言选项：</strong></td><td>"
Response.Write " <input name='Passed' type='radio' value='All' onclick='submit();'"
If Passed = "All" Then Response.Write " checked"
Response.Write ">所有留言 <input name='Passed' type='radio' value='False' onclick='submit();'"
If Passed = "False" Then Response.Write " checked"
Response.Write ">未审核的留言 <input name='Passed' type='radio' value='True' onclick='submit();'"
If Passed = "True" Then Response.Write " checked"
Response.Write ">已审核的留言</td></tr></form>" & vbCrLf
End If
Response.Write "</table>" & vbCrLf
Select Case Action
Case "Modify"
Call Modify
Case "Show"
Call Show
Case "SaveModify"
Call SaveModify
Case "AdminReply"
Call AdminReply
Case "SaveAdminReply"
Call SaveAdminReply
Case "Del", "SetPassed", "CancelPassed", "DelReply", "Quintessence", "Cquintessence", "SetOnTop", "CancelOnTop"
Call SetProperty
Case "GKind"
Call GKind
Case "AddGKind"
Call AddGKind
Case "ModifyGKind"
Call ModifyGKind
Case "DelGKind", "ClearGKind"
Call DelGKind
Case "SaveAddGKind", "SaveModifyGKind"
Call SaveGKind
Case "OrderGuestKind"
Call OrderGuestKind
Case "MoveGuest"
Call MoveGuest
Case "Move"
Call Move
Case "BatchMove"
Call BatchMove
Case "DoBatchMove"
Call DoBatchMove
Case "CreateCode"
Call CreateCode
Case "DoCreateCode"
Call DoCreateCode
Case Else
Call Main
End Select
If FoundErr = True Then
Call WriteErrMsg(ErrMsg, ComeUrl)
End If
Response.Write "</body></html>"
Call CloseConn
Sub Main()
Dim GKind
If KindID > 0 Then
Set GKind = Conn.Execute("select * from PE_GuestKind where KindID=" & KindID)
If GKind.BOF And GKind.EOF Then
FoundErr = True
ErrMsg = ErrMsg & "<li>找不到指定的类别</li>"
Exit Sub
Else
KindName = GKind("KindName")
End If
End If
Call ShowJS_Main("留言")
Response.Write "<br>"
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
Response.Write " <tr class='title'>"
Response.Write " <td height='22'>" & GetGKindList() & "</td>"
Response.Write " </tr>"
Response.Write "</table>"
Response.Write "<br><table width='100%' border='0' align='center' cellpadding='0' cellspacing='0'>"
Response.Write " <tr>"
Response.Write " <td height='22'>" & GetManagePath() & "</td>"
Response.Write " </tr>"
Response.Write "</table>"
Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='0'><tr>"
Response.Write " <form name='myform' method='Post' action='Admin_GuestBook.asp' onsubmit='return ConfirmDel();'>"
Response.Write " <td><table class='border' border='0' cellspacing='1' width='100%' cellpadding='0'>"
Response.Write " <tr class='title'>"
Response.Write " <td width='30' height='22' align='center'><strong>属性</strong></td>"
Response.Write " <td width='30' height='22' align='center'><strong>选中</strong></td>"
Response.Write " <td width='85' height='22' align='center'><strong>留言人</strong></td>"
Response.Write " <td height='22' align='center'><strong>留言主题</strong></td>"
'Response.Write " <td width='120' height='22' align='center'><strong>留言时间</strong></td>"
Response.Write " <td width='30' height='22' align='center'><strong>审核</strong></td>"
Response.Write " <td width='328' height='22' align='center'><strong>操作</strong></td>"
Response.Write " </tr>"
sqlGuest = " select G.*,K.KindName from PE_GuestBook G"
sqlGuest = sqlGuest & " left join PE_GuestKind K on G.KindID=K.KindID where 1=1"
If Passed = "True" Then
sqlGuest = sqlGuest & " and GuestIsPassed=1"
ElseIf Passed = "False" Then
sqlGuest = sqlGuest & " and GuestIsPassed=0"
End If
If KindID > 0 Then
sqlGuest = sqlGuest & " and G.KindID=" & KindID
End If
If Keyword <> "" Then
Select Case strField
Case "GuestTitle"
sqlGuest = sqlGuest & " and GuestTitle like '%" & Keyword & "%' "
Case "GuestContent"
sqlGuest = sqlGuest & " and GuestContent like '%" & Keyword & "%' "
Case "GuestReply"
sqlGuest = sqlGuest & " and GuestReply like '%" & Keyword & "%' "
Case "GuestName"
sqlGuest = sqlGuest & " and GuestName like '%" & Keyword & "%' "
Case Else
sqlGuest = sqlGuest & " and GuestTitle like '%" & Keyword & "%' "
End Select
End If
sqlGuest = sqlGuest & " order by G.TopicID desc,G.GuestId asc"
Set rsGuest = Server.CreateObject("adodb.recordset")
rsGuest.Open sqlGuest, Conn, 1, 1
If rsGuest.BOF And rsGuest.EOF Then
Response.Write "<tr class='tdbg'><td colspan='20' align='center'><br>没有任何留言！<br><br></td></tr>"
Else
totalPut = rsGuest.RecordCount
If CurrentPage < 1 Then
CurrentPage = 1
End If
If (CurrentPage - 1) * MaxPerPage > totalPut Then
If (totalPut Mod MaxPerPage) = 0 Then
CurrentPage = totalPut \ MaxPerPage
Else
CurrentPage = totalPut \ MaxPerPage + 1
End If
End If
If CurrentPage > 1 Then
If (CurrentPage - 1) * MaxPerPage < totalPut Then
rsGuest.Move (CurrentPage - 1) * MaxPerPage
Else
CurrentPage = 1
End If
End If
Dim GuestNum
GuestNum = 0
Do While Not rsGuest.EOF
Response.Write " <tr class='tdbg' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"">"
If rsGuest("TopicID") = rsGuest("GuestID") Then
Response.Write " <td width='30' align='center'>主题</td>"
Else
Response.Write " <td width='30' align='center' class='tdbg'></td>"
End If
Response.Write " <td width='30' align='center'><input name='GuestID' type='checkbox' onclick='unselectall()' value='" & rsGuest("GuestID") & "'></td>"
Response.Write " <td width='85' align='center'><div style='cursor:hand' "
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -