Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Hugo Eyer

UPLOAD ASP Server.CreateObject("SoftArtisans.FileUp")

Por , em ASP Clássico

Recommended Posts

Hugo Eyer    0

Hugo Eyer
Postado

Prezados amigos,

 

Estou com uma funcao de UPLOAD retirado da Locaweb. (Server.CreateObject("SoftArtisans.FileUp"))

 

Acontece que com essa funcao eu so consigo subir os arquivos para uma determinada pasta no FTP.

 

Eu preciso buscar o nome do arquivo que esta sendo feito o UPLOAD...

 

Segue abaixo meus codigos de programacao... da pagina upload.asp (a que realiza o upload mesmo)

 

'Faço uma conexao a minha base de dados
Set Conex = Server.Createobject("ADODB.Connection")
Conex.open ACIONAMENTO_STRING

	SQL = "SELECT * FROM ANEXOS"
	'response.Write(SQL)
	'response.end
	SET rsSTATUS = CONEX.EXECUTE(SQL)
	
	           
		'Instancia o componente
		SET SaFileUp = Server.CreateObject("SoftArtisans.FileUp") 
		
   
			'Configura o caminho onde arquivo será salvo
			SaFileUp.Path = "e:\home\sistemasgt\Web\tim\arquivos\anexos\"
 
			'Você pode usar também o caminho relativo se preferir
			'SaFileUp.Path = Server.MapPath("./upload/")
 
			'Caso o usuário não indique um arquivo para upload, informa erro.
			If SaFileUp.IsEmpty Then
					response.write "<center>Por favor, indique um arquivo para upload.</center><br>"
			Else
				'Salva o arquivo no servidor
				SaFileUp.Save
				response.write "<center>Total de Bytes Enviados: " & SaFileUp.TotalBytes & "</center>"
			End if
 
			'Gera um link html para retornar a pagina anterior
			response.write "<center><a href='javascript:history.go(-1)'>Voltar</a></center>"
 
		Set SaFileUp = Nothing 
		%>

 

Alguem conhece alguma funcao nesse tipo de upload que busca o nome do arquivo ????

 

Obrigado.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Marcos Coelho2    2

Marcos Coelho2
Postado

Tenho um que funciona perfeitamente..

 

da uma olhada se te serve.

 

