⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_managedbfiles.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>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
Call ClsAdmin.CheckManager(0,2)
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.Tso_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.Tso_Config(42)
					End If
				Case "10"
					If ClsPub.Tso_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.Tso_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 Tso_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="table">
        <tr>
      <td height="22" class="title" colspan=7>文件列表</td> 
    </tr>
 <form method="post" action="?Action=DelectFile" name="DelForm">
<tr align=center height=23>
<td class="td"Highlight width="8%"><B>文件类型</B></td>
<td class="td"Highlight width="11%"><B>大小</B></td>
<td class="td"Highlight width="20%"><b>提取文件ID</b></td>
<td class="td"Highlight width="6%"><b>点击</b></td>
<td class="td"Highlight width="25%"><B>上传时间</B></td>
<td class="td"Highlight width="15%"><B>用户IP</B></td>
<td class="td"Highlight width="10%"><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><a href="?Action=Main&SearchType=SearchFileType&SearchCondition=<%=Temp(1,i)%>">
<%
If Temp(1,i)="asp" Then
response.Write("<img src=../Images/icon/asp.gif border=0>")
ElseIF Temp(1,i)="aspx" Then
response.Write("<img src=../Images/icon/aspx.gif border=0>")
ElseIF Temp(1,i)="bat" Then
response.Write("<img src=../Images/icon/bat.gif border=0>")
ElseIF Temp(1,i)="bmp" Then
response.Write("<img src=../Images/icon/bmp.gif border=0>")
ElseIF Temp(1,i)="chm" Then
response.Write("<img src=../Images/icon/chm.gif border=0>")
ElseIF Temp(1,i)="cs" Then
response.Write("<img src=../Images/icon/cs.gif border=0>")
ElseIF Temp(1,i)="css" Then
response.Write("<img src=../Images/icon/css.gif border=0>")
ElseIF Temp(1,i)="dll" Then
response.Write("<img src=../Images/icon/dll.gif border=0>")
ElseIF Temp(1,i)="exe" Then
response.Write("<img src=../Images/icon/exe.gif border=0>")
ElseIF Temp(1,i)="gif" Then
response.Write("<img src=../Images/icon/gif.gif border=0>")
ElseIF Temp(1,i)="hlp" Then
response.Write("<img src=../Images/icon/hlp.gif border=0>")
ElseIF Temp(1,i)="htc" Then
response.Write("<img src=../Images/icon/htc.gif border=0>")
ElseIF Temp(1,i)="html" Then
response.Write("<img src=../Images/icon/html.gif border=0>")
ElseIF Temp(1,i)="inc" Then
response.Write("<img src=../Images/icon/inc.gif border=0>")
ElseIF Temp(1,i)="iso" Then
response.Write("<img src=../Images/icon/iso.gif border=0>")
ElseIF Temp(1,i)="jpg" Then
response.Write("<img src=../Images/icon/jpg.gif border=0>")
ElseIF Temp(1,i)="js" Then
response.Write("<img src=../Images/icon/js.gif border=0>")
ElseIF Temp(1,i)="lnk" Then
response.Write("<img src=../Images/icon/lnk.gif border=0>")
ElseIF Temp(1,i)="mdb" Then
response.Write("<img src=../Images/icon/mdb.gif border=0>")
ElseIF Temp(1,i)="mdf" Then
response.Write("<img src=../Images/icon/mdf.gif border=0>")
ElseIF Temp(1,i)="mht" Then
response.Write("<img src=../Images/icon/mht.gif border=0>")
ElseIF Temp(1,i)="midi" Then
response.Write("<img src=../Images/icon/midi.gif border=0>")
ElseIF Temp(1,i)="mp3" Then
response.Write("<img src=../Images/icon/mp3.gif border=0>")
ElseIF Temp(1,i)="pdf" Then
response.Write("<img src=../Images/icon/pdf.gif border=0>")
ElseIF Temp(1,i)="ppt" Then
response.Write("<img src=../Images/icon/ppt.gif border=0>")
ElseIF Temp(1,i)="rar" Then
response.Write("<img src=../Images/icon/rar.gif border=0>")
ElseIF Temp(1,i)="reg" Then
response.Write("<img src=../Images/icon/reg.gif border=0>")
ElseIF Temp(1,i)="sql" Then
response.Write("<img src=../Images/icon/sql.gif border=0>")
ElseIF Temp(1,i)="swf" Then
response.Write("<img src=../Images/icon/swf.gif border=0>")
ElseIF Temp(1,i)="txt" Then
response.Write("<img src=../Images/icon/text.gif border=0>")
ElseIF Temp(1,i)="url" Then
response.Write("<img src=../Images/icon/url.gif border=0>")
ElseIF Temp(1,i)="vs" Then
response.Write("<img src=../Images/icon/vs.gif border=0>")
ElseIF Temp(1,i)="wav" Then
response.Write("<img src=../Images/icon/wav.gif border=0>")
ElseIF Temp(1,i)="wmp" Then
response.Write("<img src=../Images/icon/wmp.gif border=0>")
ElseIF Temp(1,i)="word" Then
response.Write("<img src=../Images/icon/word.gif border=0>")
ElseIF Temp(1,i)="xls" Then
response.Write("<img src=../Images/icon/xls.gif border=0>")
ElseIF Temp(1,i)="xml" Then
response.Write("<img src=../Images/icon/xml.gif border=0>")
ElseIF Temp(1,i)="xslt" Then
response.Write("<img src=../Images/icon/xslt.gif border=0>")
ElseIF Temp(1,i)="zip" Then
response.Write("<img src=../Images/icon/zip.gif border=0>")
Else
response.Write("<img src=../Images/icon/unknown.gif border=0>")
End If%>(<%=Temp(1,i)%>)</a></td>
<td align=center>
<%=Clng(Temp(4,i)/1024)%> KB
</td>
<td align=center>
<%=Temp(5,i)%></td>
<td align=center><%=Temp(8,i)%></td>
<td align=center><%=Temp(6,i)%></td>
<td align=center><%=Temp(7,i)%></td>
<td align=center><a href="<%=SysPath&Temp(2,i)%>">查看</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="td" 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="td" align="right">
<%=ClsPub.PageList(Pagesize,MyRsCount+1,Page,FieldName,FieldValue)%></td></tr>
</table>
<%
End Sub

