www.gusucode.com > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书) > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书)\ASP001中学网站设计与实现\zxweb\admin\WebEdit\Admin_UploadFile1.asp
<% '☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆ '★ ★ '☆ eWebEditor - eWebSoft在线文本编辑器 ☆ '★ ★ '☆ 版权所有: eWebSoft.com ☆ '★ ★ '☆ 程序制作: eWeb开发团队 ☆ '★ email:webmaster@webasp.net ★ '☆ QQ:589808 ☆ '★ ★ '☆ 相关网址: [产品介绍]http://www.eWebSoft.com/Product/eWebEditor/ ☆ '★ [支持论坛]http://bbs.eWebSoft.com/ ★ '☆ ☆ '★ 主页地址: http://www.eWebSoft.com/ eWebSoft团队及产品 ★ '☆ http://www.webasp.net/ WEB技术及应用资源网站 ☆ '★ http://bbs.webasp.net/ WEB技术交流论坛 ★ '★ ★ '☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆ %> <% Dim sAction sAction = UCase(Trim(Request.QueryString("action"))) Response.Write "<link rel='stylesheet' type='text/css' href='admin/style.css'>" Call Content() Sub Content() If IsObjInstalled("Scripting.FileSystemObject") = False Then Response.Write "此功能要求服务器支持文件系统对象(FSO),而你当前的服务器不支持!" Exit Sub End If Select Case sAction Case "DELALL" ' 删除所有 Call DoDelAll() Case "DEL" ' 删除指定 Call DoDel() End Select ' 显示文件列表 Call ShowList() End Sub ' UploadFile目录下的所有文件列表 Sub ShowList() Response.Write "<table align=center width=588 border=0 cellpadding=3 cellspacing=0><tr><td>" Response.Write "<p align=left class=highlight2><b>以下为由本编辑上传的文件,即UploadFile目录下的所有文件列表:</b></p>" Response.Write "</td></tr></table>" Response.Write "<table align=center width=588 border=0 cellpadding=0 cellspacing=0 class=list1>" & _ "<form action='?action=del' method=post name=myform>" & _ "<tr align=center>" & _ "<th width=50>类型</th>" & _ "<th width=140>文件地址</th>" & _ "<th width=100>大小</th>" & _ "<th width=130>最后访问</th>" & _ "<th width=130>上传日期</th>" & _ "<th width=30>删除</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 oFSO, oUploadFolder, oUploadFiles, oUploadFile, sFileName Set oFSO = Server.CreateObject("Scripting.FileSystemObject") Set oUploadFolder = oFSO.GetFolder(Server.MapPath("uploadfile\")) Set oUploadFiles = oUploadFolder.Files nFileNum = oUploadFiles.Count nPageNum = Int(nFileNum / nPageSize) If nFileNum Mod nPageSize > 0 Then nPageNum = nPageNum+1 End If If nCurrPage > nPageNum Then nCurrPage = 1 end If Dim i i = 0 For Each oUploadFile In oUploadFiles i = i + 1 If i > (nCurrPage - 1) * nPageSize And i <= nCurrPage * nPageSize Then sFileName = oUploadFile.Name Response.Write "<tr align=center>" & _ "<td>" & FileName2Pic(sFileName) & "</td>" & _ "<td align=left><a href=""uploadfile/" & sFileName & """ target=_blank>" & sFileName & "</a></td>" & _ "<td>" & oUploadFile.size & " B </td>" & _ "<td>" & oUploadFile.datelastaccessed & "</td>" & _ "<td>" & oUploadFile.datecreated & "</td>" & _ "<td><input type=checkbox name=delfilename value=""" & sFileName & """></td></tr>" Elseif i > nCurrPage * nPageSize Then Exit For End If Next Set oUploadFolder = Nothing Set oUploadFiles = Nothing If nFileNum <= 0 Then Response.Write "<tr><td colspan=6>UploadFile目录下现在还没有文件!</td></tr>" End If Response.Write "</table>" If nFileNum > 0 Then ' 分页 Response.Write "<table align=center width=588 border=0 cellpadding=3 cellspacing=0><tr><td>" If nCurrPage > 1 Then Response.Write "<a href='?page=1'>首页</a> <a href='?page="& nCurrPage - 1 & "'>上一页</a> " Else Response.Write "首页 上一页 " End If If nCurrPage < i / nPageSize Then Response.Write "<a href='?page=" & nCurrPage + 1 & "'>下一页</a> <a href='?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></tr></table>" End If Response.Write "<table align=center width=588 border=0 cellpadding=3 cellspacing=0><tr><td>" Response.Write "<p align=right><input type=submit name=b value=' 删除选定的文件 '> <input type=button name=b1 value=' 清空所有文件 ' onclick=""javascript:if (confirm('你确定要清空所有文件吗?')) {location.href='admin_uploadfile1.asp?action=delall';}""></p></form>" Response.Write "</td></tr></table>" End Sub ' 删除指定的文件 Sub DoDel() Dim sFileName, oFSO, sMapFileName Set oFSO = Server.CreateObject("Scripting.FileSystemObject") For Each sFileName In Request.Form("delfilename") sMapFileName = Server.MapPath("uploadfile/" & sFileName) If oFSO.FileExists(sMapFileName) Then oFSO.DeleteFile(sMapFileName) End If Next Set oFSO = Nothing End Sub ' 删除所有的文件 Sub DoDelAll() On Error Resume Next Dim sFileName, oFSO, sMapFileName, oFolder, oFiles, oFile Set oFSO = Server.CreateObject("Scripting.FileSystemObject") Set oFolder = oFSO.GetFolder(Server.MapPath("uploadfile\")) Set oFiles = oFolder.Files For Each oFile In oFiles sFileName = oFile.Name sMapFileName = Server.MapPath("uploadfile/" & sFileName) If oFSO.FileExists(sMapFileName) Then oFSO.DeleteFile(sMapFileName) End If Next Set oFile = Nothing Set oFolder = Nothing Set oFSO = Nothing End Sub ' 检测服务器是否支持某一对象 Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 End Function ' 按文件名取图 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", "JPG", "PNG", "BMP" sPicName = "pic.gif" Case "ASP", "JSP", "JS", "PHP", "PHP3", "ASPX" sPicName = "code.gif" Case "HTM", "HTML", "SHTML" sPicName = "htm.gif" Case "ZIP", "RAR" sPicName = "zip.gif" Case "EXE" sPicName = "exe.gif" Case "AVI", "MPG", "MPEG", "ASF" sPicName = "mp.gif" Case "RA", "RM" sPicName = "rm.gif" Case "MID", "WAV", "MP3", "MIDI" sPicName = "audio.gif" Case "XLS" sPicName = "xls.gif" Case "PPT", "PPS" sPicName = "ppt.gif" Case Else sPicName = "unknow.gif" End Select FileName2Pic = "<img border=0 src='sysimage/file/" & sPicName & "'>" End Function %>