m_userdigg.asp

电子备课系统

				case "authorid"
					if Not IsNumeric(Keyword) then
						FoundErr=true
						ErrMsg=ErrMsg & "<br><li>ID必须是整数！</li>"
					else
						sql="select " & sQryFields & " from oblog_userdigg where authorid =" & CLng(Keyword)
						sGuide=sGuide & "作者ID等于<font color=red> " & CLng(Keyword) & " </font>的用户推荐日志"
					end if
				case "author"
					sql="select " & sQryFields & " from oblog_userdigg where author like '%" & Keyword & "%' order by diggid  desc"
					sGuide=sGuide & "作者名称中含有“ <font color=red>" & Keyword & "</font> ”的用户推荐日志"
				case "ip"
					sql="select " & sQryFields & " from oblog_userdigg where addip like '%" & Keyword & "%' order by diggid  desc"
					sGuide=sGuide & "用户推荐日志时的IP中含有“ <font color=red>" & Keyword & "</font> ”的日志"
				case "title"
					sql="select " & sQryFields & " from oblog_userdigg where  diggtitle like '%" & Keyword & "%' order by diggid  desc"
					sGuide=sGuide & "日志标题中含有“ <font color=red>" & Keyword & "</font> ”的用户推荐日志"
				case "content"
					sql="select " & sQryFields & " from oblog_userdigg where diggdes like '%" & Keyword & "%' order by diggid  desc"
					sGuide=sGuide & "日志摘要中含有“ <font color=red>" & Keyword & "</font> ”的用户推荐日志"
				end select
			end if
		case else
			FoundErr=true
			ErrMsg=ErrMsg & "<br><li>错误的参数！</li>"
	end select
	if FoundErr=true then exit sub
	if not IsObject(conn) then link_database
	Set rs=Server.CreateObject("Adodb.RecordSet")
'	OB_DEBUG sql,1
	If Trim(Sql)="" Then
		oblog.ShowMsg "请输入正确的查询条件！",""
	End If
	rs.Open sql,Conn,1,1
  Call oblog.MakePagebar(rs,"篇用户推荐日志")
end sub

sub showContent()
   	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">
<style type="text/css">
<!--
td {padding:3px 0!important;}
-->
</style>
  <form name="myform" method="Post" action="m_userdigg.asp" onSubmit="return confirm('确定要执行选定的操作吗？');">
<table width="100%"  border="0" align="center" cellpadding="3" cellspacing="0" style="word-break:break-all;">
          <%do while not rs.EOF %>
  <tr>
    <td align="center" style="background:#B3D1EA;border-bottom:1px #000 dotted;" width="30">
    	<input name='id' type='checkbox' onclick="unselectall()" id="id" value='<%=cstr(rs("diggid"))%>'>
    </td>
    <td style="background:#D6EBFF;border-bottom:1px #000 dotted;"><span>(<%=rs("diggnum")%>)</span><span>[<%=oblog.GetClassName(2,0,rs("classid"))%>]</span>
    	<a href="../go.asp?logid=<%=rs("logid")%>" target="_blank" style="margin:0 0 0 10px;color:#333;"><%=oblog.Filt_html(RemoveHtml(rs("diggtitle")))%></a>
    </td>
    <td style="background:#D6EBFF;border-bottom:1px #000 dotted;" width="290"><a href="../go.asp?userid=<%=rs("authorid")%>" target="_blank"><font color=#0d4d89><%=rs("author")%></font></a>&nbsp;发表于
	<span style="font-family:Century Gothic,verdana,tahoma,Arial,Helvetica,sans-serif;font-size:10px;">
	<%
		Response.write rs("addtime") & "</span>　<span style=""font-family:Century Gothic,verdana,tahoma,Arial,Helvetica,sans-serif;font-size:10px;color:#777;"">IP:" &  rs("addip")
	%></span>
	</td>
    <td style="background:#D6EBFF;border-bottom:1px #000 dotted;" width="60">
		<%
			select case rs("iState")
				case 0
					Response.write "<span style=""font-weight:600;color:#f30;"">等待审核</span>"
				case 1
					Response.write "<span style=""font-weight:600;color:#090;"">通过审核</span>"
			end select
		%>
	</td>
    <td style="background:#D6EBFF;border-bottom:1px #000 dotted;" width="108">
<%
        Response.write "<a href='m_userdigg.asp?Action=Del&id=" & rs("diggid") & "' onClick='return confirm(""确定要删除此日志吗？"");'>删除</a>&nbsp;"
%>
</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("diggid")%></span></td>
    <td colspan="4" valign="top" style="word-wrap: break-word; word-break: break-all;color:#555;"><%=Left(oblog.Filt_html(RemoveHtml(rs("diggdes"))),200)%></td>
  </tr>
  <tr>
    <td height="8" colspan="5"></td>
  </tr>
<%
	i=i+1
	if i>=G_P_PerMax then exit do
	rs.movenext
loop
rs.Close
%>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="140" height="30"><input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
              选中本页所有日志</td>
            <td> <strong>操作：</strong>
              <input name="Action" type="radio" value="Del">
              删除&nbsp;&nbsp;
              <input name="Action" type="radio" value="pass0">
              待审&nbsp;&nbsp;
              <input name="Action" type="radio" value="pass1"">
              通过&nbsp;&nbsp;
              <input name="Action" type="radio" value="moveclass" onClick="document.myform.classid.disabled=false">
              转移&nbsp;&nbsp;
<!--               <input name="Action" type="radio" value="Move" onClick="document.myform.SpecialId.disabled=false">
              <select name="SpecialId" id="SpecialId" disabled>
              	<option value=0>取消专辑设置</option>
								<%
								Set rs = oblog.Execute("select specialid,s_name From oblog_Special Where isActive=1 Order By SpecialId Desc")
								Do While Not rs.Eof
								%>
                <option value=<%=rs(0)%>><%=Left(rs(1),7)%></option>
                <%
	                rs.Movenext
	              Loop
	              Set rs=Nothing
                %>
              </select>
              &nbsp;&nbsp; -->
			<select name="classid" id="classid" disabled>
			<%=oblog.show_class("log",0,0)%>
			</select>
              <input type="submit" name="Submit" value="执行"> </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 delblogs(id)
	Dim rs,i
	Dim tid,sScore
	tid=id
	If InStr(tid,",")<0 Then
		Set rs =  Server.CreateObject("adodb.recordset")
		rs.open "SELECT b.diggnum FROM oblog_digg a INNER JOIN oblog_log b ON a.logid = b.logid WHERE a.diggID = " & Int(id),CONN,1,3
		If Not rs.Eof Then
			While Not rs.EOF
				rs(0) = 0
				rs.Update
				rs.MoveNext
			Wend
		End If
	'	oblog.Execute ("UPDATE b SET diggnum = 0  FROM oblog_digg AS a INNER JOIN oblog_log AS b ON a.logid = b.logid WHERE a.diggID =" & Int(id))
		Set rs = oblog.Execute ("SELECT COUNT(DID),authorid FROM oblog_digg WHERE diggID = " & Int(id) &" GROUP BY authorid ")
		If Not rs.Eof Then
			oblog.GiveScore "",-1*Abs(oblog.CacheScores(22))*rs(0),rs(1)
			oblog.Execute ("UPDATE oblog_user SET diggs = diggs - "&rs(0)&"  WHERE userid = " & rs(1))
		End if
		oblog.Execute ("DELETE FROM oblog_digg WHERE diggID = " & Int(id))
		rs.close
	Else
		tid = Split (tid ,",")
		For i = 0 To UBound(tid)
			Set rs =  Server.CreateObject("adodb.recordset")
			rs.open "SELECT b.diggnum FROM oblog_digg a INNER JOIN oblog_log b ON a.logid = b.logid WHERE a.diggID = " & tid(i),CONN,1,3
			If Not rs.Eof Then
				While Not rs.EOF
					rs(0) = 0
					rs.Update
					rs.MoveNext
				Wend
			End If
		'	oblog.Execute ("UPDATE b SET diggnum = 0  FROM oblog_digg AS a INNER JOIN oblog_log AS b ON a.logid = b.logid WHERE a.diggID =" & Int(id))
			Set rs = oblog.Execute ("SELECT COUNT(DID),authorid FROM oblog_digg WHERE diggID = " &  tid(i) & " GROUP BY authorid")
			If Not rs.Eof Then
				oblog.GiveScore "",-1*Abs(oblog.CacheScores(22))*rs(0),RS(1)
				oblog.Execute ("UPDATE oblog_user SET diggs = diggs - "&rs(0)&"  WHERE userid = " & rs(1))
			End if
			oblog.Execute ("DELETE FROM oblog_digg WHERE diggID = " &  tid(i))
			rs.close
		Next
	End if
End Sub
Set oblog = Nothing
%>