Só falta o upload de imagens e detalhes

[meirelles 0]

GALERA, DESDE JÁ GOSTARIA DE AGRADECER OS MEMBROS E MODERADORES NA REALIZAÇÃO DO MEU SISTEMA DE NAMORONLINE, TEM UMA PRÉVIA AQUI NESTE LINK NAMORONLINE

 

CASO ALGUÉM SAIBA CONFIGURAR O ASPUPLOAD, COM TODAS AQUELAS RESTRIÇOES DE EXTENSÃO, RENOMEAR ARQUIVO, VOU AGRADECER, POIS SÓ FALTA ISSO.

 

VALEW!

 

AHHHH, TÁ FEIO TMB SÓ PRA AVISAR! http://forum.imasters.com.br/public/style_emoticons/default/bye1.gif

[gastao 0]

ta legal achei simpleszin....me add no msn q te passo, a noite, o lance do aspupload..... vou fazer essa caridade pra tu...

[meirelles 0]

valeeeeeeeeeeeeeeeeeeeeeeeeew

[gastao 0]

você ja fez algum upload com aspupload ???tem a propriedade type q é: vem o tipo de rquivo, ou você pode validar via javascript na hora do envio pegando o nome do arquivo e validando a extensão....

[meirelles 0]

bem na verdade eu fiz upload simples, mas dá uma olhada nesse topico aqui que você vai entender melhortopico

 

muito agradecido pela intensão de ajudar!

[explore 3]

HUMMMMMM CARIDADES NO FORUM heheheÈ iSSO AI PESSOAL UM AJUDANDO O OUTRO

[gastao 0]

você tem q copiar o arquivo , da um saveas mudando o nome, e depois deletar..... eu tenho isso tudo em casa.....

[meirelles 0]

assim que puder postar o codigo aqui eu vou agradecer, pq na verdade eu estou a 24dias tentando o bendito upload com restrições , depois que tiver funcionando eu vou só tirando duvidas, mas tem q funcionar!rsrsrsrs, to perando aqui valew!

[gastao 0]

ASP

[*]set rs3 = conexao.execute("select * from login where id = "&session("id")&"")

 

[*]npasta = rs3("nome")

 

[*]Set upload = Server.CreateObject("Persits.Upload") 

 

[*]

 

[*] upload.OverwriteFiles = False 

 

[*] ' Limit file size to 50000 bytes, throw an exception if file is larger

 

[*] upload.SetMaxSize 50000, True 

 

[*] ' Intercept all exceptions to display user-friendly error

 

[*] ' Perform upload

 

[*] on error resume next

 

