?? adminupfile.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Server.ScriptTimeOut=50000%>
<!--#Include file = "BBSConfig.asp"-->
<!--#include file="Session.asp"-->
<!--#include file="../INC/FSO.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理附件</title>
<link href="Style.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_callJS(jsStr) { //V2.3
return eval(jsStr)
}
//-->
</script>
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
<script>
function showDiv(){
showMsg.style.visibility="visible";
}
function hDiv(){
showMsg.style.visibility="hidden";
}
</script>
</head>
<body onLoad="hDiv()">
<div id="showMsg" style="position:absolute; left:82px; top:159px; width:566px; height:67px; z-index:1; visibility: hidden;">
<table width="362" height="33" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#000000">
<tr>
<td align="center" bgcolor="#0066CC"><font color="#FFFFFF">正在讀取文件列表,請等候,并不要執行其它操作</font></td>
</tr>
</table>
</div>
<%
Function getSetStr(FormName)
CLStr=Chr(13) & Chr(10)
setStr = setStr &"<script language=""javascript"">"&CLStr
setStr = setStr &" function AllSet(theForm)"&CLStr
setStr = setStr &" {"&CLStr
setStr = setStr &" for(i=0;i<document."& FormName &".length;i++)"&CLStr
setStr = setStr &" if(document."& FormName &".elements[i].type==""checkbox"")"&CLStr
setStr = setStr &" document."& FormName &".elements[i].checked=1}"&CLStr
setStr = setStr &" function Reverse()"&CLStr
setStr = setStr &" {"&CLStr
setStr = setStr &" for(i=0;i<document."& FormName &".length;i++)"&CLStr
setStr = setStr &" if(document."& FormName &".elements[i].type==""checkbox"")"&CLStr
setStr = setStr &" if(document."& FormName &".elements[i].checked==1)"&CLStr
setStr = setStr &" document."& FormName &".elements[i].checked=0"&CLStr
setStr = setStr &" else"&CLStr
setStr = setStr &" document."& FormName &".elements[i].checked=1}"&CLStr
setStr = setStr &" function ReSet()"&CLStr
setStr = setStr &" {"&CLStr
setStr = setStr &" for(i=0;i<document."& FormName &".length;i++)"&CLStr
setStr = setStr &" if(document."& FormName &".elements[i].type==""checkbox"")"&CLStr
setStr = setStr &" if(document."& FormName &".elements[i].checked==1)"&CLStr
setStr = setStr &" document."& FormName &".elements[i].checked=0}"&CLStr
setStr = setStr &"</script>"&CLStr
setStr = setStr &"<input name=""button"" type=button onclick=""AllSet()"" value=""全選"">"&CLStr
setStr = setStr &"<input name=""button"" type=button onclick=""Reverse()"" value=""反選"">"&CLStr
setStr = setStr &"<input name=""button"" type=button onclick=""ReSet()"" value=""不選"">"&CLStr
setStr = setStr &"<input name=""Submit"" type=""submit"" id=""Submit"" value=""刪除所選"">"&CLStr
getSetStr = setStr
End Function
if not testObj("Scripting.FileSystemObject") then
response.write "<br><br> 您的空間不支持FSO,無法通過本程序來管理附件，請采用FTP或者其它方式管理：論壇目錄/upload/下的附件。"
response.End()
End if
uploadFolder = "../upload/"
uploadPath = lcase(server.MapPath(uploadFolder))
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
action = Trim(request.QueryString("action"))
Select Case action
Case "fileAll"
Call fileAll()
Case "noUse"
Call nouse()
Case "Del"
Call Del()
Case "search"
Call search()
Case "ShowFolder"
Call ShowFolder()
Case "delSub"
Call delSub()
End Select
'--------------------------------
Sub delSub()
if trim(request.Form("Submit")) = "確定刪除" then
'response.write filename
backUrl = trim(request.Form("backUrl"))
filename = replace(trim(request.Form("filename")),"\","/")
If filename="" then
response.write "<br><br> 請選擇要刪除的文件,<a href="""&backUrl&""">點擊這里返回</a>"
Else
If trim(request.Form("type")) = "f" then
filename = uploadFolder&filename
delFolder(filename)
Else
filename = replace(trim(request.Form("filename")),"\","/")
filenameArr = Split(filename,",")
For d = 0 to Ubound(filenameArr)
Response.write("已經刪除:"&uploadFolder&filenameArr(d)&"<br>")
delfile(uploadFolder&filenameArr(d))
Next
End if
response.write "<br><br> 刪除完畢,<a href="""&backUrl&""">點擊這里返回繼續操作</a>"
End if
else
backUrl = request.ServerVariables("HTTP_REFERER")
delType= trim(request.QueryString("type"))
if delType="f" then
filename = trim(request.QueryString("filePath"))
else
filename = trim(request.Form("filePaths"))
filename = Replace(filename,", ",",")
end if
%>
<table width="340" height="47" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
<form name="form2" method="post" action="?action=delSub">
<tr>
<td bgcolor="#EFEFE7"> <div align="center"><strong>確認刪除</strong></div></td>
</tr>
<tr>
<td height="50" bgcolor="#FFFFFF"> <div align="center"><font color="#FF0000">您確定刪除此文件<%if delType="f" then response.write "夾"%>嗎？
<input name="filename" type="hidden" id="filename" value="<%=filename%>">
<input name="backUrl" type="hidden" id="backUrl" value="<%=backUrl%>">
<input name="type" type="hidden" id="type" value="<%=delType%>">
</font></div></td>
</tr>
<tr>
<td bgcolor="#EFEFE7"> <div align="center">
<input name="Submit" type="submit" class="form1" id="Submit" value="確定刪除">
<input name="Submit6" type="button" class="form1" onClick="MM_callJS('history.back()')" value="返回">
</div></td>
</tr>
</form>
</table>
<%
End if
End Sub
'--------------------------------
Sub fileAll()
if FileObject.FolderExists(uploadPath) then
set rs = server.CreateObject("adodb.recordset")
response.write "<table width=""560"" border=""0"" cellpadding=""4"" cellspacing=""1"" bgcolor=""#CCCCCC"" align=""center"">"
response.write "<tr bgcolor=""#EFEFE7""> "
response.write "<td colspan=""5""><b>UpLoad目錄下所有文件信息：</b></td>"
response.write "</tr><tr bgcolor=""#F5F5F5"">"
response.write "<td>目錄名(點擊進入該目錄)</td>"
response.write "<td align=""center"">文件數</td>"
response.write "<td align=""center"">占用空間(K)</td>"
response.write "<td>功用/所屬版塊</td>"
Set Folder=FileObject.GetFolder(uploadPath)
AllSize = Folder.Size
AllSize=Round(AllSize/1024,2)
if AllSize < 1 and f>0 then AllSize="0"&AllSize
'循環顯示其中子目錄
For Each thing in Folder.SubFolders
SubPath = thing
'response.write uploadPath&"<br>"&thing
thing = replace(lcase(thing),uploadPath&"\","")
Foldername="<a href=""?action=ShowFolder&Folder="&thing&""" onclick=""showDiv()""><img src=""images/Folder.gif"" border=""0""> "&thing&"</a>"
response.write "<tr bgcolor=""#FFFFFF""> "
response.write "<td width=""160"">"&Foldername&"</td>"
response.write "<td width=""80"" align=""center"">"
n=0
fileSize=0
if FileObject.FolderExists(SubPath) then
Set Folder2=FileObject.GetFolder(SubPath)
''統計子目錄中的文件數和大小
For Each thing2 in Folder2.Files
n=n+1
Next
fileSize = Folder2.Size
fileSize=Round(fileSize/1024,2)
if fileSize < 1 and n>0 then fileSize="0"&fileSize
Set Folder2 = nothing
End if
response.write n
allN = allN+N
f=f+1
response.write "<td width=""120"" align=""center"">"&fileSize&"</td>"
response.write "<td>"
if thing="avatars" then
response.write "會員上傳頭像目錄"
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -