fazeredo2002 0 Denunciar post Postado Agosto 26, 2005 olá é possível sim.. eu ja usei este esquema para enviar 5 fotos ao mesmo tempo nao tem misterio.. é só você repetir as linhas do codigo que apontam para o campo file, no form e depois no codigo de upload.. em base eh isso.. <{POST_SNAPBACK}> Dark0, esse código é muito bom mesmo... Fiz umas adaptações no seu código... envio 6 fotos ao mesmo tempo, mas somente dá pra vizualizar a foto6. Tem idéia do que seja? Compartilhar este post Link para o post Compartilhar em outros sites
fazeredo2002 0 Denunciar post Postado Agosto 26, 2005 olá é possível sim.. eu ja usei este esquema para enviar 5 fotos ao mesmo tempo nao tem misterio.. é só você repetir as linhas do codigo que apontam para o campo file, no form e depois no codigo de upload.. em base eh isso.. <{POST_SNAPBACK}> Dark0! Sem querer abusar da sorte... tem como você me dar um exemplo usando pelo menos 2 uploads ao mesmo tempo? É que já perguntei tanto nesse fórum a respeito, mas ninguém dá uma resposta que me ajude realmente! É só dizer onde eu faço, que nós vamos fazer funfa! Espero um retorno seu... se sim ou não. Abraços. Obs.: Se você quiser, eu posto o código adaptado! Caso queira, quais dos três códigos. Compartilhar este post Link para o post Compartilhar em outros sites
dark0 0 Denunciar post Postado Agosto 26, 2005 brother, quando eu for pra casa, eu te dou um exemplo entao.pode ser?eu estive meio off uns dias, mas to conseguindo dar a volta por cima.. hehesabe como é.. excesso de trabalho compete bastante com os foruns :P abraços Compartilhar este post Link para o post Compartilhar em outros sites
fazeredo2002 0 Denunciar post Postado Agosto 26, 2005 brother, quando eu for pra casa, eu te dou um exemplo entao. pode ser? eu estive meio off uns dias, mas to conseguindo dar a volta por cima.. hehe sabe como é.. excesso de trabalho compete bastante com os foruns :P abraços <{POST_SNAPBACK}> Ei sei que o trabalho compete, mas você fazem um trabalho muito nobre ajudando as pessoas nos fóruns... Este ato é louvável. Fico ancioso pelo seu exemplo! Abraços... Fabiano. Compartilhar este post Link para o post Compartilhar em outros sites
dark0 0 Denunciar post Postado Agosto 27, 2005 Bueno.. Aqui estamos nós, heeh Eu fiz um exemplo simples aqui, testei, e funfou. Eu peguei os codigos que eu havia postado no primeiro post desse topico, alterei para 2 campos de fotos. Vou postar aqui, salientando em vermelho as linhas adicionadas. upload_form.asp <!-- #include file = "upload_funcoes.asp" --> <table> <form name="form1" action="upload_form2.asp" method="post" enctype="multipart/form-data"> <tr> <td>Nome:</td> <td><input type="text" name="nome" size="20"></td> </tr> <tr> <td>E-mail:</td> <td><input type="text" name="email" size="20"></td> </tr> <tr> <td>Foto:</td> <td><input type="file" name="foto" size="14"></td> </tr> <tr> <td>Foto 2:</td> <td><input type="file" name="foto2" size="14"></td> </tr> <tr> <td colspan="2"><input type="submit" name="submit" value="Enviar"></td> </tr> </form> </table> upload_form2.asp <!-- #include file = "upload_funcoes.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 ---------------------- nome = UploadRequest.Item("nome").Item("Value") email = UploadRequest.Item("email").Item("Value") ' Tipo de arquivo que esta sendo enviado tipo_foto = UploadRequest.Item("foto").Item("ContentType") tipo_foto2 = UploadRequest.Item("foto2").Item("ContentType") ' Caminho completo dos arquivos enviados caminho_foto = UploadRequest.Item("foto").Item("FileName") caminho_foto2 = UploadRequest.Item("foto2").Item("FileName") ' Nome dos arquivos enviados nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\")) nome_foto2 = Right(caminho_foto2,Len(caminho_foto2)-InstrRev(caminho_foto2,"\")) ' Conteudo binario dos arquivos enviados foto = UploadRequest.Item("foto").Item("Value") foto2 = UploadRequest.Item("foto2").Item("Value") ' pasta onde as imagens serao guardadas pasta = Server.MapPath("imagens/") nome_foto = "/"&nome_foto nome_foto2 = "/"&nome_foto2 ' pasta + nome dos arquivos cfoto = "imagens/lojas" + nome_foto cfoto2 = "imagens/lojas" + nome_foto2 ' Fazendo o Upload do arquivo selecionado if foto <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto) For i = 1 to LenB(foto) MyFile.Write chr(AscB(MidB(foto,i,1))) Next MyFile.Close end if if foto2 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto2) For i = 1 to LenB(foto2) MyFile.Write chr(AscB(MidB(foto2,i,1))) Next MyFile.Close end if ' Conecta-se ao Banco de Dados url_conexao = Server.MapPath("banco.mdb") set conexao = Server.CreateObject("ADODB.Connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao ' cadastra os dados no banco de dados sql = "Insert into lojas (nome,email,foto,foto2) values ('"& nome &"', '"& email &"', '"& cfoto &"', '"& cfoto2 &"')" Conexao.Execute(sql) ' Mostra Mensagem de Confirmação na Tela Response.write "Dados Cadastrados com Sucesso!" ' Redireciona após 5 segundos response.write "<br><br>você será redirecionado em 5 segundos..<br>" response.write "<meta http-equiv='refresh' content='5; url=index.asp'/>" %> upload_funcoes.asp (Nao foi alterado) <% ' Upload Sem componentes --------------------------------------- Sub BuildUploadRequest(RequestBin) on error resume next PosBeg = 1 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13))) boundary = MidB(RequestBin, PosBeg, PosEnd - PosBeg) BoundaryPos = InStrB(1, RequestBin, boundary) Do Until (BoundaryPos = InStrB(RequestBin, boundary & getByteString("--"))) Dim UploadControl Set UploadControl = CreateObject("Scripting.Dictionary") Pos = InStrB(BoundaryPos, RequestBin, getByteString("Content-Disposition")) Pos = InStrB(Pos, RequestBin, getByteString("name=")) PosBeg = Pos + 6 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34))) Name = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg)) PosFile = InStrB(BoundaryPos, RequestBin, getByteString("filename=")) PosBound = InStrB(PosEnd, RequestBin, boundary) If PosFile <> 0 And (PosFile < PosBound) Then PosBeg = PosFile + 10 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34))) FileName = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg)) UploadControl.Add "FileName", FileName Pos = InStrB(PosEnd, RequestBin, getByteString("Content-Type:")) PosBeg = Pos + 14 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13))) ContentType = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg)) UploadControl.Add "ContentType", ContentType PosBeg = PosEnd + 4 PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2 Value = MidB(RequestBin, PosBeg, PosEnd - PosBeg) Else Pos = InStrB(Pos, RequestBin, getByteString(Chr(13))) PosBeg = Pos + 4 PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2 Value = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg)) End If UploadControl.Add "Value", Value UploadRequest.Add Name, UploadControl BoundaryPos = InStrB(BoundaryPos + LenB(boundary), RequestBin, boundary) Loop End Sub Function getByteString(StringStr) For i = 1 To Len(StringStr) Char = Mid(StringStr, i, 1) getByteString = getByteString & ChrB(AscB(Char)) Next End Function Function getString(StringBin) getString = "" For intCount = 1 To LenB(StringBin) getString = getString & Chr(AscB(MidB(StringBin, intCount, 1))) Next End Function ' Fim upload sem Componentes ----------------------------------------- %> Ressaltando somente o fato de ter criado tambem, mais um campo do tipo texto, na tabela do banco de dados. Veja se consegue entender a logica do esquema. Aparentemente é simples, basta você duplicar tudo o que contiver foto no meio.. caminho, tipo, nome, e etc.. Qualquer coisa posta ae abraços Compartilhar este post Link para o post Compartilhar em outros sites
fazeredo2002 0 Denunciar post Postado Agosto 27, 2005 Bueno.. Aqui estamos nós, heeh Eu fiz um exemplo simples aqui, testei, e funfou. Eu peguei os codigos que eu havia postado no primeiro post desse topico, alterei para 2 campos de fotos. Vou postar aqui, salientando em vermelho as linhas adicionadas. upload_form.asp <!-- #include file = "upload_funcoes.asp" --> <table> <form name="form1" action="upload_form2.asp" method="post" enctype="multipart/form-data"> <tr> <td>Nome:</td> <td><input type="text" name="nome" size="20"></td> </tr> <tr> <td>E-mail:</td> <td><input type="text" name="email" size="20"></td> </tr> <tr> <td>Foto:</td> <td><input type="file" name="foto" size="14"></td> </tr> <tr> <td>Foto 2:</td> <td><input type="file" name="foto2" size="14"></td> </tr> <tr> <td colspan="2"><input type="submit" name="submit" value="Enviar"></td> </tr> </form> </table> upload_form2.asp <!-- #include file = "upload_funcoes.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 ---------------------- nome = UploadRequest.Item("nome").Item("Value") email = UploadRequest.Item("email").Item("Value") ' Tipo de arquivo que esta sendo enviado tipo_foto = UploadRequest.Item("foto").Item("ContentType") tipo_foto2 = UploadRequest.Item("foto2").Item("ContentType") ' Caminho completo dos arquivos enviados caminho_foto = UploadRequest.Item("foto").Item("FileName") caminho_foto2 = UploadRequest.Item("foto2").Item("FileName") ' Nome dos arquivos enviados nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\")) nome_foto2 = Right(caminho_foto2,Len(caminho_foto2)-InstrRev(caminho_foto2,"\")) ' Conteudo binario dos arquivos enviados foto = UploadRequest.Item("foto").Item("Value") foto2 = UploadRequest.Item("foto2").Item("Value") ' pasta onde as imagens serao guardadas pasta = Server.MapPath("imagens/") nome_foto = "/"&nome_foto nome_foto2 = "/"&nome_foto2 ' pasta + nome dos arquivos cfoto = "imagens/lojas" + nome_foto cfoto2 = "imagens/lojas" + nome_foto2 ' Fazendo o Upload do arquivo selecionado if foto <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto) For i = 1 to LenB(foto) MyFile.Write chr(AscB(MidB(foto,i,1))) Next MyFile.Close end if if foto2 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto2) For i = 1 to LenB(foto2) MyFile.Write chr(AscB(MidB(foto2,i,1))) Next MyFile.Close end if ' Conecta-se ao Banco de Dados url_conexao = Server.MapPath("banco.mdb") set conexao = Server.CreateObject("ADODB.Connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao ' cadastra os dados no banco de dados sql = "Insert into lojas (nome,email,foto,foto2) values ('"& nome &"', '"& email &"', '"& cfoto &"', '"& cfoto2 &"')" Conexao.Execute(sql) ' Mostra Mensagem de Confirmação na Tela Response.write "Dados Cadastrados com Sucesso!" ' Redireciona após 5 segundos response.write "<br><br>você será redirecionado em 5 segundos..<br>" response.write "<meta http-equiv='refresh' content='5; url=index.asp'/>" %> upload_funcoes.asp (Nao foi alterado) <% ' Upload Sem componentes --------------------------------------- Sub BuildUploadRequest(RequestBin) on error resume next PosBeg = 1 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13))) boundary = MidB(RequestBin, PosBeg, PosEnd - PosBeg) BoundaryPos = InStrB(1, RequestBin, boundary) Do Until (BoundaryPos = InStrB(RequestBin, boundary & getByteString("--"))) Dim UploadControl Set UploadControl = CreateObject("Scripting.Dictionary") Pos = InStrB(BoundaryPos, RequestBin, getByteString("Content-Disposition")) Pos = InStrB(Pos, RequestBin, getByteString("name=")) PosBeg = Pos + 6 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34))) Name = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg)) PosFile = InStrB(BoundaryPos, RequestBin, getByteString("filename=")) PosBound = InStrB(PosEnd, RequestBin, boundary) If PosFile <> 0 And (PosFile < PosBound) Then PosBeg = PosFile + 10 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34))) FileName = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg)) UploadControl.Add "FileName", FileName Pos = InStrB(PosEnd, RequestBin, getByteString("Content-Type:")) PosBeg = Pos + 14 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13))) ContentType = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg)) UploadControl.Add "ContentType", ContentType PosBeg = PosEnd + 4 PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2 Value = MidB(RequestBin, PosBeg, PosEnd - PosBeg) Else Pos = InStrB(Pos, RequestBin, getByteString(Chr(13))) PosBeg = Pos + 4 PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2 Value = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg)) End If UploadControl.Add "Value", Value UploadRequest.Add Name, UploadControl BoundaryPos = InStrB(BoundaryPos + LenB(boundary), RequestBin, boundary) Loop End Sub Function getByteString(StringStr) For i = 1 To Len(StringStr) Char = Mid(StringStr, i, 1) getByteString = getByteString & ChrB(AscB(Char)) Next End Function Function getString(StringBin) getString = "" For intCount = 1 To LenB(StringBin) getString = getString & Chr(AscB(MidB(StringBin, intCount, 1))) Next End Function ' Fim upload sem Componentes ----------------------------------------- %> Ressaltando somente o fato de ter criado tambem, mais um campo do tipo texto, na tabela do banco de dados. Veja se consegue entender a logica do esquema. Aparentemente é simples, basta você duplicar tudo o que contiver foto no meio.. caminho, tipo, nome, e etc.. Qualquer coisa posta ae abraços <{POST_SNAPBACK}> Karaca véio... funfu na moral! Dark0, eu estava errando no if do código ação do form... estava fazendo apenas 1 if pra todas as fotos, daí ele fazia o upload, mas somente dos nomes, o conteúdo da foto não enviava. Muito obrigado cara... não tenho mais dúvidos sobre uploads! http://forum.imasters.com.br/public/style_emoticons/default/blush.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif Compartilhar este post Link para o post Compartilhar em outros sites
dark0 0 Denunciar post Postado Agosto 27, 2005 beleza caranesse ultimo post, onde eu coloquei os codigos, acho que nao ficou duvidas de como acrescentar mais campos, né?Basta duplicar as linhas vermelhas e alterar para o nome que você especificar.. Aparentemente ficou barbada, heheheBem.. qualquer duvida nesse topico, podem falar postar aqui, que eu ajudarei de boa.Abraços Compartilhar este post Link para o post Compartilhar em outros sites
fazeredo2002 0 Denunciar post Postado Agosto 31, 2005 beleza cara nesse ultimo post, onde eu coloquei os codigos, acho que nao ficou duvidas de como acrescentar mais campos, né? Basta duplicar as linhas vermelhas e alterar para o nome que você especificar.. Aparentemente ficou barbada, hehehe Bem.. qualquer duvida nesse topico, podem falar postar aqui, que eu ajudarei de boa. Abraços <{POST_SNAPBACK}> Valeu dark0! Obrigado mesmo... Fabiano. Compartilhar este post Link para o post Compartilhar em outros sites
cfaria 0 Denunciar post Postado Setembro 2, 2005 Ola pessoal testei esse codigo mas está a dar um problema faz o upload correctamente mas ao gravar na base de dados dá o seguinte erro Microsoft OLE DB Provider for ODBC Drivers error '80040e07' [Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression. /upload_form2.asp, line 96 Porque será???? cfaria Compartilhar este post Link para o post Compartilhar em outros sites
Mário Monteiro 179 Denunciar post Postado Setembro 2, 2005 voce esta comrando dados de tipos diferentesmostra este trecho de codigo... Compartilhar este post Link para o post Compartilhar em outros sites
dark0 0 Denunciar post Postado Setembro 2, 2005 reveja o tipo de dado que você colocou no seu bancoé tipo de dados incompativeis Compartilhar este post Link para o post Compartilhar em outros sites
paulotdsn 0 Denunciar post Postado Setembro 9, 2005 Oi Dark0,Cara... este tópico é simplesmente fantástico. Também consegui fazer funcionar o Upload com registro do nome direto do arquivo no banco de dados, coisa que nunca tinha conseguido fazer antes. MUITO BOM MESMO, VALEW!!!Mas ainda tenho uma dúvida, se puder ajudar agradeço bastante:Como faço para renomear automaticamente cada arquivo que está sendo enviado, de modo que não tenham dois arquivos com o mesmo nome antes de serem gravados no banco de dados?Isso pq dois usuários podem tentar mandar um arquivo com o mesmo nome, e aí um acaba sobrescrevendo o outro. Valew,PauloTDSN Compartilhar este post Link para o post Compartilhar em outros sites
dark0 0 Denunciar post Postado Setembro 9, 2005 paulo, seguinte..É possível sim, antes de gravar, testar se o arquivo já existe e tal, sem problemas.Porém, eu sempre montei isso da seguinte forma.Quando o usuario fizer login no site, você guarda em session o usuario dele, ou o codigo.. enfim.. algo que identifique ele.Daí, na hora do upload, é só colocar no nome do arquivo a ser enviado, algo que identifique o usuario, mais o nome do arquivo.ficando, por exemplo:usuario01_foto01.jpgusuario02_foto01.jpgassim, por mais que os arquivos sejam com o mesmo nome, não se repetirá, por causa do nome do usuario, que tem no nome do arquivo.Eu sempre fiz isso, e nunca tive problemas..De qualquer forma, se precisar, você pode verificar se o arquivo existe de 2 formas.1- Procurar pelo nome do arquivo no banco de dados, pois os nomes deles sao gravados lá, não é?2- Procurar pelo arquivo na pasta onde ficam armazenados os arquivos que foram enviados pro site.Qualquer coisa, posta aeAbraços Compartilhar este post Link para o post Compartilhar em outros sites
paulotdsn 0 Denunciar post Postado Setembro 9, 2005 Dark0, Perfeito, perfeito... FUNCIONOU DE NOVO.!! :-D Muito bom cara. É que eu não sabia que era possível ser feito, já que estou aprendendo este sistema de Upload agora. Então... só para ficar registrado, e não deixar boiando o pessoal que venha a ler este tópico depois, para renomear automaticamente o nome do arquivo que está sendo enviado ao servidor, a linha a ser alterada é a: nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\")) Como exemplo, vou acrescentar "usuário001" ao nome do arquivo que está sendo enviado. Neste caso, o comando ficaria: nome_foto = "usuario001_" & Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\")) Valew Mesmo, PauloTDSN Compartilhar este post Link para o post Compartilhar em outros sites
dark0 0 Denunciar post Postado Setembro 9, 2005 é isso aí caraque bom que você entendeu a lógica do sistema.Bem, qualquer duvida, é só postarAbraços Compartilhar este post Link para o post Compartilhar em outros sites
paulotdsn 0 Denunciar post Postado Setembro 10, 2005 Bom, já que perguntou, hehe...Estou usando os seguintes comandos para tentar fazer com que arquivos maiores de 200 Kb não sejam enviados ao site, mas aparentemente não está funcionando...<%If LenB(value) >200 then%><script language="javascript">alert("Erro ao enviar a imagem, o tamanho do arquivo deve ser menor que 200Kb")history.go(-1);</script><%End if%>Obrigado,PauloTDSN Compartilhar este post Link para o post Compartilhar em outros sites
dark0 0 Denunciar post Postado Setembro 10, 2005 brother, aqui nesse link http://www.dark0.truehost.com.br/sistemas/desafio%5Ffire/ eu fiz um "desafio" pra outro forum por aí.. e no form de upload, eu coloquei uma função em javascript, que verifica as extensões liberadas, e ainda o tamanho maximo do arquivo enviado. Vendo o fonte ali, você consegue pegar ela pra você Eu ainda quero montar um topico falando disso, mas nao tive tempo ainda, hehe EDITANDO: Como o link acima saiu do ar, vou postar aqui as funções java script: <script> function verifica_extencao() { var extensoesOk = ",.gif,.jpg,.txt,.doc,.exe,.xls,.bat,.ppt,.zip,.rar,.iso,.ini,.dll"; var extensao = "," + document.form1.arquivo.value.substr( document.form1.arquivo.value.length - 4 ).toLowerCase() + ","; if (document.form1.arquivo.value == "") { alert("O campo do caminho está vazio!!"); return false; } else if( extensoesOk.indexOf( extensao.toLowerCase() ) == -1 ) { alert( document.form1.arquivo.value + "\nNão possui uma extensão válida" );java script:location.reload(); return false; } else {java script:tamanhos();} } function tamanhos() { tamanhoArqMax = 400000 imagem=new Image(); imagem.src=document.form1.arquivo.value; tamanho_imagem = imagem.fileSize img_tan = tamanho_imagem if (tamanho_imagem < 0) { java script:tamanhos(); return false; } else if (tamanho_imagem > tamanhoArqMax) { alert("O tamanho do arquivo é muito grande ... "+tamanho_imagem+" Bytes!! \n Tamanho Máximo suportado : "+tamanhoArqMax+" Bytes \n São "+(tamanho_imagem-tamanhoArqMax)+" Bytes a Mais!");java script:location.reload(); return false; } else { return true; } } </script> Compartilhar este post Link para o post Compartilhar em outros sites
paulotdsn 0 Denunciar post Postado Setembro 12, 2005 Hmm, valew. Vou dar uma olhadinha, hehe. http://forum.imasters.com.br/public/style_emoticons/default/clap.gif Compartilhar este post Link para o post Compartilhar em outros sites
MalcomX 0 Denunciar post Postado Outubro 24, 2005 Olá Antes de mais nada gostaria de agradecer o Excelente Tópico... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif Preciso de uma ajuda, pois com certeza alguém já passou por isso... http://forum.imasters.com.br/public/style_emoticons/default/yes.gif Estou usando o Script de Upload que o ( Dark0 ) postou... configurei os arquivos conforme os post e td parece ok, mais quando logo após o submit é exibida está mensagem de erro... Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A000D)Tipos incompatíveis: 'BuildUploadRequest'/webpc/scripts/upload_frm2.asp, line 20' vide os números das linhs até a famosa Linha 20...' Chamando Funções, que fazem o Upload funcionar17 byteCount = Request.TotalBytes18 RequestBin = Request.BinaryRead(byteCount)19 Set UploadRequest = CreateObject("Scripting.Dictionary")20 BuildUploadRequest RequestBinGostaria de uma Explicação do que posso fazer, se quiserem não precisam nem resolver, mais só me expliquem o que pode ser que correrei atrás e tentarei resolver, pois até agora fiz de td e não consegui não tem jeito... Por isso preciso de ajuda ... :D :rolleyes: Ficarei no aguardo... Desde já agradeço... pelo post e pela ajuda... Compartilhar este post Link para o post Compartilhar em outros sites
dark0 0 Denunciar post Postado Outubro 26, 2005 bom.. vamos ver..faz tempo que não mecho neste script, hehe, mas vamos verO erro, me parece ser quando ele pega o tamanho total de todos os arquivos enviados.você esta usando o upload para enviar quantos arquivos por vez?Qual o tamanho dos arquivos que você ta tentando upar? (se bem que nunca vi limitação assim, hehehe)Responde aí, pra ver o que pode ser o erroT+ Compartilhar este post Link para o post Compartilhar em outros sites