Jump to content
Fórum Script Brasil
  • 0

Renomear Upload - Aspsmartupload


X-MAN
 Share

Question

Ola pessoal, estou usnado o aspSmartUpload para fazer upload de imagens para uma pasta.

O que eu queria é o seguinte, como faço para renomear a imagem com um nome que eu quisesse antes de salva-la na pasta??

<%Server.ScriptTimeOut=10000000 

Set UploadFoto=Server.CreateObject("aspSmartUpload.SmartUpload")
'nomefoto=UploadFoto.Files.Foto.Name   'pega o nome da imagem que esta no campo Foto

UploadFoto.Upload

'IntCount = UploadFoto.Save("c:\teste")
IntCount = UploadFoto.Save("c:\inetpub\wwwroot\teste")
For Each file In UploadFoto.Files
nomefoto=File.FileName
next
end if
%>

Deixo o codigo como ele esta neste momento, agradecia a ajuda!!

Link to comment
Share on other sites

2 answers to this question

Recommended Posts

  • 0
Guest Alfredo Ouro

Este codigo abaixo ele gera automaticamente numeros para salvar uma imagem.

<%

dim conexaodb,strImagem,rsImagem,codImagem

Call AbreConexao

'Gerando Cod para Imagem

strImagem = "SELECT max(codigo) AS maiorCod FROM tabGeraCodImg"

Set rsImagem=conexaodb.execute(strimagem)

if rsImagem.eof then

codImagem = "1" + "10000"

strImagem = "INSERT into tabGeraCodImg (imagem) values ('"&CodImagem&"')"

set rsImagem = conexaodb.execute(strimagem)

else

codImagem = rsImagem("maiorCod") + 1

codImagem = codImagem + 10000

end if

' Variables

' *********

Dim mySmartUpload

Dim intCount

' Object creation

' ***************

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

' Only allow txt or htm files

' ***************************

mySmartUpload.AllowedFilesList = "gif,jpeg,jpg"

' Deny physical path

' *******************

mySmartUpload.DenyPhysicalPath = True

' Upload

' ******

mySmartUpload.Upload

For each file In mySmartUpload.Files

' Only if the file exist

' **********************

If not file.IsMissing Then

' Save the files with his original names in a virtual path of the web server

' ****************************************************************************

file.SaveAs("imagem/"&codImagem&".jpg")

end if

next

' Display the number of files uploaded

' ************************************

strImagem = "INSERT into tabGeraCodImg (imagem) values ('"&CodImagem&"')"

Set rsImagem = conexaodb.execute(strImagem)

set rsImagem = Nothing

Call FechaConexao

Session("Foto") = "imagem/"&CodImagem&".jpg"

%>

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      151k
    • Total Posts
      649.1k
×
×
  • Create New...