📄 admin_managedbfiles.asp

📁 后台管理系统
💻 ASP
字号:
<!--#include file="Inc/Inc.asp"-->
<!--#include file="../Include/MD5.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script src="inc/jsdate.js"></script>
<script src="inc/admin.js"></script>
<link href="../file/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
ClsPub.SysConfig
Dim Action
Action=ClsPub.SafeRequest(3,"Action",1,0,0)
Select Case Action
	Case "DelectFile"
		Call DelectFile()
	Case Else
		Call Main()
End Select

Sub Main()
	Dim MyOrderBy,MyCondition,MyTopField,SearchType,SearchCondition
	SearchType=Trim(Request("SearchType"))
	SearchCondition=Trim(Request("SearchCondition"))
	If SearchType="" Then SearchType="BaseSearch"
	If SearchCondition="" Then SearchCondition="1"
	MyTopField=""
	Select Case SearchType
		Case "BaseSearch"
			Select Case SearchCondition
				Case "2"
					MyOrderBy="F_AddTime Desc":MyCondition="Datediff('h',F_AddTime,"&SqlNowString&")<25"
				Case "3"
					MyOrderBy="F_AddTime Desc":MyCondition="Datediff('d',F_AddTime,"&SqlNowString&")<3"
				Case "4"
					MyOrderBy="F_AddTime Desc":MyCondition="Datediff('d',F_AddTime,"&SqlNowString&")<7"	
				Case "5"
					MyOrderBy="F_AddTime Desc":MyCondition="Datediff('d',F_AddTime,"&SqlNowString&")<21"
				Case "6"
					MyOrderBy="F_AddTime Desc":MyCondition="Datediff('m',F_AddTime,"&SqlNowString&")<1"
				Case "7"
					MyOrderBy="F_AddTime Desc":MyCondition="Datediff('m',F_AddTime,"&SqlNowString&")<3"	
				Case "8"
					MyTopField="Top 100 ":MyOrderBy="F_DownloadTimes Desc":MyCondition=""
				Case "9"
					If ClsPub.TW_Config(42)<=1 Then
						MyOrderBy="F_AddTime Desc":MyCondition="Datediff('h',F_AddTime,"&SqlNowString&")<25"
					Else
						MyOrderBy="F_AddTime Desc":MyCondition="Datediff('d',F_AddTime,"&SqlNowString&")<"&ClsPub.TW_Config(42)
					End If
				Case "10"
					If ClsPub.TW_Config(42)<=1 Then
						MyOrderBy="F_AddTime Desc":MyCondition="Datediff('h',F_AddTime,"&SqlNowString&")>25"
					Else
						MyOrderBy="F_AddTime Desc":MyCondition="Datediff('d',F_AddTime,"&SqlNowString&")>"&ClsPub.TW_Config(42)
					End If
				Case Else
					MyOrderBy="F_AddTime Desc":MyCondition=""	
			End Select
		Case "SearchFileType"
			If SearchCondition<>"1" Then
				MyOrderBy="F_AddTime Desc":MyCondition="F_Ext='"&Lcase(SearchCondition)&"'"
			Else
				MyOrderBy="F_AddTime Desc":MyCondition=""
			End If
		Case "SerchFileByTime"
			Dim SDate,EDate
			sDate=ClsPub.SafeRequest(1,"sDate",2,"1900-1-1",0)
			eDate=ClsPub.SafeRequest(1,"eDate",2,FormatDateTime(Now()+1,2),0)
			MyOrderBy="F_AddTime Desc":MyCondition="F_AddTime Between #"&sDate&"# And #"&eDate&"#"
		Case "SearchByFileSize"
			Dim FileSize,SizeCondition,FileSizeCondition
			FileSize=ClsPub.SafeRequest(1,"FileSize",0,100,0)
			SizeCondition=ClsPub.SafeRequest(1,"SizeCondition",1,0,0)
			If SizeCondition="LessThan" Then
				FileSizeCondition="<"
			Else
				FileSizeCondition=">"
			End If
			MyOrderBy="F_AddTime Desc":MyCondition="F_Size "&FileSizeCondition&"= "&FileSize*1024
	End Select
	If MyOrderBy<>"" Then MyOrderBy=" Order By "&MyOrderBy
	If MyCondition<>"" Then MyCondition=" Where "&MyCondition
	Dim Temp,SQL
	SQL="Select "&MyTopField&" F_Id,F_Ext,F_Path,F_PrePath,F_Size,F_GetFileId,F_AddTime,F_UserIp,F_DownloadTimes From TW_FilesList"&MyCondition&MyOrderBy
	Temp=ClsPub.DB_Query(SQL)
	If Not IsArray(Temp) Then
		SysMsg="没有任何文件！"
		Call ClsPub.ShowMsg("","")
	End If
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="TableBorder">
        <tr>
      <th height="22" class="title" colspan=7>文件列表</th> 
    </tr>
 <form method="post" action="?Action=DelectFile" name="DelForm">
