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
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.