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

📄 m_digg.asp

📁 电子备课系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<!--#include file="inc/inc_sys.asp"-->
<!--#include file="../inc/class_blog.asp"-->
<%
If CheckAccess("r_user_digg")=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"))
If cmd = "" Then
    cmd = 0
Else
    cmd = CLng(cmd)
End If
G_P_FileName = "m_digg.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"><%If cmd = 0 Then %>DIGG 记 录 管 理<%else%>反 映 问 题 管 理<%End if%></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_digg.asp?cmd=<%=cmd%>" method="get">
    <tr class="tdbg">
      <td width="100" height="30"><strong>快速查找：</strong></td>
      <td width="687" height="30">
        <select name="Field" id="Field">
		<%If cmd = 1 Or cmd = 3 Then%>
            <option value="author">反映人名称</option>
            <option value="ip">反映人ip</option>
            <option value="userid">目标用户ID</option>
			<option value="logid">日志ID</option>
		<input type="hidden" name="cmd" value="3">
		<%Else%>
            <option value="author">推荐人名称</option>
            <option value="ip">推荐人ip</option>
            <option value="userid">目标用户ID</option>
			<option value="diggid">DIGGID</option>
			<option value="logid">日志ID</option>
			 <input type="hidden" name="cmd" value="2">
		<%End if%>
        </select>
      <input name="Keyword" type="text" id="Keyword" size="20" maxlength="30">
      <input type="submit"  value=" 搜索 ">&nbsp;&nbsp;&nbsp;&nbsp;</td>
    </tr>
  </form>
  <form action="m_digg.asp" name="form2" method="get">
  <tr class="tdbg">
      <td width="100"><strong>数据清理：</strong></td>
    <td>
            按IP清理&nbsp;
            <input name="ip" type="text" 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 "Del"
		Call Optcomment("1")
	Case "clearip"
		Call Optcomment("2")
	Case "pass0"
		id = GetLogID
		oblog.execute("update oblog_log Set passcheck=0 Where logid In (" & id & ")")
		'进行日志更新
		DoUpdatelog id
		WriteSysLog "进行了日志取消审核操作，目标日志ID："&id&"",oblog.NowUrl&"?"&Request.QueryString
		oblog.ShowMsg "已设置日志为未审核状态！",""
	Case "pass1"
		id = GetLogID
		oblog.execute("update oblog_log Set passcheck=1 Where logid In (" & id & ")")
		'进行日志更新
		DoUpdatelog id
		WriteSysLog "进行了日志通过审核操作，目标日志ID："&id&"",oblog.NowUrl&"?"&Request.QueryString
		oblog.ShowMsg "已设置日志为审核状态！",""
	Case "Dellog"
		
		id = GetLogID
		Call DelScore(id)
		oblog.execute("update oblog_log Set isdel=1 where logid In ("&id & ")")
		'删除日志文件!
		delblogs id
		Call Optcomment("1")
		WriteSysLog "进行了日志删除操作（放入回收站），目标日志ID："&id&"",oblog.NowUrl&"?"&OB_IIF(Request.QueryString,Request.Form)
		oblog.ShowMsg "删除成功！",""
	Case Else
	    Call main
End select
If ErrMsg<>"" Then
    Call WriteErrMsg
End If

Sub Main()
	Dim SQL3
	sql = "select top 500 a.userid,b.diggtitle,a.addtime,did,username,a.addip,diggtype,a.diggid,isguest,b.authorid,b.logid From oblog_digg a LEFT JOIN oblog_userdigg b ON a.diggid = b.diggid"
    select Case cmd
        Case 0,""
        	sql= Sql & " WHERE a.diggtype = -1 Order By did desc"
            sGuide = sGuide & "所有推荐记录"
		Case 1
			sql = "select top 500 a.userid,b.topic,a.addtime,did,username,a.addip,diggtype,a.diggid,isguest,a.authorid,A.logid From oblog_digg a LEFT JOIN oblog_log b ON a.logid = b.logid WHERE a.diggtype > -1"
        	sql= Sql & " Order By did desc"
            sGuide = sGuide & "所有反映问题"
        Case 2,3
            If Keyword = "" Then
            	ErrMsg="错误：关键字不能为空！"
                Exit Sub
            Else
				If cmd = 3 Then
					sql = "select top 500 a.userid,b.topic,a.addtime,did,username,a.addip,diggtype,a.diggid,isguest,a.authorid,a.logid From oblog_digg a LEFT JOIN oblog_log b ON a.logid = b.logid"
					SQL3 = " AND a.diggtype > -1"
				Else
					SQL3 = " AND a.diggtype = -1"
				End if
                select Case sField
	                Case "author"
	                    sql= Sql & " Where username like '%" & Keyword&"%' "&SQL3&" order by did desc"
	                    sGuide = sGuide & "推荐者名称中还有含有<font color=red> " & Keyword & " </font>的记录"
	                Case "userid"
	                    sql= Sql & " Where a.authorid =" & Int(Keyword)&" "&SQL3&" order by did desc"
	                    sGuide = sGuide & "作者ID为<font color=red> " & Keyword & " </font>接受到的记录"
	                Case "ip"
	                    Sql= Sql & " Where a.addip='" & Keyword&"' "&SQL3&" order by did desc"
	                    sGuide = sGuide & "作者ip为<font color=red> " & Keyword & " </font>的记录"
	                Case "diggid"
	                    sql= Sql & " Where a.diggid =" & Int(Keyword)&" order by did desc"
	                    sGuide = sGuide & "DIGGID为<font color=red> " & Keyword & " </font>的记录"
	                Case "logid"
	                    sql= Sql & " Where a.logid =" & Int(Keyword)&" "&SQL3&" order by did desc"
	                    sGuide = sGuide & "日志ID为<font color=red> " & Keyword & " </font>的记录"
                End select
            End If
        Case Else
        	Exit sub
    End Select
'	OB_DEBUG Sql,1
    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()
'	On Error Resume Next
    Dim i
    i = 0
%>
<div id="main_body">
	<ul class="main_top">
		<li class="main_top_left left"><%=sGuide%></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_digg.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("did")%>'>
	<%If rs("diggtype") = -1 Then %>
	<input type="hidden" name="authorid" id="authorid" value='<%=rs("authorid")%>'><%End if%></td>
    <td style="background:#D6EBFF;border-bottom:1px #000 dotted;"><a href="../go.asp?logid=<%=OB_IIF(rs("logid"),0)%>" target="_blank" style="margin:0 0 0 10px;color:#333;"><%
	Dim Topic
	Topic = oblog.filt_html(RemoveHtml(Left(rs(1),20)))
	If IsNull(rs(1)) Then
		Response.Write "日志已被删除"
	Else
		Response.Write Topic
	End if
	%></a></td>
    <td style="background:#D6EBFF;border-bottom:1px #000 dotted;color:#666;" width="300"><font color=#0d4d89><a href="../go.asp?userid=<%=rs("userid")%>" target="_blank"><%=OB_IIF(rs("username"),"未记录")%></a></font><%If rs("isguest") = 1 Then Response.Write "(游客)"%>&nbsp;发表于&nbsp;<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=<%=OB_IIF(rs("authorid"),0)%>" target="_blank" style="font-family:Century Gothic,verdana,tahoma,Arial,Helvetica,sans-serif;font-size:10px;font-weight:600;"><%=OB_IIF(rs("authorid"),"无")%></a></td>
    <td style="background:#D6EBFF;border-bottom:1px #000 dotted;" width="40">&nbsp;
</td>
12

⌨️ 快捷键说明

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