<tr align=center height=23>
<td class="BodyTitle"Highlight width="128"><B>文件类型</B></td>
<td class="BodyTitle"Highlight width="48"><B>大小</B></td>
<td class="BodyTitle"Highlight width="218"><b>提取文件ID</b></td>
<td class="BodyTitle"Highlight width="58"><b>点击</b></td>
<td class="BodyTitle"Highlight width="146"><B>上传时间</B></td>
<td class="BodyTitle"Highlight width="114"><B>用户IP</B></td>
<td class="BodyTitle"Highlight width="116"><b>操作</b></td>
</tr>
<%	
	Dim PageSize,Page,i,MyRsCount
    Dim FieldName(5),FieldValue(5)
	Dim MyItem
    PageSize=15
	Page=Request.QueryString("Page")
	If Page="" OR Not IsNumeric(Page) Then
		Page=1
	Else
		Page=Int(Page)
	End If
	FieldName(0)="SearchType"
	FieldValue(0)=SearchType
	FieldName(1)="SearchCondition"
	FieldValue(1)=SearchCondition
	FieldName(2)="sDate"
	FieldValue(2)=sDate
	FieldName(3)="eDate"
	FieldValue(3)=eDate
	FieldName(4)="FileSize"
	FieldValue(4)=FileSize
	FieldName(5)="SizeCondition"
	FieldValue(5)=SizeCondition
	MyRsCount=Ubound(Temp,2)
	For i=0 To MyRsCount
		MyItem=MyItem+1
		If MyItem>(Page-1)*PageSize And MyItem<=Page*Pagesize Then
%> 
<tr bgcolor="F1F3F5" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#CAD7F7'" style="padding: 0px 2px;"> 
<td align=center class="TableRow2"><a href="?Action=Main&SearchType=SearchFileType&SearchCondition=<%=Temp(1,i)%>"><%=Temp(1,i)%></a></td>
<td align=center class="TableRow2">
<%=Clng(Temp(4,i)/1024)%>
</td>
<td align=center class="TableRow2">
<%=Temp(5,i)%></td>
<td align=center class="TableRow2"><%=Temp(8,i)%></td>
<td align=center class="TableRow2"><%=Temp(6,i)%></td>
<td align=center class="TableRow2"><%=Temp(7,i)%></td>
<td align=center class="TableRow2"><a href="<%=SysPath&Temp(2,i)%>" target="_blank">查看</a>&nbsp;
  <input type="checkbox" value=<%=Temp(0,i)%> name="FileId" onClick="unselectall(this.form)" style="border: 0px;background-color: #eeeeee;"></td>
</tr>
<%			ElseIf MyItem>Page*PageSize Then
			Exit For
		End If
	Next
%>
<tr>
    <td colspan="7" class="TableRow2" align=right><input name="chkAll" type="checkbox" id="chkAll2" onClick=CheckAll(this.form) value="checkbox" style="border: 0px;background-color: #eeeeee;">
选择所有&nbsp;&nbsp;
<input type="submit" name="DelType" value="删除所选" onClick="{if(confirm('确定要删除所选文件吗?')){this.document.delform.submit();return true;}return false;}">
&nbsp;&nbsp;
</td>
 </tr></form>
