Ir para conteúdo
Fórum Script Brasil
  • 0

Ajuda Com Upload


flipper

Pergunta

Bom dia galera, tenha uma pequena dúvida. Tenho esse condigo mas não consigo fazer ele enviar arquivo maior que 100Kb vocês podems me ajudar por favor.

Não entendo muito de asp, espero que possam me ajudar.

<%@ Language=VBScript %>
<%
    Dim Contador, Tamanho
    Dim ConteudoBinario, ConteudoTexto
    Dim Delimitador, Posicao1, Posicao2
    Dim ArquivoNome, ArquivoConteudo, PastaDestino
    Dim objFSO, objArquivo 
'---------------------------------------------
'BASTA ALTERAR O DIRETORIO AONDE você QUER SALVAR AS IMAGENS
'LEMBRANDO QUE O DIRETORIO DEVE SER VÁLIDO NO LOCALHOST OU SEJA TEM QUE ESTAR ABILITADO PELO SERVER            

    PastaDestino = "e:\home\venturas\web\concurso2006\fotos\"
            
    '***** Determina o Tamanho do Conteúdo *****
    Tamanho = Request.TotalBytes
    '***** Obtém o Conteúdo no Formato Binário *****
    ConteudoBinario = Request.BinaryRead(Tamanho)

    '***** Transforma o Conteúdo Binário em String *****
    For Contador = 1 To Tamanho
  ConteudoTexto = ConteudoTexto & Chr(AscB(MidB(ConteudoBinario, Contador, 1)))
    Next
    '***** Determina o Delimitador de Campos *****
    Delimitador = Left(ConteudoTexto,InStr(ConteudoTexto, vbCrLf)-1)

    '***** Percore a String Procurando os Campos   *****
    '***** Identifica os Arquivos e Grava no Disco *****
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
     
    Posicao1 = InStr(ConteudoTexto, Delimitador) + Len(Delimitador)
    Do While True
  ArquivoNome = ""
  Posicao1 = InStr(Posicao1, ConteudoTexto, "filename=")
  If Posicao1 = 0 Then
  	Exit Do
  Else
  	'***** Determina o Nome do Arquivo *****
  	Posicao1 = Posicao1 + 10
  	Posicao2 = InStr(Posicao1, ConteudoTexto, """")
  	For Contador = Posicao2-1 To Posicao1 Step -1
    If Mid(ConteudoTexto, Contador, 1) <> "\" Then
    	ArquivoNome = Mid(ConteudoTexto, Contador, 1) & ArquivoNome
    Else
    	Exit For
    End If
  	Next
  	
  	'***** Determina o Conteúdo do Arquivo *****
  	Posicao1 = InStr(Posicao1, ConteudoTexto, vbCrLf & vbCrLf) + 4
  	Posicao2 = InStr(Posicao1, ConteudoTexto, Delimitador) - 2
  	ArquivoConteudo = Mid(ConteudoTexto, Posicao1, Posicao2-Posicao1+1)
  
  	'***** Grava o Arquivo *****
  	If ArquivoNome <> "" Then
    Set objArquivo = objFSO.CreateTextFile(PastaDestino & ArquivoNome, True) 
    objArquivo.WriteLine ArquivoConteudo     
    objArquivo.Close 
    response.redirect "/concurso2006/default.asp?anexos=" & ArquivoNome & "&msg= anexado com sucesso!"
  	'	Response.Write "Arquvo " & PastaDestino & ArquivoNome & " gravado com sucesso!!!<BR>"
    Set objArquivo = Nothing
  	End If
  End If
    Loop
    Set objFSO = Nothing 
%>

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...