📄 m_messages.asp
字号:
<!--#include file="inc/inc_sys.asp"-->
<!--#include file="../inc/class_blog.asp"-->
<%
If CheckAccess("r_user_msg")=False Then Response.Write "无权操作":Response.End
Dim rs, sql
Dim id, cmd, Keyword, sField
Keyword = Trim(Request("keyword"))
If Keyword <> "" Then Keyword = oblog.filt_badstr(Keyword)
sField = Trim(Request("Field"))
cmd = Trim(Request("cmd"))
Action = Trim(Request("Action"))
id = Trim(Request("id"))
If cmd = "" Then
cmd = 0
Else
cmd = CLng(cmd)
End If
G_P_FileName = "m_messages.asp?cmd=" & cmd & "&Field=" & sField & "&keyword=" & Keyword
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>oBlog--后台管理</title>
<link rel="stylesheet" href="images/style.css" type="text/css" />
<script src="images/menu.js" type="text/javascript"></script>
</head>
<body>
<div id="main_body">
<ul class="main_top">
<li class="main_top_left left">留 言 管 理</li>
<li class="main_top_right right"> </li>
</ul>
<div class="main_content_rightbg">
<div class="main_content_leftbg">
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<form name="form1" action="m_messages.asp" method="get">
<tr class="tdbg">
<td width="100" height="30"><strong>快速查找：</strong></td>
<td width="687" height="30">
<select name="Field" id="Field">
<option value="author">留言人名称</option>
<option value="ip">留言人ip</option>
<option value="userid">用户ID</option>
<option value="topic">留言标题</option>
<option value="content">留言内容</option>
</select>
<input type="hidden" name="cmd" value="2">
<input name="Keyword" type="text" id="Keyword" size="20" maxlength="30">
<input type="submit" value=" 搜索 "> <a href="m_messages.asp">最新留言</a>| <a href="m_messages.asp?cmd=1">待审核留言</a></td>
</tr>
</form>
<form action="m_messages.asp" name=form2 method="get">
<tr class="tdbg">
<td width="100"><strong>数据清理：</strong></td>
<td>
按IP清理留言
<input name="ip" type="text" id="ip" size="20" maxlength="30">
<input type="checkbox" name="chkIp" value="1" checked>是否将该IP加入到黑名单
<input type="hidden" name="action" value="clearip">
<input type="submit" value="清理" />
</td>
</tr>
</form>
</table>
</div>
</div>
<ul class="main_end">
<li class="main_end_left left"></li>
<li class="main_end_right right"></li>
</ul>
</div>
<%
select Case Action
Case "batchopt"
Call OptMessage("1")
Case "clearip"
Call OptMessage("2")
Case Else
Call main
End select
If ErrMsg<>"" Then
Call WriteErrMsg
End If
Sub Main()
sql = "select top 500 userid,messagetopic,addtime,messageid,message_user,addip,message,iState,isguest From oblog_message "
select Case cmd
Case 0,""
sql= Sql & " Order By messageid desc"
sGuide = sGuide & "所有留言"
Case 1
sql= Sql & " Where iState=0 Order By messageid desc"
sGuide = sGuide & "待审核留言"
Case 2
If Keyword = "" Then
ErrMsg="错误：关键字不能为空！"
Exit Sub
Else
select Case sField
Case "author"
sql= Sql & " Where message_user like '%" & Keyword&"%' order by messageid desc"
sGuide = sGuide & "留言者名称中还有含有<font color=red> " & Keyword & " </font>的留言"
Case "userid"
sql= Sql & " Where userid =" & Int(Keyword)&" order by messageid desc"
sGuide = sGuide & "被留言者ID为<font color=red> " & Keyword & " </font>接受到的留言"
Case "topic"
sql= Sql & " Where messagetopic like '%" & Keyword & "%' order by messageid desc"
sGuide = sGuide & "标题中含有“ <font color=red>" & Keyword & "</font> ”的留言"
Case "ip"
Sql= Sql & " Where addip='" & Keyword&"' order by messageid desc"
sGuide = sGuide & "作者ip为<font color=red> " & Keyword & " </font>的留言"
Case "content"
sql= Sql & " Where message like '%" & Keyword&"%' order by messageid desc"
sGuide = sGuide & "留言内容中包含<font color=red> " & Keyword & " </font>的留言"
End select
End If
Case Else
'Exit sub
End select
'Response.Write Sql
Set rs = Server.CreateObject("Adodb.RecordSet")
rs.Open sql, conn, 1, 1
Call oblog.MakePageBar(rs, "篇留言")
rs.Close
Set rs = Nothing
End Sub
Sub showContent()
Dim i
i = 0
%>
<div id="main_body">
<ul class="main_top">
<li class="main_top_left left">留 言 管 理</li>
<li class="main_top_right right"> </li>
</ul>
<div class="main_content_rightbg">
<div class="main_content_leftbg">
<form name="myform" id="myform" method="post" action="m_messages.asp" onSubmit="return confirm('确定要执行选定的操作吗？');">
<style type="text/css">
<!--
td {padding:3px 0!important;}
-->
</style>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" style="word-wrap: break-word; word-break: break-all;">
<%do while not rs.EOF %>
<tr>
<td align="center" style="background:#B3D1EA;border-bottom:1px #000 dotted;" width="30"><input type="checkbox" name="chkOne" id="id" value='<%=rs("messageid")%>'></td>
<td style="background:#D6EBFF;border-bottom:1px #000 dotted;"><a href="../go.asp?messageid=<%=rs("messageid")%>" target="_blank" style="margin:0 0 0 10px;color:#333;"><%=oblog.filt_html(Left(rs("messagetopic"),20))%></a>
<td style="background:#D6EBFF;border-bottom:1px #000 dotted;color:#666;" width="300"><font color=#0d4d89><%=rs("message_user")%></font><%If rs("isguest") = 1 Then Response.Write "(游客)"%> 发表于 <span style="font-family:Century Gothic,verdana,tahoma,Arial,Helvetica,sans-serif;font-size:10px;"><%=rs("addtime")%></span> <span style="font-family:Century Gothic,verdana,tahoma,Arial,Helvetica,sans-serif;font-size:10px;">IP:<%=rs("addip")%></span></td>
<td style="background:#D6EBFF;border-bottom:1px #000 dotted;" width="110">目标用户ID:<a href="../go.asp?userid=<%=rs("userid")%>" target="_blank" style="font-family:Century Gothic,verdana,tahoma,Arial,Helvetica,sans-serif;font-size:10px;font-weight:600;"><%=rs("userid")%></a></td>
<td style="background:#D6EBFF;border-bottom:1px #000 dotted;" width="40">
<%If rs("iState")="1" Then %><span style="font-weight:600;color:#090;">已审</span><%Else%><span style="font-weight:600;color:#f30;">待审</span><%End If%>
</td>
</tr>
<tr>
<td align="center" valign="top"><span style="font-family:Century Gothic,verdana,tahoma,Arial,Helvetica,sans-serif;font-size:10px;font-weight:600;"><%=rs("messageid")%></span></td>
<td colspan="4" valign="top" style="word-wrap: break-word; word-break: break-all;color:#555;"><%=Left(RemoveUBB(RemoveHtml(rs("message"))),200)%></td>
</tr>
<tr>
<td height="8"></td>
<td colspan="4"></td>
</tr>
<%
i = i + 1
If i >= G_P_PerMax Then Exit Do
rs.MoveNext
Loop
%>
</table>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border">
<tr class="title">
<td colspan=2 height=25>
<input type="checkbox" name="chkAll" id="chkAll" onClick="javascript:CheckAll(this.form);">全选
操作方式:
<input type="radio" name="opt" value="3">删除
<input type="radio" name="opt" value="2">取消审核
<input type="radio" name="opt" value="1">通过审核
<input type="hidden" value="batchopt" name="action">
<input type="submit" value="开始操作" name="submit">
</td>
</tr>
</table>
</form>
</div>
</div>
<ul class="main_end">
<li class="main_end_left left"></li>
<li class="main_end_right right"></li>
</ul>
</div>
<%
End Sub
Sub OptMessage(sMod)
Server.ScriptTimeOut=999999999
Dim rstUser,rstCache,MSG
'删除/待审/审核
Dim sOpt,sIds,sChkIp,sIP
sIP=Request("ip")
sChkIp=Request("chkip")
sIds = FilterIds(Request("chkOne"))
sOpt = Request("opt")
'按ID批量删除
If sMod="1" Then
If Request.QueryString <> "" Then Exit Sub
If sOpt = "" Or sIds = "" Then Call main(): Exit Sub
PassScore sIds,sOpt
select Case sOpt
Case "1"
WriteSysLog "进行了留言通过审核操作，目标留言ID："&sIds&"",""
sql = "Update oblog_message Set iState=1 Where messageId In (" & sIds & ")"
Case "2"
WriteSysLog "进行了留言取消审核操作，目标留言ID："&sIds&"",""
sql = "Update oblog_message Set iState=0 Where messageId In (" & sIds & ")"
Case "3"
WriteSysLog "进行了留言删除操作，目标留言ID："&sIds&"",""
sql = "Delete From oblog_message Where messageId In (" & sIds & ")"
Case Else
rstUser.Close
Set rstUser = Nothing
Exit Sub
End select
Set rstUser = oblog.Execute("select userid,count(messageid) From oblog_message Where isdel=0 AND istate=1 AND messageId In (" & sIds & ") Group By userid")
oblog.Execute sql
MSG = "留言管理操作成功!"
Else
MSG = "清理留言成功"
sIp=oblog.filt_badstr(sIp)
'OB_Debug Request("ip"),1
If sIp="" Then Exit Sub
Set rstUser = oblog.Execute("select userid,count(messageid) From oblog_message Where isdel=0 AND istate=1 AND addip='" & sIP & "' Group By userid")
oblog.Execute ("Delete From oblog_message Where addIp='" & sIp & "'")
If sChkIp = "1" And oblog.ChkWhiteIP(sIP) = False Then
'加入黑名单
oblog.KillIP(sIP)
End If
WriteSysLog "进行了评论清理操作，目标评论IP："&sIp&"",oblog.NowUrl&"?"&Request.QueryString
End If
Dim blog
Set blog = New Class_blog
'对这部分用户的留言进行更新
Do While Not rstUser.EOF
'更新用户积分及留言数目
If sOpt = "3" Then
sql = "update oblog_user set message_count=" & rstUser(1) & ",scores=scores-" & oblog.CacheScores(5)*rstUser(1) & " where userid=" & rstUser(0)
Else
sql = "update oblog_user set message_count=" & rstUser(1) & " where userid=" & rstUser(0)
End If
oblog.execute sql
'更新静态页面
blog.userid = rstUser(0)
blog.update_message 0
blog.update_newmessage rstUser(0)
rstUser.MoveNext
Loop
rstUser.Close
Set rstUser = Nothing
Set blog = Nothing
oblog.ShowMsg MSG, ""
End Sub
Sub PassScore(id,iState)
Dim rs,i
Dim tid,sScore
tid=id
If iState= 1 Then
sScore=oblog.CacheScores(5)
Else
sScore=-1*Abs(oblog.CacheScores(5))
End if
If InStr(tid,",")<0 Then
Set rs = oblog.Execute ("select userid,istate FROM oblog_message WHERE messageid = " &tid)
'如果是过审
If iState=1 Then
'只处理待审的
If rs(1)=0 Then
oblog.GiveScore "",sScore,rs(0)
oblog.execute("update oblog_user set message_count=message_count+1 where userid="&rs(0))
oblog.execute("update oblog_setup set message_count=message_count+1")
End if
'如果是取消审核或者删除
Else
'只处理已经过审的
If rs(1)=1 Then
oblog.GiveScore "",sScore,rs(0)
oblog.execute("update oblog_user set message_count=message_count-1 where userid="&rs(0))
oblog.execute("update oblog_setup set message_count=message_count-1")
End if
End If
rs.close
Else
tid = Split (tid ,",")
For i = 0 To UBound(tid)
Set rs = oblog.Execute ("select userid,istate FROM oblog_message WHERE messageid = " &tid(i))
'如果是过审
If iState=1 Then
'只处理待审的
If rs(1)=0 Then
oblog.GiveScore "",sScore,rs(0)
oblog.execute("update oblog_user set message_count=message_count+1 where userid="&rs(0))
oblog.execute("update oblog_setup set message_count=message_count+1")
End if
'如果是取消审核或者删除
Else
'只处理已经过审的
If rs(1)=1 Then
oblog.GiveScore "",sScore,rs(0)
oblog.execute("update oblog_user set message_count=message_count-1 where userid="&rs(0))
oblog.execute("update oblog_setup set message_count=message_count-1")
End if
End If
rs.close
Next
End if
End Sub
Set oblog = Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -