m_digg.asp

电子备课系统

  </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("did")%></span></td>
    <td colspan="4" valign="top" style="word-wrap: break-word; word-break: break-all;font-weight:600;color:#f00;"><%
	If rs("diggtype") >-1 Then Response.Write oblog.CacheReport(rs("diggtype"))
	%></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);">全选
                &nbsp;&nbsp;&nbsp;&nbsp;
                操作方式:
				<input type="radio" name="Action" value="Del">删除
              <input name="Action" type="radio" value="Dellog">
              删除日志&nbsp;&nbsp;
              <input name="Action" type="radio" value="pass0">
              待审日志&nbsp;&nbsp;
              <input name="Action" type="radio" value="pass1"">
              审核日志&nbsp;&nbsp;
		<input type="hidden" id="cmd" name ="cmd" value="<%=cmd%>" />
                <input type="submit" value="开始操作" name="submit">
				<br />
				&nbsp;&nbsp;&nbsp;&nbsp;<font color=red>（对日志的操作是指此条记录所关联的某篇日志）</font>
            </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 Optcomment(sMod)
	Server.ScriptTimeOut=999999999
    '删除/待审/审核
    Dim sOpt,sIds,sChkIp,sIP,aIds,l_aIds,i,RSDIGG
    sIP=Request("ip")
	sChkIp=Request("chkip")
    sIds = FilterIds(Request("chkOne"))
    aIds = FilterIds(Request("authorid"))
    sOpt = Request("opt")
    '按ID批量删除
    If sMod="1" Then
		If Request.QueryString <> "" Then Exit Sub
	    If sIds = "" Then oblog.ShowMsg "未选择操作问题id", ""
		WriteSysLog "进行了DIGG记录（用户反映问题）删除操作，目标ID："&sIds&"",""
		sql = "Delete From oblog_digg Where did In (" & sIds & ")"
	    oblog.Execute sql
		l_aIds = Split (aIds,",")
		For i = 0 To UBound(l_aIds)
			oblog.GiveScore "",-1*Abs(oblog.CacheScores(22)),l_aIds(i)
			Oblog.Execute ("UPDATE oblog_user SET diggs = diggs - 1 WHERE userid = " & l_aIds(i))
		Next
	Else
		sIp=oblog.filt_badstr(sIp)
		'OB_Debug Request("ip"),1
		If sIp="" Then Exit Sub
		If Not IsObject(CONN) Then link_database
		Set RSDIGG = Server.CreateObject("ADODB.RecordSet")
		RSDIGG.open "SELECT authorid,diggtype From oblog_digg Where addIp='" & sIp & "'",CONN,1.3
		If Not RSDIGG.EOF Then
			While Not RSDIGG.EOF
				If RSDIGG(1) = -1 Then
					oblog.GiveScore "",-1*Abs(oblog.CacheScores(22)),RSDIGG(0)
					Oblog.Execute ("UPDATE oblog_user SET diggs = diggs - 1 WHERE userid = " & RSDIGG(0))
				End if
				RSDIGG.DELETE
				RSDIGG.MoveNext
			Wend
			If sChkIp = "1" And oblog.ChkWhiteIP(sIP) = False Then
				'加入黑名单
				oblog.KillIP(sIP)
			End If
		End If
		WriteSysLog "进行了DIGG记录（用户反映问题）清理操作，目标IP："&sIp&"",oblog.NowUrl&"?"&Request.QueryString
	End If
    oblog.ShowMsg "操作成功!", ""
End Sub

'更新日志
Sub DoUpdatelog(ids)
    Server.ScriptTimeOut = 999999999
    Dim  rs, blog, i
    Set rs = oblog.execute("select userid,logid from oblog_log where logid in (" & ids & ")")
    Set blog = New class_blog
    Do While Not rs.Eof
        blog.userid = rs(0)
		blog.Update_index 0
        blog.update_log rs(1), 0
        rs.movenext
    Loop
    Set rs = Nothing
    Set blog = Nothing
End Sub

Sub delblogs(ids)
    Dim uid, delname, rst, fso, sid,i,logid,blog,cid
    Set fso = Server.CreateObject(oblog.CacheCompont(1))
    logid=Split(ids,",")
    Set rst = Server.CreateObject("adodb.recordset")
	Set blog = New class_blog
    For i=0 To UBound(logid)
	    rst.open "select a.userid,a.logfile,a.subjectid,a.logtype,a.scores,a.isdel,b.user_dir,b.user_folder,a.classid from oblog_log a ,oblog_user b where a.userid=b.userid And logid="&logid(i),conn,1,3
	    If Not rst.Eof Then
			uid = rst(0)
			delname = OB_IIF(Trim(rst(1)),"")
			sid = rst(2)
			cid = rst(8)
			'清理文件记录
			'Call oblog.DeleteFiles(logid)
			'真实域名需要重新整理文件数据
			'物理文件即时删除
			'If true_domain = 1 And delname <> "" Then
				If InStr(delname, "archives") Then
					delname = Right(delname, Len(delname) - InStrRev(delname, "archives") + 1)
				Else
					delname = Right(delname, Len(delname) - InStrRev(delname, "/"))
				End If
				delname=blogdir & rst("user_dir")& "/" & rst("user_folder")&"/"&oblog.l_ufolder&"/"&delname
			'End If
			If delname <> "" Then
					delname=Replace(delname,"//","/")
				If fso.FileExists(Server.MapPath(delname)) Then fso.DeleteFile Server.MapPath(delname)
			End If
			'--------------------------------------------
			'更新计数器,删除积分
			If rst("isdel")=1 Then
				Call Tags_UserDelete(logid(i))
				Call OBLOG.log_count(uid,logid(i),sid,cid,"-")
			End If
			'--------------------------------------------
			blog.userid = uid
			blog.Update_Subject uid
			blog.Update_index 0
			blog.Update_newblog (uid)
		End If
		rst.Close
  	Next
	Set blog = Nothing
	Set fso = Nothing
	Set rst = Nothing
End Sub

Function GetLogID()
	Dim RS,tmpid,SID
	SID = FilterIds(Request("chkOne"))
	If sid="" Or isnull(sid) Then oblog.ShowMsg "未选择操作问题id", ""
	Set RS = oblog.Execute ("SELECT logid FROM oblog_digg WHERE did IN ("&SID&")")
	If Not RS.Eof Then
		While Not RS.Eof
			tmpid = tmpid  & ","&RS(0)
			RS.MoveNext
		Wend
		tmpid = FilterIds(tmpid)
	End If
	GetLogID = tmpid
End Function

Sub DelScore(id)
	Dim rs,i
	Dim tid,sScore
	tid=id
	'删除日志时，将删除该日志所获得的所有积分,并且进行积分惩罚
	If InStr(tid,",")<0 Then
		Set rs = oblog.Execute ("select userid,scores FROM oblog_log WHERE logid = " &tid)
		If Not rs.Eof Then
			sScore=-1*(rs(1)+CLng(oblog.CacheScores(4)))
			If IsNull(sScore) Then sScore = -1*(CLng(oblog.CacheScores(4)))
			oblog.GiveScore "",sScore,rs(0)
		End if
		rs.close
	Else
		tid = Split (tid ,",")
		For i = 0 To UBound(tid)
			Set rs= oblog.execute ("select userid,scores FROM oblog_log WHERE logid = " &tid(i))
			If Not rs.Eof Then
				sScore=-1*(rs(1)+CLng(oblog.CacheScores(4)))
				If IsNull(sScore) Then sScore = -1*(CLng(oblog.CacheScores(4)))
				oblog.GiveScore "",sScore,rs(0)
			End if
			rs.close
		Next
	End if
End Sub
Set oblog = Nothing
%>