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