FSO在线编辑

<%@ Language=VBscript %>
<%
Response.Buffer=true
On Error Resume Next
Server.ScriptTimeOut = 1000
Response.Expires=0
Dim StartTime,IsReplace
IsReplace = true '是否过滤编辑时文件的标记，如不过滤遇到有标记的文件时编辑有显示不完全的现象<br/>StatrTime = Timer()<br/>%><br/><%<br/>'****************************************<br/>'函数定义部分开始<br/>'****************************************<br/><br/>'*******************************************<br/>'过程作用：判断服务器是否支持FSO<br/>'*******************************************<br/>Sub IsErr()<br/>If Err = -2147221005 Then<br/>   Response.write "这台服务器不支持FSO,故本程序无法运行"<br/>   Response.end<br/>End If<br/>End Sub<br/>'*******************************************<br/>'函数作用：取得文件的后缀名<br/>'*******************************************<br/>Function UpDir(ByVal D)<br/>Dim UDir<br/>If Len(D) = 0 then Exit Function<br/>UDir=Left(D,InStrRev(D,"\")-1)<br/>UpDir=UDir<br/>End Function<br/>'*******************************************<br/>'函数作用：取得当前页的URL，<br/>'     为文件添加正确的链接<br/>'*******************************************<br/>Function FileUrl(url,D)<br/>Dim PageUrl,PUrl<br/>PageUrl="<a href="http://" target="_blank" rel="external">http://</a>"& Request.ServerVariables("SERVER_NAME")<br/>PUrl=Left(Request.ServerVariables("URL"),InStrRev(Request.ServerVariables("Url"),"/"))<br/>PUrl=Left(Request.ServerVariables("URL"),InStrRev(Request.ServerVariables("Url"),"/"))<br/>PageUrl=PageUrl & Purl & Mid(D,2,Len(D)) & "/" & url<br/>FileUrl=PageUrl<br/>End Function<br/>'*******************************************<br/>'函数作用：格式化文件的大小<br/>'*******************************************<br/>Function GetFileSize(size)<br/>Dim FileSize<br/>FileSize=size / 1024<br/>FileSize=FormatNumber(FileSize,2)<br/>If FileSize < 1024 and FileSize > 1 then<br/>   GetFileSize="<font color=red>"& FileSize & "</font> KB"<br/>ElseIf FileSize >1024 then<br/>   GetFileSize="<font color=red>"& FormatNumber(FileSize / 1024,2) & "</font> MB"<br/>Else<br/>   GetFileSize="<font color=red>"& Size & "</font> Bytes"<br/>End If<br/>End Function<br/>'*******************************************<br/>'函数作用：取得文件的后缀名<br/>'*******************************************<br/>Function GetExtensionName(name)<br/>Dim FileName<br/>FileName=Split(name,".")<br/>GetExtensionName=FileName(Ubound(FileName))<br/>End Function<br/>'*******************************************<br/>'函数作用：返回文件类型<br/>'*******************************************<br/>Function GetFileIcon(name)<br/>Dim FileName,Icon<br/>FileName=Lcase(GetExtensionName(name))<br/>Select Case FileName<br/>   Case "asp"<br/>    Icon = "asp"<br/>   Case "bmp"<br/>    Icon = "bmp"<br/>   Case "doc"<br/>   Icon = "doc"<br/>   Case "exe"<br/>    Icon = "exe"<br/>   Case "gif"<br/>    Icon = "gif"<br/>   Case "jpg"<br/>    Icon = "jpg"<br/>   Case "chm"<br/>    Icon = "chm"<br/>   Case "htm","html"<br/>    Icon = "htm"<br/>   Case "log"<br/>    Icon = "log"<br/>   Case "mdb"<br/>   Icon = "mdb"<br/>   Case "swf"<br/>    Icon = "swf"<br/>   Case "txt"<br/>   Icon = "txt"<br/>   Case "wav"<br/>    Icon = "wav"<br/>   Case "xls"<br/>    Icon = "xls"<br/>   Case "rar","zip"<br/>   Icon = "zip"<br/>   Case "css"<br/>   Icon = "css"<br/>   Case Else<br/>    Icon = "none"<br/>End Select<br/>GetFileIcon=Icon<br/>End Function<br/>'*******************************************<br/>'过程作用：删除选定的文件或文件夹<br/>'*******************************************<br/>Sub DelAll()<br/>Dim FolderId,FileId,ThisDir,FileNum,FolderNum,FilePath,FolderPath<br/>FolderId = Split(Request.Form("FolderId"),",")<br/>FileId = Split(Request.Form("FileId"),",")<br/>ThisDir = trim(Request.Form("ThisDir"))<br/>FileNum=0<br/>FolderNum=0<br/>If Ubound(FolderId) <> -1 then   '删除文件夹<br/>   For i = 0 to Ubound(FolderId)<br/>    FolderPath = Server.MapPath(".") & ThisDir & "\" & trim(FolderId(i))<br/>    If Fso.FolderExists(FolderPath) then<br/>     Fso.DeleteFolder FolderPath,true<br/>     FolderNum = FolderNum + 1<br/>    End If<br/>   Next<br/>End If<br/>If Ubound(FileId) <> -1 then   '删除文件<br/>   For j = 0 to Ubound(FileId)<br/>    FilePath = Server.MapPath(".") & ThisDir & "\" & trim(FileId(j))<br/>    If Fso.FileExists(FilePath) then<br/>     Fso.DeleteFile FilePath,true<br/>     FileNum = FileNum + 1<br/>    End If<br/>   Next<br/>End If<br/>Response.write "<script>alert('\n恭喜,删除成功\n\n"& FolderNum &" 个文件夹被删除\n"& FileNum &" 个文件被删除');window.location.href=('"& Replace(Request.ServerVariables("HTTP_REFERER"),"\","\\") &"')</script>"<br/>End Sub<br/>'*******************************************<br/>'过程作用：使选定的文件或文件夹改名<br/>'*******************************************<br/>Sub Rname()<br/>Dim ThisDir,FolderName,NewName,OldName<br/>ThisDir = Trim(Request.Form("ThisDir"))<br/>FolderName = Trim(Request.Form("FolderId"))<br/>FileName = Trim(Request.Form("FileId"))<br/>NewName = Trim(Request.QueryString("NewName"))<br/>If len(FolderName) <> 0 then '文件夹改名<br/>   NewName1 = Server.MapPath(".") & ThisDir & "\" & NewName<br/>   OldName = Server.MapPath(".") & ThisDir & "\" & FolderName<br/>   If not Fso.FolderExists(NewName1) then<br/>    Fso.MoveFolder OldName,NewName1<br/>    Response.write "<script>alert('【 "& FolderName &" 】文件夹已经成功改名为【 "& NewName &" 】');window.location.href=('"& Replace(Request.ServerVariables("HTTP_REFERER"),"\","\\") &"')</script>"<br/>   Else<br/>    Response.write "<script>alert('有同名文件夹，请换个文件夹名');window.location.href=('"& Replace(Request.ServerVariables("HTTP_REFERER"),"\","\\") &"')</script>"<br/>   End If<br/>End If<br/>If len(FileName) <> 0 then '文件改名<br/>   NewName1 = Server.MapPath(".") & ThisDir & "\" & NewName<br/>   OldName = Server.MapPath(".") & ThisDir & "\" & FileName<br/>   If not Fso.FileExists(NewName1) then<br/>    Fso.MoveFile OldName,NewName1<br/>    Response.write "<script>alert('【 "& FileName &" 】文件已经成功改名【 "& NewName &" 】');window.location.href=('"& Replace(Request.ServerVariables("HTTP_REFERER"),"\","\\") &"')</script>"<br/>   Else<br/>    Response.write "<script>alert('有同名文件，请换个文件名');window.location.href=('"& Replace(Request.ServerVariables("HTTP_REFERER"),"\","\\") &"')</script>"<br/>   End If<br/>End If <br/>End Sub<br/>'*******************************************<br/>'过程作用：新建文件<br/>'*******************************************<br/>Sub NewFile()<br/>Dim NewFile,NewFilePath<br/>NewFilePath = Trim(Request.Form("ThisDir"))<br/>NewFile = Trim(Request.Form("NewFileName"))<br/>NewFilePath = Server.MapPath(".") & NewFilePath & "\" & NewFile<br/>If not Fso.FileExists(NewFilePath) and not Fso.FolderExists(NewFilePath) then<br/>   Set FsoFile = Fso.CreateTextFile(NewFilePath)<br/>    FsoFile.Writeline<br/>   FsoFile.close<br/>   Set FsoFile = nothing<br/>   Response.write "<script>alert('建立文件成功');window.location.href=('"& Replace(Request.ServerVariables("HTTP_REFERER"),"\","\\") &"')</script>"<br/>Else<br/>   Response.write "<script>alert('有同名文件，请换个文件名');window.location.href=('"& Replace(Request.ServerVariables("HTTP_REFERER"),"\","\\") &"')</script>"<br/>End if<br/>End Sub<br/>'*******************************************<br/>'过程作用：新建文件夹<br/>'*******************************************<br/>Sub NewFolder()<br/>Dim NewFolder,NewFolderPath<br/>NewFolderPath = Trim(Request.Form("ThisDir"))<br/>NewFolder = Trim(Request.Form("NewFolderName"))<br/>NewFolderPath = Server.MapPath(".") & NewFolderPath & "\" & NewFolder<br/>If not Fso.FolderExists(NewFolderPath) then<br/>   Fso.CreateFolder(NewFolderPath)<br/>   Response.write "<script>alert('建立文件夹成功');window.location.href=('"& Replace(Request.ServerVariables("HTTP_REFERER"),"\","\\") &"')</script>"<br/>Else<br/>   Response.write "<script>alert('有同名文件夹，请换个文件夹名');window.location.href=('"& Replace(Request.ServerVariables("HTTP_REFERER"),"\","\\") &"')</script>"<br/>End if<br/>End Sub<br/>'*******************************************<br/>'过程作用：css 样式<br/>'*******************************************<br/>Sub Css()<br/>%><br/><style><br/>.fonts{font-size:9pt;line-height:25px}<br/>.button{padding:2px;<br/>   height:20px;<br/>   background-color:#FF9900;<br/>   color:#ffffff;<br/>   border:1px solid #333333;<br/>   font-size:12px;<br/>   font-family: "宋体";<br/>}<br/>.TextBox {<br/>border-top-width: 1px;<br/>border-right-width: 1px;<br/>border-bottom-width: 1px;<br/>border-left-width: 1px;<br/>border-top-style: solid;<br/>border-right-style: solid;<br/>border-bottom-style: solid;<br/>border-left-style: solid;<br/>border-top-color: #666666;<br/>border-right-color: #CCCCCC;<br/>border-bottom-color: #CCCCCC;<br/>border-left-color: #666666;<br/>padding: 2px;<br/>height: 300px;<br/>font-size:12px;<br/>font-family: "宋体";<br/><br/>}<br/>.InputBox {<br/>border-top-width:1px;<br/>border-left-width:1px;<br/>border-right-width:1px;<br/>border-bottom-width:1px;<br/>border-top-color:#000000;<br/>border-left-color:#000000;<br/>border-bottom-color:#000000;<br/>border-right-color:#000000;<br/>padding:2px;<br/>height:20px;<br/><br/>}<br/>Input, Select, TextArea {<br/>font-family: "宋体";<br/>font-size: 12px;<br/>text-decoration: none;<br/>}<br/>a:link { color: #000000; text-decoration: none}<br/>a:visited { color: #000000; text-decoration: none}<br/>a:hover { color: #FF0000; text-decoration: underline}<br/></style><br/><%<br/>End Sub<br/>'*******************************************<br/>'过程作用：编辑文件<br/>'*******************************************<br/>Sub Edit()<br/>Dim FilePath,FileName,action<br/>Set Fso = Server.CreateObject("Scripting.FileSystemObject")<br/>IsErr<br/>action=Trim(Request.QueryString("action"))<br/>If action = ("Save") then '保存文件<br/>   Dim FileSave<br/>   FilePath = trim(Request.QueryString("FilePath"))<br/>   FileAll = trim(Request.Form("FileAll"))<br/>   If IsReplace then FileAll = Replace(FileAll,"\\textarea\\","textarea")<br/>   If Fso.FileExists(FilePath) then<br/>    Set FileSave = Fso.OpenTextFile(FilePath,2)<br/>     FileSave.Write(FileAll)<br/>    FileSave.Close<br/>    Response.write "<script>if(confirm('文件已经保存，是否关闭本页')){window.close();}else{history.back();}</script>"<br/>   Else<br/>    Response.write "<script>alert('发生错误，文件已经被删除或者损坏！');window.close()</script>"<br/>   End If<br/>ElseIf action = ("Edit") then '读取文件<br/>   Dim FileAll<br/>   FilePath = Trim(Request.Form("ThisDir"))<br/>   FileName = Trim(Request.Form("FileId"))<br/>   FilePath1 = Server.MapPath(".") & FilePath & "\" & FileName<br/>   If Fso.FileExists(FilePath1) then<br/>    Set FileOpen = Fso.OpenTextFile (FilePath1,1)<br/>     FileAll = FileOpen.ReadAll<br/>    FileOpen.close<br/>   If IsReplace then FileAll = Replace(FileAll,"textarea","\\textarea\\")<br/>   Else<br/>    Response.write "<script>alert('发生错误，文件已经被删除或者损坏！');window.close()</script>"<br/>   End If<br/>%><br/><html><br/><head><br/><title>FSO在线编辑——阿赛特别版</title><br/><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><br/><% Call Css %><br/><script language=javascript><br/>function Check()<br/>{<br/>if(confirm("确定要保存文件么？\n此操作不可恢复！")){<br/>   return true;<br/>   }<br/>else{<br/>   return false;<br/>}<br/>}<br/></script><br/></head><br/><br/><body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0"><br/><form name="form" method="post" action="?action=Save&FilePath=<%=Server.MapPath(".") & FilePath & "\" & Filename %>" onSubMit="return Check()"><br/><table width="98%" border="0" cellspacing="0" cellpadding="0" align="center" class="fonts"><br/><tr> <br/><td></td><br/></tr><br/><tr> <br/><td>系统主目录：<a href=?action=Open&Dir= title=返回到系统主目录><font color=FF6600><b><%=Server.MapPath(".")%></b></font></a></td><br/></tr><br/><tr> <br/><td bgcolor="B7CECD" height="1"></td><br/></tr><br/><tr> <br/><td height="20" valign="bottom">  当前目录：<%=Server.MapPath(".") & FilePath %></td><br/></tr><br/><tr> <br/><td bgcolor="B7CECD" height="1"></td><br/></tr><br/><tr><br/><td height="30" valign="middle"> 文件名: <font color=red><b><%=FileName%></b></font> <br/><select name="select" onChange="FileAll.style.fontSize=this.options[this.options.selectedIndex].value"><br/><option selected value="12px">字体大小</option><br/><option value="12px">12px</option><br/><option value="14px">14px</option><br/><option value="16px">16px</option><br/></select><br/><select name="select2" onChange="FileAll.style.color=this.options[selectedIndex].value"><br/><option selected value="#000000">颜色</option><br/><option value="#666666">灰色</option><br/><option value="#ff0000">红色</option><br/><option value="#087100">绿色</option><br/></select><br/>     </td><br/></tr><br/><tr><br/><td bgcolor="B7CECD" height="1" id="a11"></td><br/></tr><br/><tr><br/><td><table cellpadding=3 cellspac=0 class=fonts><tr><td><br/><textarea id="FileAll" name="FileAll" cols="100" rows="20" class=textbox style="word-break: break-all; width:100%; height:380px;"><%=FileAll%>












<%
End If
Set Fso = nothing
End Sub
'****************************************
'函数定义部分结束
'****************************************
%>
<%
Dim Fso,FsoFile,FileType,FileSize,FileTime,Path
Dim Dir
action=Trim(Request.QueryString("action"))
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
IsErr
If action = "Del" then
   Call DelAll
ElseIf action = "NewFile" then
   Call NewFile
ElseIf action = "NewFolder" then
   Call NewFolder
ElseIf action = "Rname" then
   Call Rname
ElseIf action = "Edit" then
   Call Edit
ElseIf action = "Save" then
   Call Edit
Else
   Dir=Trim(Request.QueryString("Dir"))
   Path = Server.MapPath(".") & Dir
   Set FsoFile = Fso.GetFolder(Server.MapPath("."))
   FsoFileSize = FsoFile.size '空间大小统计
   Set FsoFile = nothing
   Set FsoFile = Fso.GetFolder(Path)
%>




<% Call Css %>





















  

系统主目录：<%=Server.MapPath(".")%>   空间占用：<%=GetFileSize(FsoFileSize)%>

>返回到上一目录  当前目录：<%=Server.MapPath(".") & Dir %>  占用空间：<%=GetFileSize(FsoFile.size)%>  其中包含 <%=FsoFile.SubFolders.count%> 个文件夹； <%=FsoFile.Files.count%> 个文件

新建文件夹：       新建文件：

<%    For Each DirFolder in FsoFile.SubFolders    FolderName=DirFolder.name    FolderSize=GetFileSize(DirFolder.size)    FolderTime=DirFolder.DateLastModified %>                <% Next %> <%    For Each DirFiles in FsoFile.Files    FileName=DirFiles.name    FileType=GetFileIcon(FileName)    FileSize=GetFileSize(DirFiles.size)    FileTime=DirFiles.DateLastModified %>                <% Next %> 　  文件/文件夹名 类型 文件大小 最后修改时间          \<%=FolderName%>><%=FolderName%> 文件夹 <%=FolderSize%> <%=FolderTime%>           target=_blank><%=FileName%> <%=FileType%>文件 <%=FileSize%> <%=FileTime%>

程序制作：阿赛工作室  程序运行时间：<%=FormatNumber((Timer()-StatrTime)*1000,3) %> 毫秒

<%
End If
Set FsoFile = nothing
Set Fso = nothing
%>

上一篇: 简单的ASP在线文件管理+上传源码
下一篇: asp循环语句
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: