Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ Delphi FoxPro Java Perl Python Ruby SQL Server VBScript
|
Upload to Tumbleweed SecureTransport FTPS ServerDemonstrates how to connect, authenticate, and upload file to a Tumbleweed Secure Transport SSL FTP Server. Instead of providing a login name and password, you pass the string "site-auth" for the username, and an empty string for the password. You must also provide a client-side digital certificate -- as the certificate's credentials and validity are used to authenticate. <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% set ftp = Server.CreateObject("Chilkat.Ftp2") ' Any string unlocks the component for the 1st 30-days. success = ftp.UnlockComponent("Anything for 30-day trial") If (success <> 1) Then Response.Write ftp.LastErrorText & "<br>" End If ' This code has been tested with the Tumbleweed server ' at sft.wellsfargo.com ftp.Hostname = "sft.wellsfargo.com" ' Use these exact strings for the username and password: ftp.Username = "site-auth" ftp.Password = "" ' Establish an AUTH SSL secure channel after connecting. ' Your client-side certificate is used for authentication when ' the SSL channel is established. ftp.AuthSsl = 1 ' The Ssl property is for establishing an implicit SSL connection ' on port 990. Do not set it. ftp.Ssl = 0 set cert = Server.CreateObject("Chilkat.Cert") ' It is assumed you've already installed your digital certificate ' on the system. If it is located in the Current-User or Local Machine ' certificate stores located in the Windows Registry, you only ' need to load it by common name: success = cert.LoadByCommonName("My cert's common name") If (success <> 1) Then Response.Write cert.LastErrorText & "<br>" End If ' Tell the Chilkat FTP2 component to use the client-side ' cert for the SSL connection: ftp.SetSslClientCert cert ' Connect and authenticate with the FTP server. success = ftp.Connect() If (success <> 1) Then Response.Write ftp.LastErrorText & "<br>" Else ' LastErrorText contains information even when ' successful. This allows you to visually verify ' that the secure connection actually occurred. Response.Write Server.HTMLEncode( ftp.LastErrorText) & "<br>" End If Response.Write "Secure FTP Channel Established!" & "<br>" ' Change to the remote directory where the file will be ' uploaded. If your file is to be uploaded to the FTP user ' account's home directory, this is not necessary. success = ftp.ChangeRemoteDir("someSubDir") If (success <> 1) Then Response.Write ftp.LastErrorText & "<br>" End If ' You may include an absolute or relative path with the ' local filename. If no path is included, the file should ' be present in the current working directory of the calling ' process. localFilename = "someFile.dat" remoteFilename = "someFile.dat" ' Upload the file. success = ftp.PutFile(localFilename,remoteFilename) If (success <> 1) Then Response.Write ftp.LastErrorText & "<br>" End If ftp.Disconnect %> </body> </html> |
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2008 Chilkat Software, Inc. All Rights Reserved.