?? upload.aspx
字號:
?<!--#include file = "private.aspx"-->
<% @Import Namespace="System.IO" %>
<%
'######################################
' eWebEditor v4.00 - Advanced online web based WYSIWYG HTML editor.
' Copyright (c) 2003-2007 eWebSoft.com
'
' For further information go to http://www.ewebsoft.com/
' This copyright notice MUST stay intact for use.
'######################################
%>
<%
sPosition = sPosition & "上傳文件管理"
Call Header()
Call Content()
Call Footer()
%>
<script language="vb" runat="server">
Dim sStyleID, sUploadDir, sCurrDir, sDir
Sub Content()
Call InitParam()
Select Case sAction
Case "DELALL"
Call DoDelAll()
Case "DEL"
Call DoDel()
Case "DELFOLDER"
Call DoDelFolder()
End Select
Call ShowList()
End Sub
Sub ShowList()
Response.Write ("<table border=0 cellspacing=1 align=center class=navi>" & _
"<form action='?' method=post name=queryform>" & _
"<tr><th>" & sPosition & "</th></tr>" & _
"<tr><td align=right><b>選擇樣式目錄：</b><select name='id' size=1 onchange=""location.href='?id='+this.options[this.selectedIndex].value"">" & InitSelect(sStyleID, "選擇...") & "</select></td></tr>" & _
"</form></table><br>")
If sCurrDir = "" Then Exit Sub
Response.Write ("<table border=0 cellspacing=1 class=list align=center>" & _
"<form action='?id=" & sStyleID & "&dir=" & sDir & "&action=del' method=post name=myform>" & _
"<tr align=center>" & _
"<th width='10%'>類型</th>" & _
"<th width='40%'>文件地址</th>" & _
"<th width='10%'>大小</th>" & _
"<th width='15%'>最后訪問</th>" & _
"<th width='15%'>上傳日期</th>" & _
"<th width='10%'>刪除</th>" & _
"</tr>")
Dim sCurrPage, nCurrPage, nFileNum, nPageNum, nPageSize
sCurrPage = Trim(Request("page"))
nPageSize = 20
If sCurrpage = "" Or Not IsNumeric(sCurrPage) Then
nCurrPage = 1
Else
nCurrPage = CLng(sCurrPage)
End If
Dim oUploadFile, sFileName
Dim i
Dim sMapCurrDir
sMapCurrDir = Server.MapPath(sCurrDir)
If CheckValidDir(sMapCurrDir) = False Then
Response.Write ("<tr><td colspan=6>無效的目錄！</td></tr></table>")
Exit Sub
End If
If sDir <> "" Then
Response.Write ("<tr align=center>" & _
"<td><img border=0 src='../sysimage/file/folderback.gif'></td>" & _
"<td align=left colspan=5><a href=""?id=" & sStyleID & "&dir=")
If InstrRev(sDir, "/") > 1 Then
Response.Write (Left(sDir, InstrRev(sDir, "/") - 1))
End If
Response.Write (""">返回上一級目錄</a></td></tr>")
End If
Dim sSubDir As String
Dim oSubDirInfo As DirectoryInfo
For Each sSubDir In Directory.GetDirectories(sMapCurrDir)
oSubDirInfo = New DirectoryInfo(sSubDir)
Response.Write ("<tr align=center>" & _
"<td><img border=0 src='../sysimage/file/folder.gif'></td>" & _
"<td align=left colspan=4><a href=""?id=" & sStyleID & "&dir=")
If sDir <> "" Then
Response.Write (sDir & "/")
End If
Response.Write (Server.UrlEncode(oSubDirInfo.Name) & """>" & oSubDirInfo.Name & "</a></td>" & _
"<td><a href='?id=" & sStyleID & "&dir=" & sDir & "&action=delfolder&foldername=" & Server.UrlEncode(oSubDirInfo.Name) & "'>刪除</a></td></tr>")
Next
Dim sUploadFiles() As String
sUploadFiles = Directory.GetFiles(sMapCurrDir)
nFileNum = sUploadFiles.Length
nPageNum = Int(nFileNum / nPageSize)
If nFileNum Mod nPageSize > 0 Then
nPageNum = nPageNum+1
End If
If nCurrPage > nPageNum Then
nCurrPage = 1
end If
Dim sUploadFile As String
Dim oFileInfo As FileInfo
i = 0
For Each sUploadFile In sUploadFiles
i = i + 1
If i > (nCurrPage - 1) * nPageSize And i <= nCurrPage * nPageSize Then
oFileInfo = New FileInfo(sUploadFile)
sFileName = oFileInfo.Name
Response.Write ("<tr align=center>" & _
"<td>" & FileName2Pic(sFileName) & "</td>" & _
"<td align=left><a href=""" & sCurrDir & sFileName & """ target=_blank>" & sFileName & "</a></td>" & _
"<td>" & oFileInfo.Length & " B </td>" & _
"<td>" & oFileInfo.LastAccessTime & "</td>" & _
"<td>" & oFileInfo.CreationTime & "</td>" & _
"<td><input type=checkbox name=delfilename value=""" & sFileName & """></td></tr>")
Elseif i > nCurrPage * nPageSize Then
Exit For
End If
Next
If nFileNum <= 0 Then
Response.Write ("<tr><td colspan=6>指定目錄下現在還沒有文件！</td></tr>")
End If
If nFileNum > 0 Then
Response.Write ("<tr><td colspan=6><table border=0 cellpadding=3 cellspacing=0 width='100%'><tr><td>")
If nCurrPage > 1 Then
Response.Write ("<a href='?id=" & sStyleID & "&dir=" & sDir & "&page=1'>首頁</a> <a href='?id=" & sStyleID & "&dir=" & sDir & "&page="& nCurrPage - 1 & "'>上一頁</a> ")
Else
Response.Write ("首頁 上一頁 ")
End If
If nCurrPage < i / nPageSize Then
Response.Write ("<a href='?id=" & sStyleID & "&dir=" & sDir & "&page=" & nCurrPage + 1 & "'>下一頁</a> <a href='?id=" & sStyleID & "&dir=" & sDir & "&page=" & nPageNum & "'>尾頁</a>")
Else
Response.Write ("下一頁 尾頁")
End If
Response.Write (" 共<b>" & nFileNum & "</b>個 頁次:<b><span class=highlight2>" & nCurrPage & "</span>/" & nPageNum & "</b> <b>" & nPageSize & "</b>個文件/頁")
Response.Write ("</td><td align=right><input type=submit name=b value=' 刪除選定的文件 '> <input type=button name=b1 value=' 清空所有文件 ' onclick=""javascript:if (confirm('你確定要清空所有文件嗎？')) {location.href='?id=" & sStyleID & "&dir=" & sDir & "&action=delall';}""></td></tr></table></td></tr>")
End If
Response.Write ("</form></table>")
End Sub
Sub DoDel()
On Error Resume Next
Dim oFile As File
Dim sFileName, sMapFileName, i
For i = 1 To Request.Form.GetValues("delfilename").Length
sFileName = Request.Form.GetValues("delfilename")(i - 1)
sMapFileName = Server.MapPath(sCurrDir & sFileName)
oFile.Delete(sMapFileName)
Next
End Sub
Sub DoDelAll()
On Error Resume Next
Dim oFiles, i
Dim oDir As Directory
Dim oFile As File
oFiles = oDir.GetFiles(Server.MapPath(sCurrDir))
For i = 1 To oFiles.Length
oFile.Delete(oFiles(i-1))
Next
End Sub
Sub DoDelFolder()
On Error Resume Next
Dim sFolderName, sMapFolderName
sFolderName = Trim(Request("foldername"))
sMapFolderName = Server.Mappath(sCurrDir & sFolderName)
Dim oDir As Directory
If oDir.Exists(sMapFolderName) = True Then
oDir.Delete(sMapFolderName, True)
End If
End Sub
Function FileName2Pic(sFileName)
Dim sExt, sPicName
sExt = UCase(Mid(sFileName, InstrRev(sFileName, ".")+1))
Select Case sExt
Case "TXT"
sPicName = "txt.gif"
Case "CHM", "HLP"
sPicName = "hlp.gif"
Case "DOC"
sPicName = "doc.gif"
Case "PDF"
sPicName = "pdf.gif"
Case "MDB"
sPicName = "mdb.gif"
Case "GIF"
sPicName = "gif.gif"
Case "JPG"
sPicName = "jpg.gif"
Case "BMP"
sPicName = "bmp.gif"
Case "PNG"
sPicName = "pic.gif"
Case "ASP", "JSP", "JS", "PHP", "PHP3", "ASPX"
sPicName = "code.gif"
Case "HTM", "HTML", "SHTML"
sPicName = "htm.gif"
Case "ZIP"
sPicName = "zip.gif"
Case "RAR"
sPicName = "rar.gif"
Case "EXE"
sPicName = "exe.gif"
Case "AVI"
sPicName = "avi.gif"
Case "MPG", "MPEG", "ASF"
sPicName = "mp.gif"
Case "RA", "RM"
sPicName = "rm.gif"
Case "MP3"
sPicName = "mp3.gif"
Case "MID", "MIDI"
sPicName = "mid.gif"
Case "WAV"
sPicName = "audio.gif"
Case "XLS"
sPicName = "xls.gif"
Case "PPT", "PPS"
sPicName = "ppt.gif"
Case "SWF"
sPicName = "swf.gif"
Case Else
sPicName = "unknow.gif"
End Select
FileName2Pic = "<img border=0 src='../sysimage/file/" & sPicName & "'>"
End Function
Function InitSelect(v_InitValue, s_AllName)
Dim i, aTemp
InitSelect = ""
If s_AllName <> "" Then
InitSelect = InitSelect & "<option value=''>" & s_AllName & "</option>"
End If
For i = 1 To Ubound(aStyle)
aTemp = Split(aStyle(i), "|||")
InitSelect = InitSelect & "<option value='" & i & "'"
If CStr(i) = CStr(v_InitValue) Then
InitSelect = InitSelect & " selected"
End If
InitSelect = InitSelect & ">樣式：" & inHTML(aTemp(0)) & "---目錄：" & inHTML(aTemp(3)) & "</option>"
Next
End Function
Function InitParam()
Dim i
sStyleID = Trim(Request("id"))
sUploadDir = ""
If IsNumeric(sStyleID) = True Then
If Clng(sStyleID) <= Ubound(aStyle) Then
sUploadDir = Split(aStyle(Clng(sStyleID)), "|||")(3)
End If
End If
If sUploadDir = "" Then
sStyleID = ""
Else
sUploadDir = Replace(sUploadDir, "\", "/")
If Right(sUploadDir, 1) <> "/" Then
sUploadDir = sUploadDir & "/"
End If
If Left(sUploadDir, 1) <> "/" Then
sUploadDir = "../" & sUploadDir
End If
End If
sCurrDir = sUploadDir
sDir = Trim(Request("dir"))
If sDir <> "" Then
If CheckValidDir(Server.Mappath(sUploadDir & sDir)) = True Then
sCurrDir = sUploadDir & sDir & "/"
Else
sDir = ""
End If
End If
End Function
Function CheckValidDir(s_Dir)
CheckValidDir = Directory.Exists(s_Dir)
End Function
</script>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -