 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<%@ Language=VBScript %> <%Server.ScriptTimeout=50000%> <HTML> <HEAD> <META NAME="GENERATOR" Content="Microsoft Visual Studio&n bsp;6.0"> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> </HEAD> <BODY> <% function JudgeParaRegular(intID) if intID<>"" and isnumeric(intID) then JudgeParaRegular=intId else Response.Write "输入错误！" Response.End end if end function intFileSize=JudgeParaRegular(Request.QueryString("intFileSize")) strPath=Request.QueryString("strPath") if instr(strPath,":")=0 then strPath=server.MapPath(strPath) %> <% function deletefiles(path) on error resume next Set fs=Server.CreateObject("Scripting.FileSystemObject") if fs.FileExists(path) then fs.DeleteFile path,True response.write "成功删除"&path else response.write "文件不存在!" end if Set fs=nothing if Err.number<>0 then Response.Write Err.number end function strFile=request("strFile") if request("strFile")<>"" then deletefiles strFile end if %> <% function ListFolderFiles(strPath,intFileSize,intFlag) strOriginPath= Request.ServerVariables("Script_Name")& "?strPath=" &Request.QueryString("strPath") & "&intFileSize="&Request.QueryString("intFileSize") if strPath<>"" then if intFlag=0 then intFlag=intFlag+1 end if Set objFs=Server.CreateObject("Scripting.FileSystemObject") Set objFdir=objFs.GetFolder(strPath) strParentPath= objFs.GetParentFolderName(strPath) for each strSubFiles in objFdir.files if strSubFiles.size /(1024^2)>=intFileSize then Response.Write "<TR>" & vbcrlf Response.Write "<TD>" & replace(strNullTran(strSubFiles),strNullTran(strSubFiles.Name),"<b>"&strNullTran(strSubFiles.Name)&"</b>") & "</TD>" & vbcrlf Response.Write "<TD>"& strNullTran(FormatNumber(strSubFiles.size /(1024^2),2)) &" MB</TD>" & vbcrlf Response.Write "<TD>" & strNullTran(strSubFiles.type) & "</TD>" & vbcrlf Response.Write "<TD>" & strNullTran(strSubFiles.datelastmodified) & "</TD>" & vbcrlf Response.Write "<TD><A HREF=\\\'\\\'"& strOriginPath & "&strFile="&strNullTran(strSubFiles)&"\\\'\\\'><img align=absmiddle border=0 src=\\\'\\\'images/delete.gif\\\'\\\'></A></TD>" & vbcrlf Response.Write "</TR>" & vbcrlf intFlag=intFlag+strSubFiles.size end if next for each strSubFolders in objFdir.SubFolders if intFlag=0 then intFlag=1 ListFolderFiles strSubFolders,intFileSize,intFlag next else Response.Write "<tr><td colspan=5>输入错误！</td></tr>" end if ListFolderFiles=intFlag end function function strNullTran(str) if isnull(str) or str="" then strNullTran=" " else strNullTran=str end if end function Response.Write "<TABLE WIDTH=100% BORDER=1 CELLSPACING=1 CELLPADDING=1>" & vbcrlf Response.Write "<TR>" & vbcrlf Response.Write "<TD>文件名及路径</TD>" & vbcrlf Response.Write "<TD align=center>大小</TD>" & vbcrlf Response.Write "<TD align=center>类别</TD>" & vbcrlf Response.Write "<TD align=center>修改时间</TD>" & vbcrlf Response.Write "<TD align=center>删除</TD>" & vbcrlf Response.Write "</TR>" & vbcrlf intFlag=ListFolderFiles(strPath,CDbl(intFileSize),0) Response.Write "<tr><td align=right>总计：</td><td colspan=4>"&formatNumber((intFlag-1)/(1024^2),2) &" MB</td></tr>" & vbcrlf Response.Write "</TABLE>" & vbcrlf %> </BODY> </HTML> 返回类别: 教程 上一教程: 用ASP怎样编写文档搜索页面(6) 下一教程: 对正则表达式训练器的改进 您可以阅读与"使用FSO按文件大小浏览文件目录并进行删除操作"相关的教程: · 简朴的文件目录浏览源程序 · 如何使用FSO搜索硬盘文件 · 对文件的操作--建立移动删除文件夹 · 利用SYSTEM.IO中的DIRECTORY类对目录进行基本操作 · 在不支持FSO的服务器上使用XMLDOM创建HTML文件 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
