m_messages.asp
来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 280 行
ASP
280 行
<!--#include file="inc/inc_sys.asp"-->
<!--#include file="../inc/class_blog.asp"-->
<%
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
%>
<!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 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">留言时间:<span style="font-family:Century Gothic,verdana,tahoma,Arial,Helvetica,sans-serif;font-size:10px;"><%=rs("addtime")%></span> 留言者IP:<span style="font-family:Century Gothic,verdana,tahoma,Arial,Helvetica,sans-serif;font-size:10px;"><%=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="1">通过审核
<input type="radio" name="opt" value="2">取消审核
<input type="radio" name="opt" value="3">删除
<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)
Dim rstUser,rstCache
'删除/待审/审核
Dim sOpt,sIds,sChkIp,sIP
sIP=Request("ip")
sChkIp=Request("chkip")
sIds = FilterIds(Request("chkOne"))
sOpt = Request("opt")
'按ID批量删除
If sMod="1" Then
If sOpt = "" Or sIds = "" Then Exit Sub
Select Case sOpt
Case "1"
sql = "Update oblog_message Set iState=1 Where messageId In (" & sIds & ")"
PassScore sIds,1
Case "2"
sql = "Update oblog_message Set iState=0 Where messageId In (" & sIds & ")"
PassScore sIds,0
Case "3"
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 messageId In (" & sIds & ") Group By userid")
oblog.Execute sql
Else
Set rstUser = oblog.Execute("Select userid,count(messageid) From oblog_message Where addip='" & sIP & "' Group By userid")
oblog.Execute ("Delete From oblog_message Where addIp='" & sIp & "'")
If sChkIp = "1" Then
Set rstCache = Server.CreateObject("Adodb.RecordSet")
rstCache.Open "Select * From oblog_config Where id=5",conn,1,3
rstCache("ob_value")=rstCache("ob_value")& vbCrLf & sIP
rstCache.Update
rstCache.Close
oblog.ReloadSetup
Set rstCache=Nothing
End If
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=message_count-" & rstUser(1) & ",scores=scores-" & oblog.CacheScores(5)*rstUser(1) & " where userid=" & rstUser(0)
Else
sql = "update oblog_user set message_count=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.showok "留言管理操作成功!", ""
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 FROM oblog_message WHERE messageid = " &tid)
oblog.GiveScore "",sScore,rs(0)
rs.close
Else
tid = Split (tid ,",")
For i = 0 To UBound(tid)
Set rs = oblog.Execute ("SELECT userid FROM oblog_message WHERE messageid = " &tid(i))
oblog.GiveScore "",sScore,rs(0)
rs.close
Next
End if
End Sub
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?