[*] upload.Save server.MapPath("\"&npasta&"\") ' a pasta q você vai salvar

 

[*]If Err.Number = 8 Then

 

[*]response.Redirect("cadastro_foto.asp?erro=2")

 

[*]'response.end

 

[*]end if

 

[*]

 

[*]

 

[*]conexao.execute("insert into ....") ' aqui você faz insert no banco

 

[*]set rs = conexao.execute("select ....") ' pega o ultimo, ou seja o id do usuario pra renomear a foto

 

[*]idfoto = rs("id")

 

[*] For Each File in upload.Files 

 

[*]  If File.ImageType <> "UNKNOWN" and File.size < 50000 Then

 

[*] File.Copy server.MapPath(".")&"\"&npasta&"\" & idfoto & File.ext 

 

[*] 

 

[*]  File.Delete 

 

[*]

 

[*] foto4 = "http://www.site.com/"&npasta&"/" & idfoto & File.ext &""

 

[*] sqlup = "update ..." ' update com o endereço da imagem 

 

[*] conexao.execute(sqlup)

 

[*]

 

[*]

 

[*]

 

[*] else

 

[*] response.Redirect("cadastro_foto.asp?erro=2")

 

[*] 'nao é imagem

 

[*] end if

 

[*] Next

 

é isos ae, mano......

tudo comentadinho

[meirelles 0]

valew, to levando pra casa, amanha eu respondo o resultado, valew, muito obrigado pela ajuda, acho q agora vai, mais uma vez obrigado!

[meirelles 0]

uma dúvida, o usuario já tem uma foto, e quer atualizar, como eu faço pra remover a antiga e publicar a nova?NÃO CONSEGUI VISUALIZAR ISSO NO CÓDIGO, LEMBRANDO QUE O NOME DA FOTO É DIFERENTE DA FOTO ANTERIOR.

[Mário Monteiro 179]

você deve ter o caminho da foto então delete a partir dele e substitui pelo novo nome do arquivo postado

[meirelles 0]

ok, vou tentar

[Mário Monteiro 179]

ok, vou tentar

boa sorte e se precisar grita

[meirelles 0]

bem quebrei a cabeça, mas taí, alguma coisa eu aproveitei desses montam de ajuadas

 

ASP

[*]<%

 

[*]

 

[*]'resgato login do banco

 

[*]login = "meirelles"

 

[*]

 

[*]

 

[*]'declaro variavel

 

[*]dim objupload

 

[*]

 

[*]'crio obejeto upload

 

[*]On Error Resume Next 

 

[*]Set objupload = CreateObject("Persits.Upload")

 

[*]

 

[*]'verifico o tamanho do arquivo em bytes

 

[*]objupload.SetMaxSize 60000, True

 

[*]

 

[*]'uma forma de salvar o arquivo

 

[*]'objUpload.Save Server.MapPath("/")

 

[*]

 

[*]'outra forma de salvar o arquvo

 

[*]objupload.SaveVirtual("/upload/")

 

[*]

 

[*]'setei o arquivo para o arvido enviado

 

[*]set file = objupload.files("file1")

 

[*]

 

[*]'variavel por propriedade 

 

[*]nomearquivo = file.filename

 

[*]

 

[*]'variavel por propriedade 

 

[*]extensao = file.ext

 

[*]

 

[*]'retiro a extensao do nome do arquivo

 

[*]nomearquivo = replace(nomearquivo,extensao,"")

 

[*]

 

[*]'renomeio arquivo do jeito que eu quero

 

[*]nomearquivo= login + extensao

 

[*]

 

[*]objupload.Save Server.MapPath("/") & nomearquivo

 

[*]'duvida ta aqui

 

[*]'????????????????????????????????????????????????????????????

 

[*]'agora preciso salvar denovo com o nome alterado,como?

 

[*]'????????????????????????????????????????????????????????????

 

[*]

 

[*]'fim de mudanca

 

[*]

 

[*]'verifica tamanho de caracteres

 

[*]if err.number = 8 then

 

[*]On Error Resume Next 

 

[*]Response.Write "<font face=Verdana, Arial, Helvetica, sans-serif size=2><b>Tamanho do arquivo é maior que 60kb!<br><a href=java script:history.back(-1)>Voltar</a> </b></font>"

 

[*]response.end

 

[*]'verifica qualquer outro erro

 

[*]else If Err <> 0 Then 

 

[*] Response.Write "Erro ocorrido: " & Err.Description 

 

[*]else

 

[*]end if

 

[*]end if

 

[*]

 

[*]'verifica extensão do arquivo salvo

 

[*]For Each File in objUpload.Files

 

[*]if File.ImageType <> "JPG" and File.ImageType <> "GIF" Then

 

[*]Response.Write "Não é uma imagem com extensão *.JPG ou *.GIF!"

 

[*]File.Delete

 

[*]Response.End

 

[*]End If

 

[*]next

 

[*]

 

[*]'mostrar resultado do upload

 

[*]response.write "Sucesso!" & "<br>"

 

[*]response.write nomearquivo & "<br>"

 

[*]

 

[*]objupload = nothing

 

[*]%>

 

a duvida é:

 

eu consigo transformar um arquivo que se chama (foto.jpg) numa variavel

(meirelles.jpg) só que é como eu disse, numa variavel.

 

Resgato o file.filename e transformo o nome do arquivo em:

(login + extensao)

 

Deixa eu explicar, esse aspupload você tem que salvar o arquivo na pasta e depois vem fazendo as restrições, se for diferente de gif e jpg tu apaga ele, e assim por diante.

 

já que o arquivo está salvo, quando eu faço todas as restrições e ele passou por tudo sem dar erro então na verdade o arquivo permance na pasta, mas não é isso que eu quero, eu quero renomear o arquivo pelo nome da minha variavle(nomearquivo). tá froide

 

qualquer coisa estou no forum 8 sas 14 de hj. t+

 

t+