<!--#include file="includes/connection.asp"-->
<%
usuario = session("usuario")
' Variables
' *********
Dim mySmartUpload
' Object creation
' ***************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Upload
' ******
With mySmartUpload
.Upload
fotoNome1 = .Files("foto_principal").FileName
fotoNome2 = .Files("foto1").FileName
fotoNome3 = .Files("foto2").FileName
fotoNome4 = .Files("foto3").FileName
fotoNome5 = .Files("foto4").FileName
End With
fotoa1 = "upload/fotos/" & fotoNome1
fotoa2 = "upload/fotos/" & fotoNome2
fotoa3 = "upload/fotos/" & fotoNome3
fotoa4 = "upload/fotos/" & fotoNome4
fotoa5 = "upload/fotos/" & fotoNome5
' Save the files with their original names in a virtual path of the web server
' ****************************************************************************
mySmartUpload.Save("upload/fotos")
titulo = mySmartUpload.form("titulo")
valor = mySmartUpload.form("valor")
bairro = mySmartUpload.form("bairro")
descricao = replace(trim(mySmartUpload.form("descricao")),chr(13),"<br>")
tipo = mySmartUpload.form("tipo")
usuario = mySmartUpload.form("usuario")
codigo = mySmartUpload.form("codigo")
proprietario = mySmartUpload.form("proprietario")
contato = mySmartUpload.form("contato")
sql_insere = "INSERT INTO tbl_anuncios (data, cod_cliente, cod_anuncio, titulo, valor, localizacao, descricao, foto_principal, foto1, foto2, foto3, foto4, tipo, visivel, proprietario, contato) VALUES ('"& date() &"','"& usuario &"','"& codigo &"','"& titulo &"','"& valor &"','"& bairro &"','"& descricao &"','"& fotoa1 &"','"& fotoa2 &"','"& fotoa3 &"','"& fotoa4 &"','"& fotoa5 &"','"& tipo &"','s','"& proprietario &"','"& contato &"')"
Set exe_insere = banco.execute(sql_insere)
%>Porém com o tempo identifiquei um problema e queria renomear as fotos com um número aleatório para que não ocorra de ter fotos com o mesmo nome e acabar me dando dor de cabeça depois. O código para gerar números aleatórios é o seguinte:Function numeros(quantidade) Dim Senha(8) ' Declaramos a quantidade de arrays que serão criados. e seus devidos valores ' Neste caso, criei 8 arrays com letras, isso é, nossas variáveis serão do tipo string. Senha(0) = "1" Senha(1) = "2" Senha(2) = "3" Senha(3) = "4" Senha(4) = "5" Senha(5) = "6" Senha(6) = "7" Senha(7) = "8" Senha(8) = "9" Randomize ' O LEN serve para contarmos o total de caracteres de uma string do while len(chave) < quantidade num = Senha(Int(8 * Rnd )) chave = chave + num loop numeros = Trim(chave) ' Aqui damos um valor a nossa função. ' Usamos o TRIM, os TRIM, tira todos os espaços vazios de uma string. end function
Como que eu faço para renomear o arquivo, enviar para o servidor e gravar no banco de dados o nome do arquivo como já venho fazendo só que com o nome original do arquivo?
Procurei no fórum e só achei esse posto aqui oh: http://forum.wmonlin...=aspSmartUpload
Conto com a ajuda de vocês.
Abraços
