filemanager.asp

来自「燃点真情的WAP整站程序,WAP建站系统,,更多WAP源码再登陆http://x」· ASP 代码 · 共 92 行

<!--#Include File="fm_include.asp"--> 
<% 
Dim fs, sAction, sFile, sPath, sFolder, sFileType, scriptname, dbfile, ReadStream, WriteStream, WriteFile, fileobject, filecollection, file, startpath, lineid, bgcolor, bgcolor_on, bgcolor_off, foldercollection, folder, errornum, errorcode
errornum = 0
errorcode = ""
scriptname=Request.ServerVariables("Script_Name")
sAction = Request.Querystring("action")
sFileType = Request.Querystring("filetype")
If Request.Querystring("path") = "" Then
 sPath = "/upfile"''the root folder for this sytem.
Else
 sPath = Request.Querystring("path")
End If
If sPath="/" Then
 If Request.Querystring("file") = "" Then
  sFile = sPath & Request.Form("file")
 Else
  sFile = sPath & Request.Querystring("file")
 End If 
 If Request.Querystring("folder") = "" Then
  sFolder = sPath & Request.Form("folder")
 Else
  sFolder = sPath & Request.Querystring("folder")
 End If
Else
 If Request.Querystring("file") = "" Then
  sFile = sPath & "/" & Request.Form("file")
 Else
  sFile = sPath & "/" & Request.Querystring("file")
 End If
 If Request.Querystring("folder") = "" Then
  sFolder = sPath & "/" & Request.Form("folder")
 Else
  sFolder = sPath & "/" & Request.Querystring("folder")
 End If
End If
session("foldername")=spath
' Make sure that no errors have occurred and no illegal actions have been taken before doing our stuff... 
If errornum < 1 Then
  Set fs = Server.CreateObject("Scripting.FileSystemObject")
  Select Case sAction
    Case "editfile"
      Select Case sFileType
        Case "htm", "asp", "txt", "inc", "html", "shtml", "shtm", "js","css","wml"
          EditFile
        Case "mdb", "dat"
          EditDb
        Case else
          FileTypeUnsupported
      End Select

    Case "savefile"
      SaveFile

    Case "viewfolder"
      Showlist

    Case "newfile"
      CreateFile

    Case "newfolder"
      CreateFolder

    Case "deletefile"
      DeleteFile

    Case "deletefolder"
      DeleteFolder
	
	Case "CreateNewFolder"
	  CreateNewFolder
	
	Case "UploadFiles"
		UploadFiles
		
	Case "RenameFolder"
		RenameFolder

	Case "RenameFile"
		RenameFile

    Case Else
      Showlist 
  End Select
  Set fs = Nothing
Else
  DisplayErrors
End If
%>