Persits - ASPUpload

[meirelles 0]

Não querendo ser chato e já sendo, eu tenho que usar upload de imagem usando o componente Persits - ASPUpload, já tenho instalado na minha máquina e a minha hospedagem é usado o mesmo.

 

vamos lá: UPLOAD FUNCIONA PRECÁRIAMENTE.

 

SÓ FAZ UPLOAD MAS NÃO TRATA DOS ERROS POSSÍVEIS. PRECISO E NÃO CONSIGO DE JEITO NENHUM!!!

 

* Preciso que meu código não permita entrada de arquivo que sejam diferentes de: jpg,gif,bmp,png.

 

* desejo resgatar o nome do arquivo e renomea-lo pelo id do mesmo membro

 

* tamanho máximo de 60kb(isso eu consegui)

 

* se for vazio dar erro.

 

o manual do componente está em: Documentação do componente

 

meu código:

ASP

[*]Dim objUpload

 

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

 

[*]' Tamanho máximo do arquivo, em bytes

 

[*]

 

[*]objUpload.SetMaxSize 150000, True

 

[*]

 

[*]x = objUpload.SaveVirtual("/portalbnb/fernando/upload/")

 

[*]

 

[*]Response.Write "Upload efetuado com sucesso"

 

[*]

 

[*]Set objUpload = Nothing

 

desde já sufocado, obrigado por me ajudarem!

[meirelles 0]

precisando só disso pra terminar, help me!

[meirelles 0]

ainda estou tentando e nada, 10 dias de luta

[guiamericano 0]

é que estou com pressa... mas veja se isto ajuda depois dou mais detalhes...

 

ASP

[*]

 

[*]<%

 

[*]

 

[*]Dim filename, upl

 

[*]

 

[*] sPasta = "../link_bares_baladas/logos/"

 

[*]

 

[*] 'Set upl = Server.CreateObject("SoftArtisans.FileUp")

 

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

 

[*]

 

[*] 'upl.Path = Server.MapPath(sPasta)

 

[*]

 

[*] 'upl.CreateNewFile = true

 

[*] upl.Save(Server.MapPath(sPasta))

 

[*] 'filename = Replace(Replace(Mid(upl.UserFilename, InstrRev(upl.UserFilename, "\") + 1), " ", "_"), "%", "_")

 

[*] 'upl.SaveAs filename

 

[*]

 

[*] dim file

 

[*]

 

[*] For Each file in upl.Files

 

[*] filename = file.Path

 

[*] Next

 

[*]

 

