Jump to content


Photo

Utilizando O Componente Safileupload


  • This topic is locked This topic is locked
Nenhuma resposta neste tópico

#1 Agente Linhares

Agente Linhares

    fuis...abraços!

  • Ex-Admins
  • 3138 posts
  • Sexo:Não informado
  • Localidade:Biritiba Mirim-SP

Posted 13/09/2005, 16:20

Utilizando o componente SaFileUpload

Pessoal, dias atrás tive a necessidade de utilizar este componente, devido a ausência de outros do mesm o gênero no server.
Sendo assim, fui à procura de conteúdo e documentações sobre o mesmo e depois de muita busca na web, fui pegando o jeito e as propriedades do mesmo ateé conseguir montar o que queria. Apesar do que eu precisava ser bem básico, não encontrava conteúdo sobre este componente...portando, vou passar apenas algumas propriedades-chave e um exemplo do uso do SaFileUpload:

Este componente até que é bem parecido c/ o ASPUpload. Veja como ele é usado:

Ex.:
<%
Pasta = "c:/SuaPasta/"

Set Upload = Server.CreateObject("SoftArtisans.FileUp") 
Upload.Path = Pasta 
        
Foto1 = Upload.Form("campoFoto1").ShortFileName 'campoFoto1 equivale ao nome do seu campo da foto1, no qual usamos 2 campos p/ fotos
Foto2 = Upload.Form("campoFoto2").ShortFileName 'campoFoto2 equivale ao nome do seu campo da foto2, no qual usamos 2 campos p/ fotos


	If Not Foto1 = "" Then
  vFoto1 = Foto1
  Upload.Form("Foto1").Save
	Else
  vFoto2 = "sem imagem no campoFoto1"
	End If
          	
	If Not Foto2 = "" then
  vFoto2 = Foto2
  Upload.Form("Foto2").Save
	Else
  vFoto2 = "sem imagem no campoFoto2"
	End If
	
	response.write vFoto1 &"<br>"&vFoto2
%>


Explicando:

- especificamos a pasta no qual serão salva as imagens
Pasta = "c:/SuaPasta/"

- setamos a criação do componente
Set Upload = Server.CreateObject("SoftArtisans.FileUp") 

- expecificamos a pasta no qual ussaremos p/ salvar as imagens (a que foi digitada no início)
Upload.Path = Pasta 

- pegamos os valores dos campos "campoFoto1" e "campoFoto2" e o colocamos nas respectivas variáveis
OBS Importante: a propriedade "ShortFileName" é responsável por pegar apenas o nome da foto ao invés de trazer o caminho da mesma junto c/ ela. Muito útil, principalmente em caso de gravação da mesma no bd
Foto1 = Upload.Form("campoFoto1").ShortFileName	
Foto2 = Upload.Form("campoFoto2").ShortFileName	

- nesta parte, apenas é feita uma validação, p/ caso não haja imagens, p/ exibir a mensagem de que não há, ja se houver, as mesmas são salvas na pasta que especificamos no início do code
OBS: neste exemplo, apenas foi exibido o nome das imagens ao fim do code, porém poderia ser feito uma inserção no banco de dados, já que as imagens já foram gravadas na pasta e também já pegamos o nome da mesma e colocamos em uma variável.
	If Not Foto1 = "" Then
  vFoto1 = Foto1
  Upload.Form("Foto1").Save
	Else
  vFoto2 = "sem imagem no campoFoto1"
	End If
          	
	If Not Foto2 = "" then
  vFoto2 = Foto2
  Upload.Form("Foto2").Save
	Else
  vFoto2 = "sem imagem no campoFoto2"
	End If

- exibimos os nomes das fotos se as mesmas existem, se não exibimos a mensagem de que nao há imagens nos respectivos campos
	response.write vFoto1 &"<br>"&vFoto2

Espero que tenha sido útil. :)

valeu (y)
t+


----------------------
Para uma maior organização desta seção, todas as duvidas relacionadas a este tutorial devem ser tiradas na seguinte sala:-
http://forum.wmonlin...p?showforum=113

Edição feita por: Agente Linhares, 13/09/2005, 16:25.

> Busca On-line - A Busca que faltava na Internet! - Cadastre-se!
---------------------------------------------------------------------------
> BRdesign.NET - Soluções em Websites e Sistemas E-Commerce.
---------------------------------------------------------------------------
> BR-ecommerce - Sua loja virtual na internet! - Apenas R$99,90 mensais (hospedagem inclusa)!




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq