Visualizzazione dei risultati da 1 a 7 su 7
  1. #1
    Utente di HTML.it
    Registrato dal
    Feb 2010
    Messaggi
    43

    Accedere a più FTP nello stesso momento

    salve ho tirato giù uno script che mi possa far collegare nel ftp del mio server
    ma vorrei aggiungere l'accesso a piu server contemporaneamente come posso fare?

    codice:
    <%@ Language=VBScript %>
    <%
    
    
    Dim objFSO, objTextFile, oScript, oScriptNet, oFileSys, oFile, strCMD, strTempFile, strCommandResult
    Dim ftp_address, ftp_username, ftp_password, ftp_physical_path, ftp_files_to_put
    
    
    ftp_address          = "ftp.server.com"
    ftp_username         = "username"
    ftp_password         = "password"
    ftp_remote_directory = "subdirectory" 
    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")
    
    
    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
    
    
    If ftp_remote_directory <> "" Then
       objTextFile.WriteLine "cd " & ftp_remote_directory
    End If
    
    objTextFile.WriteLine "prompt"
    
    
    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
    
    
    strCMD = "ftp.exe -s:" & Server.MapPath("test.ftp")
    strTempFile = "C:\" & oFileSys.GetTempName( )
    
    
    Call oScript.Run ("cmd.exe /c " & strCMD & " > " & strTempFile, 0, True)
    Set oFile = oFileSys.OpenTextFile (strTempFile, 1, False, 0)
    
    On Error Resume Next
    strCommandResult = Server.HTMLEncode( oFile.ReadAll )
    oFile.Close
    
    
    Call oFileSys.DeleteFile( strTempFile, True )
    Call objFSO.DeleteFile( Server.MapPath("test.ftp"), True )
    Set oFileSys = Nothing
    Set objFSO = Nothing
    
    
    Response.Write( Replace( strCommandResult, vbCrLf, "
    ", 1, -1, 1) )
    %>

  2. #2

    Moderazione

    Stiamo parlando di ASP?

    (comunque quello script mi fa abbastanza paura... se opera con dati provenienti dall'esterno devi essere ultrasicuro di averli "sanitizzati" perfettamente, altrimenti vedo diversi potenziali rischi di sicurezza)
    Amaro C++, il gusto pieno dell'undefined behavior.

  3. #3
    Utente di HTML.it
    Registrato dal
    Feb 2010
    Messaggi
    43
    Come aggiungo quindi.altri dati ftp

  4. #4

    Moderazione

    Come già detto:
    Originariamente inviato da MItaly
    Stiamo parlando di ASP?
    Se sì, sei nella sezione sbagliata; posso spostare il thread nel forum corretto, ma mi devi confermare che è ASP come sembra e non altro.

    Inoltre, dovresti chiarire un po' la richiesta...
    Amaro C++, il gusto pieno dell'undefined behavior.

  5. #5
    Utente di HTML.it
    Registrato dal
    Feb 2010
    Messaggi
    43
    Si va bene comunque io voglio rendere un server come.master e tutti.gli.altri slave e accedere da un solo ftp

  6. #6
    Utente di HTML.it L'avatar di oregon
    Registrato dal
    Jul 2005
    residenza
    Roma
    Messaggi
    36,480
    Meno male che hai chiarito ...

    P.S. Ma vuoi rispondere alla domanda che ti è stata fatta già 3 volte? Lavori con ASP ?
    No MP tecnici (non rispondo nemmeno!), usa il forum.

  7. #7

    Moderazione

    Appurato che la comunicazione è impossibile, chiudo il thread.

    Prima di riapire:
    - fai mente locale su che linguaggio stai usando; se è ASP, apri la discussione nella sezione ASP; se è VBScript "sparso", apri sotto "Visual Basic e .NET Framework";
    - chiarisci la domanda; siamo arrivati a sei post e nessuno ha ancora capito cosa cavolo stai chiedendo. Se continui a non leggere quello che ti si dice e a buttare lì parole a caso sperando che gli altri capiscano magicamente cosa vuoi difficilmente otterrai qualcosa su questo forum.
    Amaro C++, il gusto pieno dell'undefined behavior.

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.