<!--#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