📄 admin_clearfiles.asp

📁 金路网络硬盘====特首快传系统 (Tso upload system 1.0) 使用ASP脚本编写,大量使用类封装,全面集成优化aspuplaod3.0批量上传
💻 ASP
字号:
<!--#include file="Inc/Inc.asp"-->
<!--#include file="../Include/MD5.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Images/Admin_Css.css" rel="stylesheet" type="text/css">
<script src="inc/jsdate.js"></script>
<script src="inc/admin.js"></script>
</head>
<%
Call ClsAdmin.CheckManager(0,4)
Dim Action,QueryType,MyCondition,IsDelete,IsQueryNow
Action=ClsPub.SafeRequest(1,"Action",1,0,0)
QueryType=ClsPub.SafeRequest(1,"QueryType",1,0,0)
MyCondition=ClsPub.SafeRequest(1,"MyCondition",1,0,0)
IsDelete=ClsPub.SafeRequest(2,"IsDelete",1,0,0)
IsQueryNow=False
ClsPub.SysConfig
%>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
 <tr>
      <td height="22" class="title" colspan=7>文件列表</td> 
    </tr>
    <tr align=center height=23>
<td class="title3" width="97%" align=left>
	<a href="?QueryType=QueryFileByDateTime">时间检索</a>
	<a href="?QueryType=QueryFileByFileType">后辍检索</a>
	<a href="?QueryType=QueryFileByFileSize">大小检索</a>
	<a href="?QueryType=QueryFileByExpireFile">过期检索</a>
	<a href="?QueryType=MainQuery">高级检索</a>
<table border="0" width="100%" id="table1">
	<tr>
		<td width="40%">
		
		</td>
		<td width="130"></td>
		<td width="234"></td>
	</tr>
</table>	 
</td>
</tr>
    
    <tr align=center height=23>
<td class="td" width="97%" align="center" height="150">
<%
Select Case QueryType
	Case "QueryFileByDateTime"
		Call QueryFileByDateTime()
		Dim sDate,eDate
		sDate=ClsPub.SafeRequest(1,"sDate",2,"1900-1-1",0)
		eDate=ClsPub.SafeRequest(1,"eDate",2,"1900-1-1",0)
		If sDate="1900-1-1" or eDate="1900-1-1" Then
			MyCondition=""
		Else
			MyCondition="F_AddTime Between #"&sDate&"# And #"&eDate&"#"
		End If
		IsQueryNow=True
	Case "QueryFileByFileType"
		Call QueryFileByFileType()
		Dim FileType
		FileType=ClsPub.SafeRequest(2,"FileType",1,"",0)
		If FileType="" Then
			MyCondition=""
		Else
			MyCondition="F_Ext='"&Lcase(FileType)&"'"
		End If
		IsQueryNow=True
	Case "QueryFileByFileSize"
		Call QueryFileByFileSize()
		Dim FileSize,SizeCondition,FileSizeCondition
		FileSize=ClsPub.SafeRequest(2,"FileSize",1,"",0)
		SizeCondition=ClsPub.SafeRequest(2,"SizeCondition",1,"",0)
		Response.Write SizeCondition
		If SizeCondition="LessThan" Then
			FileSizeCondition="<="
		Else
			FileSizeCondition=">="
		End If
		If FileSize="" Then
			MyCondtion=""
		Else
			FileSize=FileSize*1024
			MyCondition="F_Size"&FileSizeCondition&FileSize
		End If
		IsQueryNow=True
	Case "QueryFileByExpireFile"
		Call QueryFileByExpireFile()
		MyCondition="Datediff('d',F_AddTime,"&SqlNowString&")<"&ClsPub.Tso_Config(42)
		IsQueryNow=True
	Case "QueryFileByNotRecorded"
		Call QueryFileByNotRecorded()
	Case "MainQuery"
		Call MainQuery()
		Dim MyConditionTemp,mFileType,mFileSize,mSizeCondition,msDate,meDate,mFileIsAvail
		mFileType=ClsPub.SafeRequest(2,"mFileType",1,"",0)
		mFileSize=ClsPub.SafeRequest(2,"mFileSize",1,"",0)
		mFileSizeCondition=ClsPub.SafeRequest(2,"mSizeCondition",1,"",0)
		msDate=ClsPub.SafeRequest(2,"msDate",2,"1900-1-1",0)
		meDate=ClsPub.SafeRequest(2,"meDate",2,"1900-1-1",0)
		mFileIsAvail=ClsPub.SafeRequest(2,"mFileIsAvail",1,"",0)
		If mFileType<>"" Then
			MyConditionTemp="F_Ext='"&Lcase(mFileType)&"'"
		End If
		If mFileSize<>"" Then
			If mFileSizeCondition="LessThan" Then
				MyConditionTemp=MyConditionTemp&" And F_Size<="&mFileSize*1024
			Else
				MyConditionTemp=MyConditionTemp&" And F_Size>="&mFileSize*1024
			End If
		End If
		If msDate<>"1900-1-1" And esDate<>"1900-1-1" Then
			MyConditionTemp=MyConditionTemp&" And F_AddTime Between #"&msDate&"# And #"&meDate&"#"
		End If
		If mFileIsAvail="NotAvail" Then
			MyConditionTemp=MyConditionTemp&" And Datediff('d',F_AddTime,"&SqlNowString&")<"&ClsPub.Tso_Config(42)
		End If
		If Left(MyConditionTemp,4)=" And" Then
			MyCondition=Mid(MyConditionTemp,5,Len(MyConditionTemp))
		Else
			MyCondition=MyConditionTemp
		End If
		IsQueryNow=True
