Acesso FTP via ASP

[allan.web 0]

Ola pessoal... tenho um servidor web com acesso FTP, sua senha esta no ACTIVE DIRECTORY do Win 2k... porem queria que esse acesso fosse feito por uma pagina asp... Tem como ??..Desde ja agradeço

[Neco 0]

Eu costumo usar esse codigo ai....que pegue em um site no google..Dim objFSO, objTextFile, oScript, oScriptNet, oFileSys, oFile, strCMD, strTempFile, strCommandResultDim ftp_address, ftp_username, ftp_password, ftp_physical_path, ftp_files_to_put' Edit these variables to match your specificationsftp_address = "ftp.server.com"ftp_username = "username"ftp_password = "password"ftp_remote_directory = "subdirectory" ' Leave blank if uploading to root directoryftp_files_to_put = "file.txt"On Error Resume NextSet oScript = Server.CreateObject("WSCRIPT.SHELL")Set oFileSys = Server.CreateObject("Scripting.FileSystemObject")Set objFSO = CreateObject("Scripting.FileSystemObject")' Build our ftp-commands fileSet objTextFile = objFSO.CreateTextFile(Server.MapPath("test.ftp"))objTextFile.WriteLine "lcd " & Server.MapPath(".")objTextFile.WriteLine "open " & ftp_addressobjTextFile.WriteLine ftp_usernameobjTextFile.WriteLine ftp_password' Check to see if we need to issue a 'cd' commandIf ftp_remote_directory <> "" Then objTextFile.WriteLine "cd " & ftp_remote_directoryEnd IfobjTextFile.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_putElse objTextFile.WriteLine "put " & ftp_files_to_putEnd IfobjTextFile.WriteLine "bye"objTextFile.CloseSet objTextFile = Nothing' 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)On Error Resume Next' Grab output from temporary filestrCommandResult = Server.HTMLEncode( oFile.ReadAll )oFile.Close' Delete the temporary & ftp-command filesCall oFileSys.DeleteFile( strTempFile, True )Call objFSO.DeleteFile( Server.MapPath("test.ftp"), True )Set oFileSys = NothingSet objFSO = Nothing' Print result of FTP session to screenResponse.Write( Replace( strCommandResult, vbCrLf, "<br>", 1, -1, 1) )%>Abraços

[allan.web 0]

não entendi... isso sera a parte de ligin??... o que devo colocar antes para que isso funcione direito??..desde ja agradeço

[Neco 0]

Isso...Crie uma telinha de login, ai depois ftp_address = request.form("campo") e assim por diante...ftp_username = "username"ftp_password = "password"ftp_remote_directory = "subdirectory" ' Leave blank if uploading to root directoryftp_files_to_put = "file.txt" - Aqui vai ter que usar UPLOAD.Qualquer coisa...