<%@LANGUAGE="VBSCRIPT" LCID="1033"%> <% Server.ScriptTimeout = 1800 Function NuevoFolder(Folder) Dim fso, f, fldr Set fso = CreateObject("Scripting.FileSystemObject") fldr = Server.Mappath(EsteFolder & "/" & Folder) If Not (fso.FolderExists(fldr)) Then Set f = fso.CreateFolder(fldr) NuevoFolder = """" & Folder & """ has been created successfully" Else NuevoFolder = "This folder already Existed" End If End Function Function Clave(EsteFolder) Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(Server.MapPath(EsteFolder & "/pass.pwd")) Then Set f = fso.OpenTextFile(Server.MapPath(EsteFolder & "/pass.pwd"), 1) '1 = For Reading Clave = Trim(LCase(f.ReadLine)) f.Close Else Clave = "" End If End Function Function Auth(EsteFolder,ClaveUsuario) Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(Server.MapPath(EsteFolder & "/pass.pwd")) Then Set f = fso.OpenTextFile(Server.MapPath(EsteFolder & "/pass.pwd"), 1) '1 = For Reading ClaveActual = Trim(LCase(f.ReadLine)) f.Close If ClaveActual = ClaveUsuario Then Session(EsteFolder&"-Auth") = "ok" End If End If End Function Function PonerClave(EsteFolder, NuevaClave) Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.CreateTextFile(Server.MapPath(EsteFolder & "/pass.pwd"), True) f.Write NuevaClave f.Close End Function Function QuitarClave(EsteFolder, ClaveAnterior) Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(Server.MapPath(EsteFolder & "/pass.pwd")) Then Set f = fso.OpenTextFile(Server.MapPath(EsteFolder & "/pass.pwd"), 1) '1 = For Reading ClaveActual = Trim(LCase(f.ReadLine)) f.Close If ClaveActual = ClaveAnterior Then fso.DeleteFile(Server.Mappath(EsteFolder & "/pass.pwd")), true Else QuitarClave = "Error" End If Else QuitarClave = "Error" End If End Function Function VerFolders(estefolder) Dim fso, f, f1, fc, s (1000) Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(Server.MapPath(estefolder)) Set fc = f.SubFolders cant = 0 For Each f1 in fc cant = cant + 1 s(cant) = f1.name Next Anterior = Left(EsteFolder,(InStrRev(EsteFolder,"/")-1)) resp = "" VerFolders = resp End Function Function VerArchivos(EsteFolder) Dim fso, f, f1, fc, s (4000,5), colores(2) Colores(1) = "#F8F8F8" Colores(2) = "#EEEEEE" Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(Server.MapPath(EsteFolder)) Set fc = f.Files cant = 0 For Each f1 in fc If f1.name <> "pass.pwd" Then cant = cant + 1 s(cant,1) = f1.name s(cant,2) = f1.DateLastModified s(cant,3) = f1.Size s(cant,4) = f1.Type End If Next resp = "" If CDBl(Cant) > 0 Then resp = resp & "" resp = resp & "" resp = resp & " " resp = resp & " " resp = resp & " " resp = resp & " " For i = 1 to CDbl(Cant) resp = resp & "" resp = resp & " " resp = resp & " " resp = resp & " " resp = resp & " " resp = resp & " " Next Else 'Si no hay archivos resp = resp & "" resp = resp & "" resp = resp & "" End If resp = resp & "
File NameDateSizeActions
"& s(i,1) &""& s(i,2) &""& s(i,3) &"[Download] [X]

There are no files in """& NombreFolder &"""

" resp = resp & "Click [Here] to delete this folder and all it's subfolders and eventual files." resp = resp & "
" VerArchivos = resp End Function Root = "/sapiens/copyroom/files" If EsteFolder = "" Then EsteFolder = Request.QueryString("ef") End If If EsteFolder = "" Then EsteFolder = Session("EsteFolder") End If If EsteFolder = "" Then EsteFolder = Root End If Session("EsteFolder") = EsteFolder TituloFolder = Replace(EsteFolder, Root, "", 1, -1, 1) If Len(TituloFolder) > 0 Then NombreFolder = Right(TituloFolder,Len(TituloFolder)-1) TituloFolder = "[ Current Folder: "& NombreFolder &". ]" End If If Trim(NombreFolder) = "" Then NombreFolder = "Root" End If Act = LCase(Trim(Request.QueryString("act"))) Select Case LCase(Trim(Act)) Case "auth" ClaveUsuario = LCase(Trim(Request.Form("password"))) Acceso = Auth(EsteFolder,ClaveUsuario) Case "chgfolder" EsteFolder = Request.Form("estefolder") Session("EsteFolder") = EsteFolder Response.Redirect("copyroom.asp") Case "setpass" NuevaClave = LCase(Trim(Request.Form("password"))) Call PonerClave (EsteFolder,NuevaClave) Case "rempass" ClaveAnterior = LCase(Trim(Request.Form("password"))) If QuitarClave (EsteFolder,ClaveAnterior) <> "" Then Response.Redirect("copyroom.asp?e=pwd") End If Case "upload" If Request.TotalBytes > 0 Then Set objUpload = New clsUpload For lngLoop = 0 to objUpload.Files.Count - 1 objUpload.Files.Item(lngLoop).Save Server.Mappath(EsteFolder) Next End If Response.Redirect("copyroom.asp") Case "newfolder" Folder = Request.Form("folder") Creado = NuevoFolder(folder) End Select e = Request.QueryString("e") %> Virtual Copy Room <%=TituloFolder%> <% 'function MM_popupMsg(msg) { //v1.0 ' alert(msg); '} %>
Close Session [ X ]
Available Folders [?]
<%= VerFolders(estefolder) %>
<% If Creado <> "" Then %> <%=Creado%> <% Creado = "" End If%>
 
Password Protection
<% If Clave(EsteFolder) = "" Then TipoFolder = "publico" %> <% Else TipoFolder = "privado" %> <% End If %>
  This folder is PUBLIC.
Type a password to restrict this folder.
  
  This folder is RESTRICTED
<% If e = "pwd" Then %> Error: Password Incorrect.
<%End If%> Type the password to remove the restriction.   
<% If (TipoFolder = "publico") Or (Session(EsteFolder&"-Auth") = "ok") Then%> <% Else %> <% End If %>
Files in Folder <%=Acceso%>
<%= VerArchivos(EsteFolder) %>
Upload Files
Please type the access password for folder "<%= NombreFolder%>".