FTP para receber - gerenciar usuarios

[essex 0]

Galera

 

Alguem teria algum código em ASP de FTP?

 

Recebo arquivos grandes de 400 mb.... 800 mb... tenho um script mas ele nao tem muitos recursos e flexbilidade...

 

 

Alguma dica ?

 

Grato

[Ted k' 126]

precisa enviar via ASP isso?

[xanburzum 169]

olha este exemplo:

 

<%@ LANGUAGE="VBSCRIPT" %>

<%
'--------------------------------------------------------------
' Xceed FTP Library - FTP Client sample application

Dim xFtp
Dim sServerAddress
Dim sPort
Dim sUsername
Dim sPassword
Dim sFolder


Set xFtp = CreateObject( "XceedSoftware.XceedFtp" )	'objecto Xceed Ftp 

		
' Call xFtp.License("sua chave de licença vai aqui")

sServerAddress = trim( Request( "ServerAddress" ) )
sPort		  = trim( Request( "Port" ) )			
sUsername	  = trim( Request( "Username" ) )		
sPassword	  = trim( Request( "Password" ) )		
sFolder		= trim( Request( "Folder" ) )	

xFtp.ServerAddress = sServerAddress		' Set ServerAddresss property
xFtp.ServerPort	= sPort			' Set ServerPort property (default = 21)
xFtp.Username	  = sUsername			' Set Username property (default = anonymous)	
xFtp.Password	  = sPassword			' Set Password property (default = guest)

On Error Resume Next

Call xFtp.Connect()	'Conecta FTP server

If Err.Number = 0 Then
   Response.Write( "<B>Connected to " & sServerAddress & "<BR><BR></B>" )	
   

   Call ObtainFolderListing( sFolder )	
   
   If Err.Number <> 0 Then
	  Response.Write( Err.Description & " #" & Err.Number & "<BR><BR>" )	
   End IF
Else
   Response.Write( Err.Description & " #" & Err.Number & "<BR><BR>" )	
End If

Set xFtp = Nothing			'	
Set xFolderItems = Nothing

Public Sub ObtainFolderListing( sName )

Dim xFolderItems	
Dim xItem
Dim sNewFolder

On Error Resume Next


Set xFolderItems = xFtp.GetFolderContents( sName, 0 )
Call RetrieveParentFolder( sFolder )

If Err.Number = 0 Then
   Response.Write( "<TABLE WIDTH=""600"" BORDER=""2"" CELLSPACING=""0"" CELLPADDING=""0"">" & _
				   "<TR  BGCOLOR=""BLUE"">" & _
					  "<TD ALIGN=""CENTER""><B><FONT COLOR=""WHITE"">Data</FONT></B></TD>" & _
					  "<TD ALIGN=""CENTER""><B><FONT COLOR=""WHITE"">Size (in bytes)</FONT></B></TD>" & _
			  "<TD ALIGN=""CENTER""><B><FONT COLOR=""WHITE"">Type</FONT></B></TD>" & _	
					  "<TD ALIGN=""CENTER""><B><FONT COLOR=""WHITE"">Nome</FONT></B></TD>" & _
				   "</TR>" )	  

	  For Each xItem In xFolderItems

	  Select Case xItem.ItemType
	  Case 0	'Is a file 
		 Response.Write( "<TR>" & _
							"<TD WIDTH=""200"">" & xItem.Date & "</TD>" & _
							"<TD WIDTH=""100"">" & xItem.FileSize & "</TD>" & _ 
							"<TD WIDTH=""100"">File</TD>" & _
							"<TD WIDTH=""200""><A HREF=""Ftp://" & sUsername & ":" & sPassword & "@" & sServerAddress & ":" & sPort & "/" & sFolder & "/" & xItem.ItemName & """>" & xItem.ItemName & "</A></TD>" & _
						 "</TR>" )

	  Case 1	'folder
		 sNewFolder = sFolder	
			
	 If ( Len( sNewFolder ) > 0 ) Then
			sNewFolder = sNewFolder & "/"
		 End If

		 sNewFolder = sNewFolder & xItem.ItemName 

	 .	
	 Response.Write( "<TR>" & _
							"<TD WIDTH=""200"">" & xItem.Date & "</TD>" & _
							"<TD WIDTH=""100"">" & xItem.FileSize & "</TD>" & _ 
							"<TD WIDTH=""100"">Diretorio</TD>" & _
							"<TD WIDTH=""200""><A HREF=""XceedFtp.asp?ServerAddress=" & sServerAddress & "&Port=" & sPort & "&Username=" & sUsername & "&Password=" & sPassword & "&Folder=" & sNewFolder & """ > " & xItem.ItemName & "</A></TD>" & _
						 "</TR>" )

	  Case 2	' link
		 If LinkType( xItem.ItemName ) = "folder" then
	
			sNewFolder = sFolder

			If ( Len( sNewFolder ) > 0 ) Then
			   sNewFolder = sNewFolder & "/"
			End If	 
  
			sNewFolder = sNewFolder & xItem.ItemName 
			Response.Write( "<TR>" & _
							   "<TD WIDTH=""200"">" & xItem.Date & "</TD>" & _
							   "<TD WIDTH=""100"">" & xItem.FileSize & "</TD>" & _ 
							   "<TD WIDTH=""100"">Directory Link</TD>" & _
							   "<TD WIDTH=""200""><A HREF=""XceedFtp.asp?ServerAddress=" & sServerAddress & "&Port=" & sPort & "&Username=" & sUsername & "&Password=" & sPassword & "&Folder=" & sNewFolder & """ > " & xItem.ItemName & "</A></TD>" & _
							"</TR>" )	
		 Else
			If LinkType( xItem.ItemName ) = "file" Then
			   Response.Write( "<TR>" & _
								  "<TD WIDTH=""200"">" & xItem.Date & "</TD>" & _
								  "<TD WIDTH=""100"">" & xItem.FileSize & "</TD>" & _ 
								  "<TD WIDTH=""100"">File Link</TD>" & _
								  "<TD WIDTH=""200""><A HREF=""Ftp://" & sUsername & ":" & sPassword & "@" & sServerAddress & ":" & sPort & "/" & sFolder & "/" & xItem.ItemName & """>" & xItem.ItemName & "</A></TD>" & _
							   "</TR>" )
		   End If
	End If

	  End Select	
	  Next
   Response.Write( "</TABLE>" )
Else
   Response.Write( "Não foi possível listar os ficheiros em " & sFilename & "<BR>" )
   Response.Write( Err.Description & " #" & Err.Number & "<BR><BR>" )
End If

End Sub

Public Sub RetrieveParentFolder( sName )

Dim sParentFolder 
Dim nPos

If Len( sName ) > 0 Then
   Call xFtp.ChangeCurrentFolder( sName )	
End If

sName = xFtp.CurrentFolder			
nPos = InStrRev( sName, "\" )
sParentFolder = Mid( sName, 1, nPos )		

Response.Write( "<TABLE WIDTH=""600"" BORDER=""0"" CELLSPACING=""0"" CELLPADDING=""0"">" & _
				"<TR>" & _
				   "<TD WIDTH=""500"" ALIGN=""LEFT""><B>Está actualmente localizado na" & sFolder & "</B></TD>" & _
				   "<TD WIDTH=""100"" ALIGN=""RIGHT""><A HREF=""XceedFtp.asp?ServerAddress=" & sServerAddress & "&Port=" & sPort & "&Username=" & sUsername & "&Password=" & sPassword & "&Folder=" & sParentFolder & """ >Parent Folder</A></TD>" & _
				"</TR>" & _
				"</TABLE>" )			  

End Sub

Public Function LinkType( sName )

On Error Resume Next

Call xFtp.ChangeCurrentFolder( sName )

If Err.Number = 0 then
   LinkType = "folder"
Else
   LinkType = "file"
   Err = 0 
End If

End Function

' --------------------------------------------------------------


%>