利用fso在线编辑全站文件-yuhuohu-ChinaUnix博客

Solaris.黄雨火狐.Scna.Sunhuangyu.blog.chinaunix.net

首页　| 　博文目录　| 　关于我

yuhuohu

博客访问： 3855394
博文数量： 421
博客积分： 685
博客等级：上将
技术积分： 3670
用户组：普通用户
注册时间： 2010-02-18 14:20

文章分类

全部博文（421）

传世名曲（1）
主机存储（23）

产品大全（10）

iscsi（1）

存储知识（5）

cluster（0）

硬件技术（6）
工程实施（5）
操作系统（140）

SUN Cluster（1）

redhat（12）

ubuntu（2）

SCSA（11）

MultiBoot（8）

SUN认证（26）

Linux（8）

IBM-AIX（2）

HP-UX（2）

windows（25）

Solaris（28）
杂志刊载（0）
??国故事集（28）

丑恶嘴脸（1）
国学经典（4）

道家经典（1）

儒家经典（1）

论语学堂（2）
一句话（20）
企业网管（2）
网络技术（15）

网络安全（3）

路由交换（5）
虚拟技术（4）
数据仓库（2）
程序设计（37）

SEO（9）

shell（18）

网站建设（8）
电信技术（9）

7号信令（8）
心情随笔（118）

圣者无敌（5）

人生感悟（20）

转转精品（10）

人伦之道（14）

纵横四海（7）

投资理财（3）

影音文游（47）
未分配的博文（13）

文章存档

2012年（5）

2011年（52）

2010年（83）

2009年（67）

2008年（65）

2007年（149）

我的朋友

相关博文

利用fso在线编辑全站文件

分类：系统运维

2010-11-25 12:20:46

edit.rar

源码如下：

<%@ Language=VBscript %>
<%
Response.Buffer=true
On Error Resume Next
Server.ScriptTimeOut = 1000
Response.Expires=0
Dim StartTime,IsReplace
IsReplace = true '是否过滤编辑时文件的标记，如不过滤遇到有

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

FSO在线编辑——阿赛特别版

<% 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
%>

阅读(3107) | 评论(0) | 转发(0) |

上一篇：惊闻朝鲜炮轰韩国

下一篇：华为（非H3Com）中端交换机配置手册

给主人留下些什么吧！~~

感谢所有关心和支持过ChinaUnix的朋友们

16024965号-6