não consigo vizualizar as imagens uplodiadas

[fazeredo2002 0]

mas tiozinho todas as imagens sao jpg mesmo?? voce deve salvar com a extensao original...

<{POST_SNAPBACK}>

Mas todas são jpg... aliás o código não impede isso, posso uploadiar gifs, etc.

 

você já viu o código?

[Mário Monteiro 179]

não pois achei ele confuso...porque voce não separa o codigo que faz o upload pra ficar mais limpo o codigotipo como é feito no freeaspuploadalias este ultimo ja vem pronto pra ser usado e pra fazer quantos uploads quiser

[fazeredo2002 0]

não pois achei ele confuso...

 

porque voce não separa o codigo que faz o upload pra ficar mais limpo o codigo

 

tipo como é feito no freeaspupload

 

alias este ultimo ja vem pronto pra ser usado e pra fazer quantos uploads quiser

<{POST_SNAPBACK}>

O problema é que o código do dark0 já vem explicado como fazer com os exemplos e o freeaspupload só vem as funções, tem que fazer o resto no braço e eu sou muito iniciante em asp, já tentei e não consegui fazer upload com o free, consegui fazer somente fazer um upload simples com o código do dark0.

 

quem sabe você pode me ajudar com o free!

[Mário Monteiro 179]

quem sabe você pode me ajudar com o free!

com certeza...

 

inicie e va postando as duvidas aqui que te ajudo

[arr 0]

Tem um erros feios aqui:

 

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1)    Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto2)    Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto3)    Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto4)    Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto5)' ***Tudo isso aqui acima é inútil pq logo abaixo você seta o objeto novamente.' ****O script criou os arquivos sem conteudo, por isso que aparecem com 0 kb    Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto6) ' *******Aí você grava os binários somente uma vez******    For i = 1 to LenB(foto1)  MyFile.Write chr(AscB(MidB(foto1,i,1)))    Next    MyFile.Close

[arr 0]

Tente salvar um de cada vez:

 

If foto1<>"" Then  Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1)   For i = 1 to LenB(foto1)   MyFile.Write chr(AscB(MidB(foto1,i,1)))   Next  MyFile.Close  Set MyFile=NothingEnd IFIf foto2<>"" Then  Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto2)   For i = 1 to LenB(foto2)   MyFile.Write chr(AscB(MidB(foto2,i,1)))   Next  MyFile.CloseEnd IF.... e assim vai

Se quiser deixar o código mais "elegante" pode armazenar os binários num array e dar um Loop.

 

[]s