<tr>
<td colspan=7 class="TableRow2" align="right">
<%=ClsPub.PageList(Pagesize,MyRsCount+1,Page,FieldName,FieldValue)%></td></tr>
<tr class="TableRow2">
		<td class="TableRow2" colspan="3">
		<form action="?Action=Main&SearchType=SerchFileByTime" method=post name="SearchFileByTime">
	   <a href="#sDate" onClick="SD(this,'document.SearchFileByTime.sDate')">从<img src="../Images/date_picker.gif" width="30" height="19" border="0" align="absbottom"></a>
	   <input type="text" name="sDate" size="10" readonly value="">&nbsp;
	   <a href="#eDate" onClick="SD(this,'document.SearchFileByTime.eDate')">至<img src="../Images/date_picker.gif" width="30" height="19" border="0" align="absbottom"></a>
	   <input type="text" name="eDate" size="10" readonly value="">
	  <input type="submit" name="Submit" value="GO">
	   </FORM>
	</td>
		<td width="58" class="TableRow2">	<form action="?Action=Main&SearchType=SearchFileType" method=post>
	  <select size=1 name="SearchCondition" onChange="javascript:submit()">
	  <option value="" selected <%If Request("SearchCondition")="" Then%>selected<%End If%>>文件类型</option>
	  <%
	  Dim FileType,X,TempValue
	  FileType=ClsPub.TW_Config(17)
	  If Instr(FileType,",")>0 Then
	  	TempValue=Split(FileType,",")
	  	For X=0 To Ubound(TempValue)
	  %>
	  	<option value="<%=TempValue(X)%>" <%If Request("SearchCondition")=TempValue(X) Then%>selected<%End If%>><%=TempValue(X)%></option>	
	  <%Next
	  Else
	  %>
	  	<option value="<%=ClsPub.TW_Config(17)%>" <%If Request("SearchCondition")=ClsPub.TW_Config(17) Then%>selected<%End If%>><%=ClsPub.TW_Config(17)%></option>
	  <%
	  End If
	  %>
	    </select>
    </FORM>	</td>
		<td width="146" align="right" class="TableRow2"><form action="?Action=Main&SearchType=BaseSearch" method="post" name="BaseSearch">
	  <select size=1 name="SearchCondition" onChange="javascript:submit()">
	<option value="1" <%If Request("SearchCondition")="1" Then%>selected<%End If%>>
	列出所有上传附件</option>
	<option value="2" <%If Request("SearchCondition")="2" Then%>selected<%End If%>>
	最近 ２４小时内上传的附件</option>
	<option value="3" <%If Request("SearchCondition")="3" Then%>selected<%End If%>>
	最近３天内上传的附件</option>
	<option value="4" <%If Request("SearchCondition")="4" Then%>selected<%End If%>>
	最近１周内上传的附件</option>
	<option value="5" <%If Request("SearchCondition")="5" Then%>selected<%End If%>>
	最近 ３周内上传的附件</option>
	<option value="6" <%If Request("SearchCondition")="6" Then%>selected<%End If%>>
	最近１个月内上传的附件</option>
	<option value="7" <%If Request("SearchCondition")="7" Then%>selected<%End If%>>
	最近３个月内上传的附件</option>
	<option value="8" <%If Request("SearchCondition")="8" Then%>selected<%End If%>>
	下载前１００名的附件</option>	
	<option value="9" <%If Request("SearchCondition")="9" Then%>selected<%End If%>>
	所有有效文件(有效期：<%=ClsPub.TW_Config(42)%>天)</option>
	<option value="10" <%If Request("SearchCondition")="10" Then%>selected<%End If%>>
	所有过期文件(有效期：<%=ClsPub.TW_Config(42)%>天)</option>
	</select>
    </FORM></td>
		<td class="TableRow2" colspan="2"><form action="?Action=Main&SearchType=SearchByFileSize" method=post>
	  <select size=1 name="SizeCondition">
	  <option value="LessThan" <%If Request("SizeCondition")="LessThan" Then%>selected<%End If%>>小于</option>
	  <option value="MoreThan" <%If Request("SizeCondition")="MoreThan" Then%>selected<%End If%>>大于</option>
	</select>
	   <input type="text" name="FileSize" size="5" value="<%=Request("FileSize")%>" onClick="this.value=''">
	  <input type="submit" name="Submit" value="GO">
    </FORM></td>
  </tr>
</table>
<%
End Sub
Sub DelectFile()
	Dim FileId,i,Temp,FileCount,DelFileCount
	FileId=ClsPub.SafeRequest(2,"FileId",1,0,0)
	If FileId="" Then
		SysMsg="请选择要删除的文件!"
		Call ClsPub.Alert("?",0)
	End If
	FileId=Split(FileId,",")
	DelFileCount=0
	FileCount=Ubound(FileId)
	For i=0 To FileCount
		Temp=ClsPub.DB_Query("Select F_Path From TW_FilesList Where F_Id="&Trim(FileId(i)))
		If IsArray(Temp) Then
			If Temp(0,0)<>"" Then
				ClsPub.DB_Execute("Delete * From TW_FilesList Where F_Id="&Trim(FileId(i)))
				If ClsPub.DeleteFile(SysPath&Temp(0,0)) Then
					DelFileCount=DelFileCount+1
				End If
			End If
		End If
	Next
	If FileCount+1-DelFileCount=0 Then
		SysMsg="成功删除文件总计:"&DelFileCount&"个."
	Else
		SysMsg="成功删除文件总计:"&DelFileCount&"个\n\n 共有："&FileCount+1-DelFileCount&" 个文件由于不明原因删除失败!"
	End If
	Call ClsPub.Alert("?",0)
End Sub
%>
<%CloseAll%>
</body>
</html>
⌨️ 快捷键说明

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