Ir para conteúdo

POWERED BY:

Arquivado

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

Renata Pedrosa

Upload com Safileup

Por , em ASP Clássico

Recommended Posts

Renata Pedrosa    0

Renata Pedrosa
Postado

Pessoal já tenho um script funcionando com Safileup na locaweb, só que estou precisando quardar

no banco de dados o nome do arquivo transferido mas não estou conseguindo.

 

eu preciso recuperar apenas o nome ex: foto1.jpg

 

usando a propriedade SaFileUp.userFileName ele recurepa tambem o driver do do computador que esta enviando ex: F:/imagens/foto1.jpg

 

assim dá problema no caminho da imagem... preciso apenas o nome do arquivo.

 

se alguem souber me ajude por favor!

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

olha este exemplo:

 

Para fazer upload/download de arquivos através do componente SaFileUp. Segue abaixo um simples exemplo de utilização deste componente

 

Arquivo: upload.htm(exemplo)

 

<html>
<body bgcolor="#FFFFFF" >
<h2>Upload Simples</h2><br>
<form method="POST" ENCTYPE="multipart/form-data" ACTION="upload.asp">
<INPUT TYPE=FILE SIZE=60 NAME="FILE1"><BR>
<INPUT TYPE=SUBMIT VALUE="Upload!">
</FORM >
</body>
</html>

upload.asp

 

<html>
<head> 
 <title> SaFileUp </title>
</head>
<body><% 
'Instancia o componente
SET SaFileUp = Server.CreateObject("SoftArtisans.FileUp") 
 
'Configura onde o arquivo será salvo
SaFileUp.Path = "e:\home\LoginFTP\Web\upload\"
 
'Salva o arquivo no servidor
SaFileUp.Save
 
response.write "Total de Bytes Enviados: " & SaFileUp.TotalBytes
Set SaFileUp = Nothing 
%></body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Renata Pedrosa    0

Renata Pedrosa
Postado

o detalhe é que já estou conseguindo fazer o upload mas o problema é que agora eu preciso gravar o nome do arquivo no banco de dados... ex: foto1.jpg

 

olha este exemplo:

 

Para fazer upload/download de arquivos através do componente SaFileUp. Segue abaixo um simples exemplo de utilização deste componente

 

Arquivo: upload.htm(exemplo)

 

<html>
<body bgcolor="#FFFFFF" >
<h2>Upload Simples</h2><br>
<form method="POST" ENCTYPE="multipart/form-data" ACTION="upload.asp">
<INPUT TYPE=FILE SIZE=60 NAME="FILE1"><BR>
<INPUT TYPE=SUBMIT VALUE="Upload!">
</FORM >
</body>
</html>

upload.asp

 

<html>
<head> 
 <title> SaFileUp </title>
</head>
<body><% 
'Instancia o componente
SET SaFileUp = Server.CreateObject("SoftArtisans.FileUp") 
 
'Configura onde o arquivo será salvo
SaFileUp.Path = "e:\home\LoginFTP\Web\upload\"
 
'Salva o arquivo no servidor
SaFileUp.Save
 
response.write "Total de Bytes Enviados: " & SaFileUp.TotalBytes
Set SaFileUp = Nothing 
%></body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você pode usar uma funcaun para pegar o nome atraves de funcaun , existem varios exemplos no laboratorio de script,dá uma pesquisada

Compartilhar este post

Link para o post
Compartilhar em outros sites

Renata Pedrosa    0

Renata Pedrosa
Postado

Voçe poderia indicar um exemplo para fazer isso?

 

porque eu teria que desconsiderar tudo o que tem antes do nome foto1.jpg certo?

 

 

você pode usar uma funcaun para pegar o nome atraves de funcaun , existem varios exemplos no laboratorio de script,dá uma pesquisada

 

Compartilhar este post

Link para o post
Compartilhar em outros sites

fabinhosantos    0

fabinhosantos
Postado

eu uso uma função que encontrei no laboratorio de script para recuperar a extensão, dai voçê pode adaptar