End Select
If IsQueryNow=True Then
	Dim SearchSQL,DeleteSQL,Temp,i,FileCount,DelFileCount
	If MyCondition="" Then
		MyCondition=" Where F_Id=0"
	Else
		MyCondition=" Where "&MyCondition
	End If
	SearchSQL="Select F_Path From Tso_FilesList"&MyCondition
	DeleteSQL="Delete * From Tso_FilesList"&MyCondition
	Temp=ClsPub.DB_Query(SearchSQL)
	If IsDelete="Yes" Then
		If IsArray(Temp) Then
			FileCount=Ubound(Temp,2)
			DelFileCount=0
			For i=0 To FileCount
				If ClsPub.DeleteFile(SysPath&Temp(0,i)) Then
					ClsPub.DB_Execute(DeleteSQL)
					DelFileCount=DelFileCount+1
				End If
			Next
		End If
		If FileCount+1-DelFileCount=0 Then
			Response.Write "成功删除文件共计: <b>"&DelFileCount&"</b> 个."
		Else
			Response.Write "文件总计: "&FileCount+1&" 个,删除文件共 <b>"&DelFileCount&"</b> 个,但有 <b>"&FileCount+1-DelFileCount&"</b> 个文件由于不明原因删除失败."
		End If
	Else
		If IsArray(Temp) Then
			Response.Write "查询结果:共有 <b>"&Clng(Ubound(Temp,2)+1)&"</b> 个符合条件的文件."
		Else
			Response.Write "查询结果:共有 <b>0</b> 个符合条件的文件."
		End If
	End If
Else
	Response.Write "请选择检索条件!"
End If
%>	 
</td>
</tr>
</table>
<%
Sub QueryFileByDateTime()
%>
<form action="?Action=Main&QueryType=QueryFileByDateTime" method=post name="SearchFileByTime">
	   <a href="#sDate" onclick="SD(this,'document.SearchFileByTime.sDate')">开始时间：<img src="images/date_picker.gif" border="0" align="absbottom"></a>
	   <input type="text" name="sDate" size="10" readonly value="<%=Request("sDate")%>">&nbsp;
	   <a href="#eDate" onclick="SD(this,'document.SearchFileByTime.eDate')">结束时间：<img src="images/date_picker.gif" border="0" align="absbottom"></a>
	   <input type="text" name="eDate" size="10" readonly value="<%=Request("eDate")%>">  &nbsp;删除 <input type="checkbox" name="IsDelete" value="Yes"><p>
	  <input type="submit" name="Submit" value=" GO ">
	   </FORM>
