luxu001207

用户操作

[留言] [发消息] [加为好友]

订阅我的博客

[编辑]luxu001207的公告

我本懒人一个，基本上很少写博客...

[编辑]文章分类

[编辑]小说搜索

Ccdodo小说搜索引擎 (RSS)

存档

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <meta name="Description" content="Pgsky JavaScriptLab" /> <meta name="Keywords" content="Pgsky,JavaScript" /> <meta name="Robots" content="All" /> <title>JavaScriptLab-3 BOM</title> <mce:style type="text/css"></mce:style><style type="text/css" mce_bogus="1">body{margin-left:0px;margin-top:10px;margin-right:0px;margin-bottom:10px;} #div{margin-left:auto;margin-right:auto;width:96%;} #pbody{border:#88cee9 1px solid;padding:15px;} li{line-height:25px;list-style-type:decimal;} span{font-weight:bolder;}</style></head> <body> <div id="div"> <div id="pbody"> <% Function totalsize(size) If size<1024 Then totalsize=size&" Bytes" Elseif size<1048576 Then totalsize=Round((size/1024),2)&" KB" Else totalsize=Round((size/1024/1024),2)&" MB" End If End Function '// Sub ListFolderContents(path) dim fs, folder, file, item, url set fs = CreateObject("Scripting.FileSystemObject") Set folder = fs.GetFolder(path) Response.Write("<ul>" & vbCrLf) Response.Write("<li><span>" & folder.Name & "</span> - " & folder.Files.Count & " 个文件, ") If folder.SubFolders.Count > 0 Then Response.Write(folder.SubFolders.Count & " 个目录, ") End If Response.Write(totalsize(folder.Size) & " "& vbCrLf) Response.Write("<ul>" & vbCrLf) For Each item in folder.SubFolders ListFolderContents(item.Path) next For Each item in folder.Files url = MapURL(item.path) Response.Write("<li><a href=""" & url & """ target=""_blank"">" & item.Name & "</a> " _ & " <a href=""?path=" & item.Name & """>删除此文件</a>"_ & totalsize(item.Size) & "<br/>" _ & " 创建时间：" & item.DateCreated _ & " 最后修改：" & item.DateLastModified _ & "</li>" & vbCrLf) next Response.Write("</ul>" & vbCrLf) Response.Write("</li>" & vbCrLf) Response.Write("</ul>" & vbCrLf) End Sub '// Function MapURL(path) Dim rootPath, url rootPath = Server.MapPath("/") url = Right(path, Len(path) - Len(rootPath)) MapURL = Replace(url, "\", "/") End Function '// Sub delFolder(path) Dim fso,strRubbishFile path = Server.MapPath(path) Set fso = Server.CreateObject("Scripting.FileSystemObject") If fso.FolderExists(path) Then fso.DeleteFolder(path) End If End Sub '// Sub delFile(FilePath,path) Dim fso,strRubbishFile path = Server.MapPath(FilePath&path) Set fso = Server.CreateObject("Scripting.FileSystemObject") If fso.FileExists(path) Then'判断是否有这文件 fso.DeleteFile(path) End If End Sub Dim Dir,Path Dir = "/" '//修改这行的路径，想列哪个目录就改成哪个目录的路径 Path = Request.QueryString("path") If Path<>"" and Path<>"FSO.asp" Then call delFile(Dir,Path) Response.Redirect(Request.ServerVariables("PATH_INFO")) End If 'if Path<>"" then Response.Write(Path):Response.End() Call ListFolderContents(Server.MapPath(Dir)) %> </div> </div> </body> </html>

发表于 @ 2009年01月22日　23:21:00 | 评论( loading... ) | 编辑| 举报| 收藏