Ajuda Com Upload

[flipper]

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 
%>

[Super_Zica_Man]

tambem não entendo muito mas tentando te ajuda....

tente baxar outros sistemas de upload

http://www.codigolivre.com.br/abresubcateg...tid=52&lingid=1

http://www.vipcodigo.com.br/codigos/codigos.php/1/68

ou tente pela busca do scriptsbrasil

[pogoball]

você não tem outro componente??? porque via FSO eu não manjo cara.... se você usar um componente tipo um aspUpload, você pode discriminar o tamanho maximo do arquivo...