trocando o . por \ ou /

 

ex:

 

Function extensao(byVal nmArquivo)

nmArquivo = split(nmArquivo,".")

extensao = nmArquivo(uBound(nmArquivo))

End Function

 

dai voçê usa:

Function extensao(byVal nmArquivo)

nmArquivo = split(nmArquivo,"\")

extensao = nmArquivo(uBound(nmArquivo))

End Function

 

response.write extensao(img)

 

Será que o voçê esta fazendo pode ser o mesmo que eu preciso? eu tambem uso o saFileUp

 

Eu tenho uns registros que podem ter fotos, só que para inserir uma imgagem para um determinado produto

eu teria que passar no formulario do upload o id do produto para depois do upload gravar o nome do arquivo no

banco de dados.

 

Quando eu coloco um hidden no formulario o upload não funciona!

 

Essa parte de recuperar o id voçê conseguiu?

 

 

Voçe poderia indicar um exemplo para fazer isso?

 

porque eu teria que desconsiderar tudo o que tem antes do nome foto1.jpg certo?

 

 

 

você pode usar uma funcaun para pegar o nome atraves de funcaun , existem varios exemplos no laboratorio de script,dá uma pesquisada

 

eu uso uma função que encontrei no laboratorio de script para recuperar a extensão, dai voçê pode adaptar

trocando o . por \ ou /

 

ex:

 

Function extensao(byVal nmArquivo)

nmArquivo = split(nmArquivo,".")

extensao = nmArquivo(uBound(nmArquivo))

End Function

 

dai voçê usa:

Function extensao(byVal nmArquivo)

nmArquivo = split(nmArquivo,"\")

extensao = nmArquivo(uBound(nmArquivo))

End Function

 

response.write extensao(img)

 

Será que o voçê esta fazendo pode ser o mesmo que eu preciso? eu tambem uso o saFileUp

 

Eu tenho uns registros que podem ter fotos, só que para inserir uma imgagem para um determinado produto

eu teria que passar no formulario do upload o id do produto para depois do upload gravar o nome do arquivo no

banco de dados.

 

Quando eu coloco um hidden no formulario o upload não funciona!

 

Essa parte de recuperar o id voçê conseguiu?

 

 

Voçe poderia indicar um exemplo para fazer isso?

 

porque eu teria que desconsiderar tudo o que tem antes do nome foto1.jpg certo?

 

 

 

você pode usar uma funcaun para pegar o nome atraves de funcaun , existem varios exemplos no laboratorio de script,dá uma pesquisada

 

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado 

Public function GetFilename(ByVal strGetPath)

Dim nPos, strFilename

Dim strDir

strFilename = ""

strGetPath = cstr(strGetPath)

if Not len(strGetPath) = 0 Then

nPos = InStrRev(strGetPath, "\", Len(strGetPath))

if nPos > 0 Then

strFilename = Right(strGetPath, Len(strGetPath) - nPos)

'Response.Write strFilename

End if

nPos = InstrRev(strGetPath, "\", Len(strGetPath) - nPos)

if nPos > 0 Then

strDir = Right(strGetPath, Len(strGetPath) - nPos)

Else

strDir = ""

End if

End if

GetFilename = strFilename

End function

Compartilhar este post

Link para o post
Compartilhar em outros sites

nemtconto    0

nemtconto
Postado 

nome = fileUpload.Form("FILE1").ShortFileName

response.write (nome)

só usar a variável "nome" para gravar no banco, diz ai se deu certo... assim é bem mais fácil do que usar um monte de código só pra achar o nome da img que upou

 

assim ele da o nome e a extensão =)

 

isso vale pro SaFile Up

 

não tem erro

 

seja feliz =)

 

p.s: mesmo sendo 1 mês depois sem resposta malz o "up" é que me senti obrigado a dar essa dica simples ao invés dele usar um monte de código para descobrir o nome xD

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

o Safileup, tem esse recurso, muito bom

em sempre uso o code acima, mas legal...

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