📄 admin_digg.asp

📁 Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件
💻 ASP
字号:
<!--#include file = admin_chk.asp -->
<!--#include file="../Include/cls_pageview.asp"-->
<%
If Not ChkAdmin("Digg") Then
	Call ArtErr("","")
End If
%><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Digg管理</title>
<link rel="stylesheet" type="text/css" href="../images/admin/style.css">
<script src="Include/Common.js" type=text/javascript></script>
<%
	Dim ShowErr,ModeID
	ModeID = ChkNumeric(Request("ModeID"))
	if ModeID=0 or ModeID="" Then ModeID=1
	Dim strLocalUrl
	strLocalUrl = request.ServerVariables("SCRIPT_NAME")
	Dim intPageNow
	intPageNow = request("page")
	Dim intPageSize, strPageInfo
	intPageSize = 15
	Dim arrRecordInfo, i
	Dim sql, sqlCount,Sqls,pages
	pages = "ModeID="&ModeID&"&page"
	IF Request.QueryString("Action") = "del" Then
	Dim ID:ID = Request("ID")
		IF ID = "" Then
			Call ArtErr("<li>请指定要删除的ID!</li>","1")
			Response.end
		End If
	 Dim digge,Diggs
	ID = Split(ID,",")
	For I = LBound(ID) To UBound(ID)
		Set Digge=ArtEXE("Select digg,NewsID from Art_Digg where ID="&ID(I)&"")
		If Not Digge.eof Then 
			If digge("digg")="1" Then Diggs="digg" Else diggs="down"
			ArtEXE("Update news set "&Diggs&"="&Diggs&"-1 where ID = "&digge("NewsID")&"")
	    End If 
		ArtEXE("delete from Art_Digg where ID="&ID(I)&"")
	Next 
	Call ArtErr("<li>删除成功返回管理首页!</li>","2")
	Response.end
	End IF
	sql = "SELECT [ID], [IP], [NewsID], [DiggTime], [Digg], [users],  [ModeID]" & _
		" FROM [Art_Digg] Where ModeID="&clng(ModeID)&Sqls& _
		" ORDER BY [ID] DESC"
	sqlCount = "SELECT Count([ID])" & _
			" FROM [Art_Digg] Where ModeID="&clng(ModeID)&Sqls
		Dim clsRecordInfo
		Set clsRecordInfo = New Cls_PageView
			clsRecordInfo.intRecordCount = 2816
			clsRecordInfo.strSqlCount = sqlCount
			clsRecordInfo.strSql = sql
			clsRecordInfo.intPageSize = intPageSize
			clsRecordInfo.intPageNow = intPageNow
			clsRecordInfo.strPageUrl = strLocalUrl
			clsRecordInfo.strPageVar = pages
		clsRecordInfo.objConn = Conn		
		arrRecordInfo = clsRecordInfo.arrRecordInfo
		strPageInfo = clsRecordInfo.strPageInfo
		Set clsRecordInfo = nothing
	 %>

<table cellpadding="2" cellspacing="1" border="0" width="95%" class="tableBorder"    align=center>   
  <tr>
    <th height="25" align="center"><strong>文章系统管理——Digg管理</strong></th>
  </tr></TABLE>
  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
<form name="Article" method="post" action="?Action=">
    <tr>
      <td width="28" align="center" class="bg_tr">选中 </td>
      <td width="24" align="center" class="bg_tr">ID</td>
      <td width="150" align="center" class="bg_tr">文章标题</td>
	    <td width="80" align="center" class="bg_tr">DIGG用户</td> 
	    <td  align="center" class="bg_tr" nowrap>Digg时间</td> 
	     <td width="60" align="center" class="bg_tr">Digg行为</td> 
	    <td width="50" align="center" class="bg_tr">IP</td> 
	  
    </tr>
	 <%
		If IsArray(arrRecordInfo) Then
			For i = 0 to UBound(arrRecordInfo, 2)
	%>
    <tr  height="25" onMouseOver=overColor(this) onMouseOut=outColor(this) class="tdbg">
      <td align="center"  >
	  <input type="checkbox" name="ID" value="<%= arrRecordInfo(0,i) %>">	  </td>
      <td align="center"  ><%= arrRecordInfo(0,i) %></td>
      <td  ><a href="<%=fun_html_url(arrRecordInfo(2,i))%>" target=_blank>
	  <%
	
	Dim AName
	Set AName=ArtEXE("Select title from news  where ID = "& arrRecordInfo(2,i))
	If Not Aname.eof Then 
		response.write Aname("title")
	Else
		response.write "<font color=red>该文章已被删除</font>"
	End If 
 %></a>&nbsp;<%
	  %></td>
      
	  <td align="center"  >
	  <%
		If Trim(arrRecordInfo(5,i))<>"" Then 
			response.write "<font color=green>"&arrRecordInfo(5,i)&"</font>"
		Else
			response.write "<font color=red>游客</font>" 
		End If 
%></td>
  
      <td align="center" ><%= arrRecordInfo(3,i) %></td>
	 
      <td align="center" ><%If arrRecordInfo(4,i)="1" Then response.write "<font color=green>支持</font>" Else response.write "<font color=red>反对</font>"%></td>
	   
      <td align="center" ><%=arrRecordInfo(1,i)%></td>
    </tr>
	<% 
	Next
	End If
	%>
    <tr >
      <td height="30" colspan="11"  class="forumRow">
<input name="ChkAll" type="checkbox" id="ChkAll" onClick="CheckAll(this.form)" value="checkbox">
		<label for="chkAll">&nbsp;选中本页显示的所有文章</label>
	  <input type="button"  name="Submit" value="批量删除"  onClick="delpost()" > 
	  删除的同时会减少文章的相关DIGG记录</td>
    </tr>
    <tr >
      <td height="25" colspan="11" align="center" class="forumRow"><%= strPageInfo%></td>
    </tr></form>

  </table>
<script language="javascript">
//全选

function CheckAll(form)
		  {  
		 for (var i=0;i<form.elements.length;i++)  
			{  
			   var e = Article.elements[i];  
			   if (e.name != 'ChkAll'&&e.type=="checkbox")  
			   e.checked = Article.ChkAll.checked;  
		   }  
	  }
	  
function SelectIterm(form,sign){
	for (var i=0; i<form.elements.length;i++ ){
		if (form.elements[i].type == "checkbox"){
				var e=form.elements[i];
					if (sign==0) e.checked= true;
					if (sign==1) e.checked= !e.checked;
					if (sign==2) e.checked= false;
		}
	} 
}
	
function delpost(){
    document.Article.method="post";
    document.Article.action="admin_digg.asp?ModeID=<%=ModeID%>&Action=del";
{
	if(confirm('确认要删除选中的Digg吗?注意删除并不会删除文章')){
	this.document.Article.submit();
	return true;}return false;
}
	}
</script>


<% call CloseConn() 
call AdminPageEnd()
 %>
⌨️ 快捷键说明

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