Server.ScriptTimeOut = 99999 'para fazer upload de arquivos maiores sem que dê erro
    '***FAZ O UPLOAD DAS FOTOS NO SERVIDOR
    Set Upload = Server.CreateObject("Persits.Upload.1")
    
	  Upload.OverwriteFiles = False
	  'On Error Resume Next
    
	  'Upload.SetMaxSize 1048576	' Limit files to 1MB
	  Upload.SetMaxSize 9145728	' Limit files to 3MB
	  Count = Upload.Save("e:\home\teste\Web\fotos_temp")
	  'Count = Upload.Save("c:\teste")
	  '***

    '***RECUPERA O NOME DOS ARQUIVOS DOS QUAIS FOI FEITO O UPLOAD E OS ANEXA AO E-MAIL
	  For Each File in Upload.Files
	     cdoMessage.AddAttachment("e:\home\teste\Web\fotos_temp\" & File.FileName)
    Next
    '***

Esse faz o upload e salva no seu ftp.

no caso voce pode enviar para seu email ou salvar no banco de dados se preferir.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Hugo Eyer    0

Hugo Eyer
Postado

Marcos Coelho2,

 

Obrigado pela força mas nao quero um novo jeito de fazer o UPLOAD pois ja tenho esse e esta funcionando perfeitamente...

 

Eu gostaria de saber se alguem sabe buscar o nome do arquivo que esta sendo anexado nesse tipo de UPLOAD (Server.CreateObject("SoftArtisans.FileUp")) ???

 

Alguem saberia ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

tem uma funcaun no lab. de script...

dá uma pesquisada lá...

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado
link

Compartilhar este post

Link para o post
Compartilhar em outros sites

Hugo Eyer    0

Hugo Eyer
Postado

Ja tentei usar esse jeito que você me passou e nao funcionou...

 

Acredito que precisa ser um jeito de recuperacao de arquivo igual a esse tipo de UPLOAD... Enfim...

 

So preciso pegar o nome do arquivo anexado e mandar para o BD para poder fazer um link de download do arquivo anexado...

 

Alguem sabe ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

usa assim:

 

public function resgNomeImage(var)

resgNomeImage = right(var, len(var) - instrRev(var,"\"))

end function

 

nome = resgNomeImage(upload.form("nome_campo"))

 

ou assim

http://tedk.com.br/blog/index.php/2008/11/06/aspupload-usando-o-persitsupload-parte-02-pegando-o-nome-do-arquivo/

Compartilhar este post

Link para o post
Compartilhar em outros sites

luiscarlos5046    3

luiscarlos5046
Postado

Prezados amigos,

 

Estou com uma funcao de UPLOAD retirado da Locaweb. (Server.CreateObject("SoftArtisans.FileUp"))

 

Acontece que com essa funcao eu so consigo subir os arquivos para uma determinada pasta no FTP.

 

Eu preciso buscar o nome do arquivo que esta sendo feito o UPLOAD...

 

Segue abaixo meus codigos de programacao... da pagina upload.asp (a que realiza o upload mesmo)

 

'Faço uma conexao a minha base de dados
Set Conex = Server.Createobject("ADODB.Connection")
Conex.open ACIONAMENTO_STRING

	SQL = "SELECT * FROM ANEXOS"
	'response.Write(SQL)
	'response.end
	SET rsSTATUS = CONEX.EXECUTE(SQL)
	
	           
		'Instancia o componente
		SET SaFileUp = Server.CreateObject("SoftArtisans.FileUp") 
		
   
			'Configura o caminho onde arquivo será salvo
			SaFileUp.Path = "e:\home\sistemasgt\Web\tim\arquivos\anexos\"
 
			'Você pode usar também o caminho relativo se preferir
			'SaFileUp.Path = Server.MapPath("./upload/")
 
			'Caso o usuário não indique um arquivo para upload, informa erro.
			If SaFileUp.IsEmpty Then
					response.write "<center>Por favor, indique um arquivo para upload.</center><br>"
			Else
				'Salva o arquivo no servidor
				SaFileUp.Save
				response.write "<center>Total de Bytes Enviados: " & SaFileUp.TotalBytes & "</center>"
			End if
 
			'Gera um link html para retornar a pagina anterior
			response.write "<center><a href='javascript:history.go(-1)'>Voltar</a></center>"
 
		Set SaFileUp = Nothing 
		%>

 

Alguem conhece alguma funcao nesse tipo de upload que busca o nome do arquivo ????

 

Obrigado.

 

Ae Hugo, dá uma pesquisada no site do fabricante...

Eu precisei de um upload com este componente tbm, pq o server não aceitava o Persits..

Eu achei o que eu precisava lá no site do fabricante...

 

Esta forma recupera os dados do form :

fileUpload.Form("descrip")

 

Tenta colocar assim, eu não testei ainda :

fileUpload.FileName

 

Com Persits funciona, mas com esse componente SaFileUp não tenho certeza ainda... mas eu vou precisar dele tbm logo logo...

 

Luis Carlos

Compartilhar este post

Link para o post
Compartilhar em outros sites

Hugo Eyer    0

Hugo Eyer
Postado

Ted k',

 

Tentei usar o seu script mas nao deu certo...

 

Eu coloquei assim...

 

public function resgNomeImage(textoarquivo)

resgNomeImage = right(textoarquivo, len(textoarquivo) - instrRev(textoarquivo,"\"))

end function

 

nome = resgNomeImage(upload.form("textoarquivo"))

 

Ele da erro na 4ª linha... o pior é que nao consigo ver esse erro... pq esse componente de upload so roda no servidor da locaweb... na minha maquina nao te suporte para ele... E para ter suporte para esse componente é preciso pagar =/

 

 

luiscarlos5046,

 

Tentei o seu codigo tbm mas nao consegui... eu so precisava do nome do arquivo para poder salvar no BD e poder montar um link para pega-lo...

 

Vlw pela ajuda mas vamos continuar tentando...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Olá Guina loko,

 

Obrigado por compartilhar seu conhecimento conosco.

 

Continue contribuindo respondendo os tópicos mais recentes.

 

Abraços

 

Mário Monteiro

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito