Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

dark0

Upload sem componentes

Recommended Posts

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

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

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

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

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

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

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

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

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

voce esta comrando dados de tipos diferentesmostra este trecho de codigo...

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

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

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

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

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

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 RequestBin
Gostaria 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

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

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.