Ayuda con codigo de ftp

[Julcar]

tengo este codigo:

Código asp:

<%@ Language=VBScript %>
<%
' FTP via ASP without using 3rd-party components
' Ben Meghreblian 15th Jan 2002
' benmeg at benmeg dot com / [url]http://benmeg.com[/url]
'
' This script assumes the file to be FTP'ed is in the same directory as this script.
' It should be obvious how to change this (*hint* change the lcd line)
' You may specify a wildcard in ftp_files_to_put (e.g. *.txt)
Dim objFSO, objTextFile, oScript, oScriptNet, oFileSys, oFile, strCMD, strTempFile, strCommandResult
Dim ftp_address, ftp_username, ftp_password, ftp_physical_path, ftp_files_to_put
 
' Edit these variables to match your specifications
ftp_address          = "ftp.server.com"
ftp_username         = "username"
ftp_password         = "password"
ftp_remote_directory = "subdirectory" ' Leave blank if uploading to root directory
ftp_files_to_put     = "file.txt"
 
On Error Resume Next
Set oScript = Server.CreateObject("WSCRIPT.SHELL")
Set oFileSys = Server.CreateObject("Scripting.FileSystemObject")
Set objFSO = CreateObject("Scripting.FileSystemObject")
' Build our ftp-commands file
Set objTextFile = objFSO.CreateTextFile(Server.MapPath("test.ftp"))
objTextFile.WriteLine "lcd " & Server.MapPath(".")
objTextFile.WriteLine "open " & ftp_address
objTextFile.WriteLine ftp_username
objTextFile.WriteLine ftp_password
 
' Check to see if we need to issue a 'cd' command
If ftp_remote_directory <> "" Then
   objTextFile.WriteLine "cd " & ftp_remote_directory
End If
 
objTextFile.WriteLine "prompt"
 
' If the file(s) is/are binary (i.e. .jpg, .mdb, etc..), uncomment the following line' objTextFile.WriteLine "binary"
' If there are multiple files to put, we need to use the command 'mput', instead of 'put'
If Instr(1, ftp_files_to_put, "*",1) Then
   objTextFile.WriteLine "mput " & ftp_files_to_put
Else
   objTextFile.WriteLine "put " & ftp_files_to_put
End If
objTextFile.WriteLine "bye"
objTextFile.Close
Set objTextFile = Nothing
' Use cmd.exe to run ftp.exe, parsing our newly created command file
strCMD = "ftp.exe -s:" & Server.MapPath("test.ftp")
strTempFile = "C:\" & oFileSys.GetTempName( )
' Pipe output from cmd.exe to a temporary file (Not :| Steve)
Call oScript.Run ("cmd.exe /c " & strCMD & " > " & strTempFile, 0, True) 
Set oFile = oFileSys.OpenTextFile (strTempFile, 1, False, 0)
 
On Error Resume Next
' Grab output from temporary file
strCommandResult = Server.HTMLEncode( oFile.ReadAll )
oFile.Close
' Delete the temporary & ftp-command files
Call oFileSys.DeleteFile( strTempFile, True )
Call objFSO.DeleteFile( Server.MapPath("test.ftp"), True )
Set oFileSys = Nothing
Set objFSO = Nothing
' Print result of FTP session to screen
Response.Write( Replace( strCommandResult, vbCrLf, "<br>", 1, -1, 1) )
%>
 

Lo que necesito es eliminar en lo posible todo lo que diga fso, no importa si se modifica el codigo.

¿Alguien me ayuda?

[AlZuwaga]

Se me ocurre que abras el notepad, pegues ese código y hagás "edición -> reemplazar": fso por "" (nada, vacío)

Aunque no creo que te sirva
Entonces te pregnto... ¿Con qué propósito querés eliminar toda ocurrencia de fso?

[Julcar]

Pues bien, aqui viene el cuento de siempre:

Mi hosting es Gratuito, y como todo hosting gratuito te quitan las cosas buenas, esta vez me han deshabilitado el FSO, solo tengo esta opcion de usar lo que me dan al alcance, y eso es la conexion ftp.

Sé que debe de haber una forma, quien sabe modificando los atributos.

PD: El motivo de esto es poder subir imágenes al servidor.

[AlZuwaga]

ok, es que usa el FSO para crear un archivo temporal que será usado como parámetros del ftp.exe... tal vez almacenando todo ese contenido en una session lo logres, pero lo tendrías que trabajar un poco.

[Julcar]

Mi Objeto es crear el archivo en el servidor por medio del filemanager.

Entonces comenzar creo a partir de esta linea:

Código asp:

' Use cmd.exe to run ftp.exe, parsing our newly created command 
filestrCMD = "ftp.exe -s:" & Server.MapPath("test.ftp")
strTempFile = "C:\" & oFileSys.GetTempName( )
' Pipe output from cmd.exe to a temporary file (Not :| Steve)
Call oScript.Run ("cmd.exe /c " & strCMD & " > " & strTempFile, 0, True) 
Set oFile = oFileSys.OpenTextFile (strTempFile, 1, False, 0)
 

Y de esa forma poder colgar los ficheros del servidor

[Julcar]

Es mas, recalco que esto recibe los datos de un multipart/form-data, lo cual cambia el escenario.

En vez de crear un archivo texto, simplemente usaria Request.Form() con los campos del multipart/form-data con unas variables que contengan el user y el pass.

¿Se lo ve viable?

[Julcar]

Por el momento voy asi:

Código asp:

<&#37;
Dim servidor, usuario, clave, directorio, archivo
 
servidor = "ftp.webng.com"
usuario = "miusuario"
clave = "miclave"
directorio = Request.ServerVariables("PATH_TRANSLATED")
archivo = Request.Form("archivo")
%>
 

El problema es que no sé nucho de batch :D

[AlZuwaga]

Si se lo ve viable pero... siendo un hosting gratuito ¿estás seguro que tenés acceso a WSCRIPT.SHELL? Yo lo dudo, aunque espero equivocarme.

[Julcar]

Efectivamente, no me da el acceso a Wscript.Shell, tema cerrado.