<%
End Sub
Sub QueryFileByFileType()
%>
<form action="?Action=Main&QueryType=QueryFileByFileType" method=post>
	  <select size=1 name="FileType">
	  <option value="" <%If Request("FileType")="" Then%>selected<%End If%>>
		按文件类型分类</option>
	  <%
	  Dim FileType,X,TempValue
	  FileType=ClsPub.Tso_Config(17)
	  If Instr(FileType,",")>0 Then
	  	TempValue=Split(FileType,",")
	  	For X=0 To Ubound(TempValue)
	  %>
	  	<option value="<%=TempValue(X)%>" <%If Request("FileType")=TempValue(X) Then%>selected<%End If%>><%=TempValue(X)%></option>	
	  <%Next
	  Else
	  %>
	  	<option value="<%=ClsPub.Tso_Config(17)%>" <%If Request("FileType")=ClsPub.Tso_Config(17) Then%>selected<%End If%>><%=ClsPub.Tso_Config(17)%></option>
	  <%
	  End If
	  %>
	</select>
 &nbsp;删除 <input type="checkbox" name="IsDelete" value="Yes"><p>
	  <input type="submit" name="Submit" value=" GO ">
	   </FORM>
<%
End Sub
Sub QueryFileByFileSize()
%>
<form action="?Action=Main&QueryType=QueryFileByFileSize" 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" onclick="this.value=''" >KB
&nbsp;&nbsp;删除 <input type="checkbox" name="IsDelete" value="Yes"><p>
	  <input type="submit" name="Submit" value=" GO ">
	   </FORM>
<%
End Sub
Sub QueryFileByExpireFile()
%>
<form action="?Action=Main&QueryType=QueryFileByExpireFile" method=post>
&nbsp;&nbsp;删除 <input type="checkbox" name="IsDelete" value="Yes"><p>
	  <input type="submit" name="Submit" value=" GO ">
	   </FORM>
<%
End Sub
Sub MainQuery()
%>
<form action="?Action=Main&QueryType=MainQuery" method=post name="MainQuery">
	   	  类型:<select size=1 name="mFileType">
	  <option value="" <%If Request("mFileType")="" Then%>selected<%End If%>>
		不限</option>
	  <%
	  Dim FileType,X,TempValue
	  FileType=ClsPub.Tso_Config(17)
	  If Instr(FileType,",")>0 Then
	  	TempValue=Split(FileType,",")
	  	For X=0 To Ubound(TempValue)
	  %>
	  	<option value="<%=TempValue(X)%>" <%If Request("mFileType")=TempValue(X) Then%>selected<%End If%>><%=TempValue(X)%></option>	
	  <%Next
	  Else
	  %>
	  	<option value="<%=ClsPub.Tso_Config(17)%>" <%If Request("mFileType")=ClsPub.Tso_Config(17) Then%>selected<%End If%>><%=ClsPub.Tso_Config(17)%></option>
	  <%
	  End If
	  %>
	</select><p>
	
	  大小 <select size=1 name="mSizeCondition">
	  <option value="LessThan" <%If Request("mSizeCondition")="LessThan" Then%>selected<%End If%>>
		小于</option>
	  <option value="MoreThan" <%If Request("mSizeCondition")="MoreThan" Then%>selected<%End If%>>
		大于</option>
	</select>
	   <input type="text" name="mFileSize" size="5" Value="<%=Request("mFileSize")%>">KB<p>
	   	   时间:<a href="#sDate" onclick="SD(this,'document.MainQuery.msDate')">开始时间：<img src="images/date_picker.gif" border="0" align="absbottom"></a>
	   <input type="text" name="msDate" size="10" readonly value="<%=Request("msDate")%>">&nbsp;
	   <a href="#eDate" onclick="SD(this,'document.MainQuery.meDate')">结束时间：<img src="images/date_picker.gif" border="0" align="absbottom"></a>
	   <input type="text" name="meDate" size="10" readonly value="<%=Request("meDate")%>"><p>
	   	   <input type="radio" value="NotAvail" name="mFileIsAvail" Checked>&nbsp;过期&nbsp;
			<input type="radio" value="Avail" name="mFileIsAvail">&nbsp;有效 <p>
	   
	   删除:<input type="checkbox" name="IsDelete" value="Yes"><p>
	  <input type="submit" name="Submit" value=" GO ">
	   </FORM>
<%
End Sub
%>
<%CloseAll%>
</body>
</html>
⌨️ 快捷键说明

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