Sub SlectFile()

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 Tso_FilesList Where F_Id="&Trim(FileId(i)))
		If IsArray(Temp) Then
			If Temp(0,0)<>"" Then
				ClsPub.DB_Execute("Delete * From Tso_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
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
        <tr align=center height=23>
<td class="td"Highlight width="97%" align=left>

<table border="0" width="100%" id="table1">
	<tr>
		<td width="40%">
		<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" 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" 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="207">
		<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.Tso_Config(42)%>天)</option>
	<option value="10" <%If Request("SearchCondition")="10" Then%>selected<%End If%>>
	所有过期文件(有效期：<%=ClsPub.Tso_Config(42)%>天)</option>
	</select>
	 </FORM></td>
		<td width="130"><form action="?Action=Main&SearchType=SearchFileType" method=post>
	  <select size=1 name="SearchCondition" onChange="javascript:submit()">
	  <option value="" <%If Request("SearchCondition")="" 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("SearchCondition")=TempValue(X) Then%>selected<%End If%>><%=TempValue(X)%></option>	
	  <%Next
	  Else
	  %>
	  	<option value="<%=ClsPub.Tso_Config(17)%>" <%If Request("SearchCondition")=ClsPub.Tso_Config(17) Then%>selected<%End If%>><%=ClsPub.Tso_Config(17)%></option>
	  <%
	  End If
	  %>
	</select>
	 </FORM></td>
		<td width="234"><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>	 
</td>
</tr>
</table>
<%CloseAll%>
</body>
</html>

⌨️ 快捷键说明

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