[*] FotoSn = Split(filename,"\")

 

[*] i = UBound(FotoSn)

 

[*]

 

[*] abreBanco()

 

[*]

 

[*] strSQL = "UPDATE bares_baladas SET img = '" & FotoSn(i) & "' WHERE cd = " & cd

 

[*]

 

[*]%>

 

[*]

[meirelles 0]

meio confuso pra mim, tem como comentar?existe essa possibilidade?* Preciso que meu código não permita entrada de arquivo que sejam diferentes de: jpg,gif,bmp,png.* desejo resgatar o nome do arquivo e renomea-lo pelo id do mesmo membro* tamanho máximo de 60kb* se for vazio dar erro.* caso usuario deseje alterar sua foto, não quero que ele faça um novo upload, preciso que ele sobrescreva.grato!

[guiamericano 0]

é que este código estava pronto para o AspUpload... e em ultima hora tive de adaptar pro Persists... existe a possibilidade de passar pro AspUpload?! que dai tenho ele certinho aqui com umas dessas suas necessidades... só faltando o negócio de se for vazio e de só aceitar .jpg ou imagens... isso eu fiz no javascript!!!!ah tbm num sei limitar o tamanho do arquivo!!!

[meirelles 0]

o meu host está configurado com persits, eu pago hospedagem entende,se puder me ajudar a configurar esse, serei muito grato. foi mal, mas eu ainda naum tenho servidor proprio, eu pago hospedagem restrito pra essas paradas, tem q ser o q eles disponibilizam!

[guiamericano 0]

entao vou explicar umas coisas que tem no codigo em comum com oque você quer...

num sei se servem pro persists tambem só testando!!!

 

ASP

[*]<%

 

[*] sPasta = "../link_bares_baladas/logos/" ' a pasta onde vai salvar

 

[*]

 

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

 

[*]

 

[*] upl.CreateNewFile = false  'pra sobrescrever

 

[*]

 

[*] filename = "novonome" 'renomeia

 

[*]

 

[*] upl.SaveAs(Server.MapPath(sPasta) & filename)

 

[*]

 

[*]

 

[*]%>

[meirelles 0]

no caso de renomear, como funciona a extensão?

 

ASP

[*] <%

 

[*] sPasta = "../link_bares_baladas/logos/" ' a pasta onde vai salvar

 

[*]

 

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

 

[*]

 

[*] upl.CreateNewFile = false  'pra sobrescrever

 

[*]

 

[*]'------posso fazer assim? como ficaria a extensão?

 

[*]

 

[*] id_membro = rs("id_membro")

 

[*] filename = filename & id_membro

 

[*]

 

[*]'-----------------------------------------

 

[*]

 

[*]' filename = "novonome" 'renomeia

 

[*]

 

[*] upl.SaveAs(Server.MapPath(sPasta) & filename)

 

[*]%>

[guiamericano 0]

puts ... esse persists eu num manjo muito... se você pegar a documentação dele deve ter...mas acho que assim ficaria melhor...filename = id_membro & ".jpg"

[meirelles 0]

CARA, O PERSITS É JUSTAMENTE O ASPUPLOAD, VE SE NUM É...

 

ASPUPLOAD

 

SE FOR O MESMO QUE NÓS ESTAMOS FALANDO beleza, TÁ RESOLVIDO O PROBLEMA.

[guiamericano 0]

desculpa confundi oque uso é o soft artisans file up

[meirelles 0]

valew, mas tá dificil pra mim amigos, 21 dias de luta e nada!

[Marcelo Barcellos 0]

Segue...

<%Set ObjUp = CreateObject("Persits.Upload")'========================================================'EXTENSÕES NÃO PERMITIDAS'========================================================ExtPermitidas = Array("jpg,gif,doc")fl_existe = FalseFor i = 0 To Objup.Files.Count - 1fl_existe = True For i2 = 0 to Ubound(ExtPermitidas)  if lcase(ObjUp.Files(i).Ext) <> ExtPermitidas(i2) then  Err.Raise 1,"Permissão","Voce incluiu um arquivo com uma extensão não permitida " & ObjUp.Files(i).Ext  End if Next'========================================================'SALVA O ARQUIVO COM O ID DO USUARIO'========================================================ObjUp.Save "C:\" & session("id_usuario") & "." & ObjUp.Files(i).Ext Nextif not fl_existe then Err.Raise 2,"Arquivo não enviado","Nenhum arquivo foi enviado o servidor!"End if%>

[meirelles 0]

caso seje um diretorio virtual, como ficaria...neste caso ele já renomea direto o arquivo de acordo com o session?

'========================================================'SALVA O ARQUIVO COM O ID DO USUARIO'========================================================ObjUp.Save "C:\" & session("id_usuario") & "." & ObjUp.Files(i).Ext Nextif not fl_existe thenErr.Raise 2,"Arquivo não enviado","Nenhum arquivo foi enviado o servidor!"End if%>

[Marcelo Barcellos 0]

No diretório virtual não se dá nomes a arquivos.

[meirelles 0]

deixa eu tentar ser mais claroObjUp.Save "C:\" & session("id_usuario") & "." & ObjUp.Files(i).Ext ObjUp.Save'comando que salva..."C:\" 'diretorio . obs: como seria um site?& session("id_usuario") 'nome do arquivo, seria isso mesmo?& "." & ObjUp.Files(i).Ext 'a extensao do arquivo enviadoseria isso?

[Marcelo Barcellos 0]

Certo..Voce está dizendo que não sabe o endereço físico exato, então utilizamos "Server.mapPath"...No caso da Sessao que coloquei é só um exemplo, voce pode altera-lo da maneira que quiser....

[meirelles 0]

ok. vou testar, valew!

[Zenner 0]

Turma.. seguinteMeu formulario é um form de cadastro com foto, só q o campo foto nao é requerido. O cabra pode enviar como pode nao enviar. Esse mesmo form eu utiliza tanto pra alterar qto pra inserir..Qdo o cabra cadastra e coloca a foto tudo funciona, mas qdo ele nao manda a foto a coisa enrosca e dá erro.Se o cabra coloca a figura ele ja grava certinho como eu quero agora o problema é:Como fazer para verificar se veioa foto ou nao e executar os scripts somente da captura dos dados e colcoar no bd?? Comof azer pra saber se veio arq ou não e poder com isso processar parte do cod q eu quero?? :blink: