Upload sem componentes

ricardo.frias · Outubro 18, 2006

Dark0, na verdade o que estou fazendo é o seguinte. Tenho 2 combos, 1 de categoria e outro de sub-categoria, qdo seleciono uma categoria ele preenche a combo sub-categoria, ou seja, chama a mesma página novamente passando a categoria pro combo sub-categoria.

<script language="Javascript">

function sub()

{

form1.action = ('adm_inserir_empresaX.asp');

form1.submit();

}

</script>

<select name="categoria" size=1 onChange="sub()" style="background-color: #ffffff; color: #333333; font-family: Verdana; font-size: 8 pt; border: 1 solid #333333">

tentei recuperar a variavel categoria dessas formas:

categoria = UploadRequest.Item("categoria").Item("Value")

categoria = Request("categoria")

mas nenhuma das 2 funciona...

Vlw pela ajuda

[]'s

jrcardozo · Outubro 19, 2006

ae dark, tentei usar o código deste link http://forum.imasters.com.br/index.php?sho...mp;#entry658611

Pois bem, faz upload na boa, mas tem um erro, ele não verifica o tipo de arquivo...veja só um techo do código:

tipo_arquivo = UploadRequest.Item("arquivo").Item("ContentType")extensoesOk = ".gif,.jpg,.txt,.doc,.exe,.xls,.bat,.ppt,.zip,.rar,.iso,.ini,.dll"exte = split(extensoesOk,",")a = 0for i=0 to ubound(exte)if Lcase(tipo_arquivo) = exte(i) thena_ = 1end ifnext

dei um response.write(tipo_arquivo) e não retorna a extensão. Qual a propriedade da função de upload que podemos usar para pegar a somente extensão para comparar no array?

dark0 · Outubro 19, 2006

jonathanacabei de testar:

' Tipo de arquivo que esta sendo enviado tipo_arquivo = split(UploadRequest.Item("arquivo").Item("FileName"),".") tipo_arquivo_2 = "." & tipo_arquivo(ubound(tipo_arquivo)) extensoesOk = ".gif,.jpg,.txt,.doc,.xls,.bat,.ppt,.zip,.rar,.exe,.iso,.ini,.dll" exte = split(extensoesOk,",") a = 0 for i=0 to ubound(exte) if trim(Lcase(tipo_arquivo_2)) = trim(exte(i)) then a = 1 end if next if a <> 1 then response.write "<center>Tipo de arquivo inválido!<br>" response.write "Os arquivos permitidos são: "& extensoesOk & "<br>" response.write "Qualquer outra extensao não será permitida!</center>" response.end end if

veja que eu alterei usando o nome do arquivo enviado neh?qq coisa, postaeAbraço----------------------------------olá ricardocomo esta seu form?axo q se você esta redirecionando ..só pra alterar o valor do combo ..é mais apropriado ..você nao dar submit no form.E sim ..utilizar somente redirecionamento de URL ..passando como parametro o valor.Assim ..o request vai funcionar na boa.Pois ..com um formulario com campo FILE ..o request nao funciona nao ..ae você teria q colocar a pagina de funcoes como include na pagina do formulario ..e ae poder usar o comando uploadRequest("....")Tendeu?Axo mais facil você simplesmente alterar seu codigo ..usando somente redirecionamento ..na hora dos combos ..e deixar o submit no formulario somente quando for executar o upload.Abraço..

jrcardozo · Outubro 19, 2006

alguem sabe como verificar o tamanho do arquivo para limitar o máximi de kb no upload?aproveitando...se conseguir pegar o tabanho do arquivo, dá pra fazer um progressbar para exibir durante o upload? se tem, como se faz?

dark0 · Outubro 20, 2006

bemesse lance de progress bar ..acho mto poco provavel..pois alguns componentes vem com essa funcionalidade neles mesmo..Entao.. nao sei se conseguiriamos incluir nesse script.Mas ..sabe neh.. tendo uma logica ..tudo eh possivel ..heheAndei pesquisando sobre como pegar o tamanho do arquivo pelo asp antes do upload ..mas ainda nao achei nada

jrcardozo · Outubro 20, 2006

valeu pelo interesse, se eu encontrar algo te aviso

jrcardozo · Outubro 20, 2006

achei esse mesclado com javascript, será que ele mostra o status real do upload? acho que ele não passa de uma barra de progresso que "substitui" o do browser

<%@ Language=VBScript %><%Option explicit'-----------------------------------------sub main()Dim countinner, countouter, count1, count2, j,k'if Request.Form ("Submit") = "Submit" then'else call display 'end ifend sub'-----------------------------------------sub display()%> <html> <head> <title>Progress Bar</title> <script language="javascript"> <!-- var timerID = null; var timerRunning = false; var timeValue = 1000;  //the time increment in mS var count = 0; var finish = false; //load up the images for the progress bar image00 = new Image(); image00.src='image-00.gif'; image01 = new Image(); image01.src='image-01.gif'; image02 = new Image(); image02.src='image-02.gif'; image03 = new Image(); image03.src='image-03.gif'; image04 = new Image(); image04.src='image-04.gif'; image05 = new Image(); image05.src='image-05.gif'; image06 = new Image(); image06.src='image-06.gif'; image07 = new Image(); image07.src='image-07.gif'; image08 = new Image(); image08.src='image-08.gif'; image09 = new Image(); image09.src='image-09.gif'; image10 = new Image(); image10.src='image-10.gif'; function increment() {  count += 1;  if (count == 0) {document.images.bar.src=image00.src;}  if (count == 1) {document.images.bar.src=image01.src;}  if (count == 2) {document.images.bar.src=image02.src;}  if (count == 3) {document.images.bar.src=image03.src;}  if (count == 4) {document.images.bar.src=image04.src;}  if (count == 5) {document.images.bar.src=image05.src;}  if (count == 6) {document.images.bar.src=image06.src;}  if (count == 7) {document.images.bar.src=image07.src;}  if (count == 8) {document.images.bar.src=image08.src;}  if (count == 9) {document.images.bar.src=image09.src;}  //If you want it to repeat the bar continuously then use this line:  if (count == 10) {document.images.bar.src=image10.src; count=-1;}  //If you want it to stop repeating the bar then use this line:  //if (count == 10) {document.images.bar.src=image10.src; end();} } function stopclock() {  if (timerRunning)   clearInterval(timerID);  timerRunning = false;  } function end() {  if (finish == true) {   stopclock();   window.close();  }  else {   finish = true;   } } function startclock() {    stopclock();  timerID = setInterval("increment()", timeValue);  timerRunning = true;  document.images.bar.src=image00.src; } function Send_onclick(frmSubmit) {  startclock();  frmSubmit.submit();    } //--> </script>    <head> <body>  Please wait.<br><br> <img src="image-00.gif" name="bar" align="middle"> <form name="frmProgressBar" action="finish.asp" method="post"> <INPUT type="submit" value="Submit" name="Submit" LANGUAGE=javascript onclick="return Send_onclick(frmProgressBar)"> </form>   </body> </html><%end sub'-----------------------------------------call main%>

ricardo.frias · Outubro 22, 2006

Dark, entendi sim, mas não to conseguindo fazer usando o REDIRECIONAMENTO, pois sempre fiz usando SUBMIT, será que você pode me dar um help? http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

Valeu pela força

[]'s

dark0 · Outubro 23, 2006

Dark, entendi sim, mas não to conseguindo fazer usando o REDIRECIONAMENTO, pois sempre fiz usando SUBMIT, será que você pode me dar um help? http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

Valeu pela força

[]'s

tó um exemplo:

<select name="categoria" id="categoria" size=1 onChange="sub()" style="background-color: #ffffff; color: #333333; font-family: Verdana; font-size: 8 pt; border: 1 solid #333333">

<option value="opcao1">opcao1</option>

<option value="opcao2">opcao2</option>

<option value="opcao3">opcao3</option>

</select>

<script language="Javascript">

function sub()

{

window.location = 'adm_inserir_empresaX.asp?categoria='+document.getElementById("categoria").value;

}

</script>

ricardo.frias · Outubro 24, 2006

Ae Dark funfou certinho... http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

Vlw

[]'s

dark0 · Outubro 24, 2006

beleza caraqq coisa postaeabraço

Bruno Kinoshita · Outubro 31, 2006

:o :o Olaaa galera, to precisando de uma ajudinha de vocÊs...eu estou usando este script pra fazer os uploads, mais tem um probleminhaquando outro usuário envia uma foto com o mesmo nome ela substitui a outraalguem tem alguma sugestão para renomear automático, e gravar o nome ja renomeado no banco??para ficar por exemplo:eu_01eu_02Obrigado!!!Bruno Kinoshitabrunokino[at]gmail.comwww.vivaolinux.com.br

Mário Monteiro · Outubro 31, 2006

acres enta algo no nome como a data e hora de gravação

jrcardozo · Outubro 31, 2006

use fso e renomeia como o mario falou, ou então, se as fotos ficam no db com chave primaria, insere no banco e altera para o nome da chave primaria

dark0 · Novembro 1, 2006

poe o nome do usuario que enviou a foto ..junto com o nome final dela..tipO:dark_foto01.jpgmario_foto01.jpge assim vai..

Cido Silva · Novembro 6, 2006

Bom Dia Dark0 e toda a galera. Gostei do sistema de upload sem componentes, fiz ele funcionar com até 10 arquivos simultâneos, tentei subir para 20 arquivos, como são 10 thumbs e 10 fotos, com média de 40kb cada dupla, o que daria um tamanho total de até 410kb, achei q que suportaria subir. O problema é que eu devo ter errado no código e dá um erro.

veja o código da página upload-form.asp

<%

' Chamando Funções, que fazem o Upload funcionar

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)

Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

' Recuperando os Dados Digitados ----------------------

Texto0 = UploadRequest.Item("Texto0").Item("Value")

Texto1 = UploadRequest.Item("Texto1").Item("Value")

Texto2 = UploadRequest.Item("Texto2").Item("Value")

Texto3 = UploadRequest.Item("Texto3").Item("Value")

Texto4 = UploadRequest.Item("Texto4").Item("Value")

Texto5 = UploadRequest.Item("Texto5").Item("Value")

Texto6 = UploadRequest.Item("Texto6").Item("Value")

Texto7 = UploadRequest.Item("Texto7").Item("Value")

Texto8 = UploadRequest.Item("Texto8").Item("Value")

Texto9 = UploadRequest.Item("Texto9").Item("Value")

' Tipo de arquivo que esta sendo enviado

tipo_foto0 = UploadRequest.Item("foto0").Item("ContentType")

tipo_foto1 = UploadRequest.Item("foto1").Item("ContentType")

tipo_foto2 = UploadRequest.Item("foto2").Item("ContentType")

tipo_foto3 = UploadRequest.Item("foto3").Item("ContentType")

tipo_foto4 = UploadRequest.Item("foto4").Item("ContentType")

tipo_foto5 = UploadRequest.Item("foto5").Item("ContentType")

tipo_foto6 = UploadRequest.Item("foto6").Item("ContentType")

tipo_foto7 = UploadRequest.Item("foto7").Item("ContentType")

tipo_foto8 = UploadRequest.Item("foto8").Item("ContentType")

tipo_foto9 = UploadRequest.Item("foto9").Item("ContentType")

tipo_thumbs0 = UploadRequest.Item("thumbs0").Item("ContentType")

tipo_thumbs1 = UploadRequest.Item("thumbs1").Item("ContentType")

tipo_thumbs2 = UploadRequest.Item("thumbs2").Item("ContentType")

tipo_thumbs3 = UploadRequest.Item("thumbs3").Item("ContentType")

tipo_thumbs4 = UploadRequest.Item("thumbs4").Item("ContentType")

tipo_thumbs5 = UploadRequest.Item("thumbs5").Item("ContentType")

tipo_thumbs6 = UploadRequest.Item("thumbs6").Item("ContentType")

tipo_thumbs7 = UploadRequest.Item("thumbs7").Item("ContentType")

tipo_thumbs8 = UploadRequest.Item("thumbs8").Item("ContentType")

tipo_thumbs9 = UploadRequest.Item("thumbs9").Item("ContentType")

' Caminho completo dos arquivos enviados (Nessa parte dá o erro)

caminho_foto0 = UploadRequest.Item("foto0").Item("FileName")

caminho_foto1 = UploadRequest.Item("foto1").Item("FileName")

caminho_foto2 = UploadRequest.Item("foto2").Item("FileName")

caminho_foto3 = UploadRequest.Item("foto3").Item("FileName")

caminho_foto4 = UploadRequest.Item("foto4").Item("FileName")

caminho_foto5 = UploadRequest.Item("foto5").Item("FileName")

caminho_foto6 = UploadRequest.Item("foto6").Item("FileName")

caminho_foto7 = UploadRequest.Item("foto7").Item("FileName")

caminho_foto8 = UploadRequest.Item("foto8").Item("FileName")

caminho_foto9 = UploadRequest.Item("foto9").Item("FileName")

caminho_thumbs0 = UploadRequest.Item("thumbs0").Item("FileName")

caminho_thumbs1 = UploadRequest.Item("thumbs1").Item("FileName")

caminho_thumbs2 = UploadRequest.Item("thumbs2").Item("FileName")

caminho_thumbs3 = UploadRequest.Item("thumbs3").Item("FileName")

caminho_thumbs4 = UploadRequest.Item("thumbs4").Item("FileName")

caminho_thumbs5 = UploadRequest.Item("thumbs5").Item("FileName")

caminho_thumbs6 = UploadRequest.Item("thumbs6").Item("FileName")

caminho_thumbs7 = UploadRequest.Item("thumbs7").Item("FileName")

caminho_thumbs8 = UploadRequest.Item("thumbs8").Item("FileName")

caminho_thumbs9 = UploadRequest.Item("thumbs9").Item("FileName")

' Nome dos arquivos enviados

nome_foto0 = Right(caminho_foto0,Len(caminho_foto0)-InstrRev(caminho_foto0,"\"))

nome_foto1 = Right(caminho_foto1,Len(caminho_foto1)-InstrRev(caminho_foto1,"\"))

nome_foto2 = Right(caminho_foto2,Len(caminho_foto2)-InstrRev(caminho_foto2,"\"))

nome_foto3 = Right(caminho_foto3,Len(caminho_foto3)-InstrRev(caminho_foto3,"\"))

nome_foto4 = Right(caminho_foto4,Len(caminho_foto4)-InstrRev(caminho_foto4,"\"))

nome_foto5 = Right(caminho_foto5,Len(caminho_foto5)-InstrRev(caminho_foto5,"\"))

nome_foto6 = Right(caminho_foto6,Len(caminho_foto6)-InstrRev(caminho_foto6,"\"))

nome_foto7 = Right(caminho_foto7,Len(caminho_foto7)-InstrRev(caminho_foto7,"\"))

nome_foto8 = Right(caminho_foto8,Len(caminho_foto8)-InstrRev(caminho_foto8,"\"))

nome_foto9 = Right(caminho_foto9,Len(caminho_foto9)-InstrRev(caminho_foto9,"\"))

nome_thumbs0 = Right(caminho_thumbs0,Len(caminho_thumbs0)-InstrRev(caminho_thumbs0,"\"))

nome_thumbs1 = Right(caminho_thumbs1,Len(caminho_thumbs1)-InstrRev(caminho_thumbs1,"\"))

nome_thumbs2 = Right(caminho_thumbs2,Len(caminho_thumbs2)-InstrRev(caminho_thumbs2,"\"))

nome_thumbs3 = Right(caminho_thumbs3,Len(caminho_thumbs3)-InstrRev(caminho_thumbs3,"\"))

nome_thumbs4 = Right(caminho_thumbs4,Len(caminho_thumbs4)-InstrRev(caminho_thumbs4,"\"))

nome_thumbs5 = Right(caminho_thumbs5,Len(caminho_thumbs5)-InstrRev(caminho_thumbs5,"\"))

nome_thumbs6 = Right(caminho_thumbs6,Len(caminho_thumbs6)-InstrRev(caminho_thumbs6,"\"))

nome_thumbs7 = Right(caminho_thumbs7,Len(caminho_thumbs7)-InstrRev(caminho_thumbs7,"\"))

nome_thumbs8 = Right(caminho_thumbs8,Len(caminho_thumbs8)-InstrRev(caminho_thumbs8,"\"))

nome_thumbs9 = Right(caminho_thumbs9,Len(caminho_thumbs9)-InstrRev(caminho_thumbs9,"\"))

' Conteudo binario dos arquivos enviados

foto0 = UploadRequest.Item("foto0").Item("Value")

foto1 = UploadRequest.Item("foto1").Item("Value")

foto2 = UploadRequest.Item("foto2").Item("Value")

foto3 = UploadRequest.Item("foto3").Item("Value")

foto4 = UploadRequest.Item("foto4").Item("Value")

foto5 = UploadRequest.Item("foto5").Item("Value")

foto6 = UploadRequest.Item("foto6").Item("Value")

foto7 = UploadRequest.Item("foto7").Item("Value")

foto8 = UploadRequest.Item("foto8").Item("Value")

foto9 = UploadRequest.Item("foto9").Item("Value")

thumbs0 = UploadRequest.Item("thumbs0").Item("Value")

thumbs1 = UploadRequest.Item("thumbs1").Item("Value")

thumbs2 = UploadRequest.Item("thumbs2").Item("Value")

thumbs3 = UploadRequest.Item("thumbs3").Item("Value")

thumbs4 = UploadRequest.Item("thumbs4").Item("Value")

thumbs5 = UploadRequest.Item("thumbs5").Item("Value")

thumbs6 = UploadRequest.Item("thumbs6").Item("Value")

thumbs7 = UploadRequest.Item("thumbs7").Item("Value")

thumbs8 = UploadRequest.Item("thumbs8").Item("Value")

thumbs9 = UploadRequest.Item("thumbs9").Item("Value")

' pasta onde as imagens serao guardadas

pasta = Server.MapPath("imagens/")

nome_foto0 = "/"&nome_foto0

nome_foto1 = "/"&nome_foto1

nome_foto2 = "/"&nome_foto2

nome_foto3 = "/"&nome_foto3

nome_foto4 = "/"&nome_foto4

nome_foto5 = "/"&nome_foto5

nome_foto6 = "/"&nome_foto6

nome_foto7 = "/"&nome_foto7

nome_foto8 = "/"&nome_foto8

nome_foto9 = "/"&nome_foto9

nome_thumbs0 = "/"&nome_thumbs0

nome_thumbs1 = "/"&nome_thumbs1

nome_thumbs2 = "/"&nome_thumbs2

nome_thumbs3 = "/"&nome_thumbs3

nome_thumbs4 = "/"&nome_thumbs4

nome_thumbs5 = "/"&nome_thumbs5

nome_thumbs6 = "/"&nome_thumbs6

nome_thumbs7 = "/"&nome_thumbs7

nome_thumbs8 = "/"&nome_thumbs8

nome_thumbs9 = "/"&nome_thumbs9

' pasta + nome dos arquivos

foto0 = "imagens/lojas" + nome_foto0

foto1 = "imagens/lojas" + nome_foto1

foto2 = "imagens/lojas" + nome_foto2

foto3 = "imagens/lojas" + nome_foto3

foto4 = "imagens/lojas" + nome_foto4

foto5 = "imagens/lojas" + nome_foto5

foto6 = "imagens/lojas" + nome_foto6

oto7 = "imagens/lojas" + nome_foto7

foto8 = "imagens/lojas" + nome_foto8

foto9 = "imagens/lojas" + nome_foto9

thumbs0 = "imagens/lojas" + nome_thumbs0

thumbs1 = "imagens/lojas" + nome_thumbs1

thumbs2 = "imagens/lojas" + nome_thumbs2

thumbs3 = "imagens/lojas" + nome_thumbs3

thumbs4 = "imagens/lojas" + nome_thumbs4

cthumbs5 = "imagens/lojas" + nome_thumbs5

thumbs6 = "imagens/lojas" + nome_thumbs6

thumbs7 = "imagens/lojas" + nome_thumbs7

thumbs8 = "imagens/lojas" + nome_thumbs8

thumbs9 = "imagens/lojas" + nome_thumbs9

' Fazendo o Upload do arquivo selecionado

if foto0 <> "" then