Ir para conteúdo

POWERED BY:

Arquivado

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

thicomp

em Código

Por , em ASP Clássico

Recommended Posts

thicomp    0

thicomp
Postado

Oi galeraTô com um probleminhaTenho uma página de UPLOAD de arquivos, mas dependendo do tamanho do arquivo (não precisa ser muito grande não) ele demora muito pra carregar. Será que existe algum comando que possa acelerar um pouco o tempo de carregamento do arquivo.Vou postar o código aí, pra ver se alguém pode me dar uma luz.<%@ Language=VBScript %><%Dim Contador, TamanhoDim ConteudoBinario, ConteudoTextoDim Delimitador, Posicao1, Posicao2Dim ArquivoNome, ArquivoConteudo, PastaDestinoDim objFSO, objArquivoPastaDestino = Server.MapPath("/cm/tutor")'Determina o tamanho do conteúdoTamanho = Request.TotalBytes'Obtém o conteúdo no formato binárioConteudoBinario = Request.BinaryRead(Tamanho)'Transforma o conteúdo binário em stringFor Contador = 1 To Tamanho ConteudoTexto = ConteudoTexto & Chr(AscB(MidB(ConteudoBinario, Contador, 1)))Next 'Determina o delimitador de camposDelimitador = Left(ConteudoTexto, InStr(ConteudoTexto, vbCrLf) - 1)'Percorre a String procurando os campos'identifica os arquivo e grava no discoSet objFSO = Server.CreateObject("Scripting.FileSystemObject")Posicao1 = InStr(ConteudoTexto, Delimitador) + Len(Delimitar)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.write "<html><head><title>Resultado</title></head><body><center><br><br><br><table cellpadding=1 cellspacing=1 border=0 width=700 bgcolor=white>" Response.write "<tr><td align=center><font size=4 face=verdana>O arquivo <b>" & _ ArquivoNome & "</b> foi gravado com sucesso!</font><br><br></tr>" Response.write "<tr><td align=center><font size=4 face=verdana>Obrigado por nos fornecer este documento.</font></tr></table></center></body></html>" Set objArquivo = nothing end ifend ifLoopSet objFSO = nothing%>Obrigado desde já

Compartilhar este post

Link para o post
Compartilhar em outros sites

thicomp    0

thicomp
Postado

Oi galeraTô com um probleminhaTenho uma página de UPLOAD de arquivos, mas dependendo do tamanho do arquivo (não precisa ser muito grande não) ele demora muito pra carregar. Será que existe algum comando que possa acelerar um pouco o tempo de carregamento do arquivo.Vou postar o código aí, pra ver se alguém pode me dar uma luz.<%@ Language=VBScript %><%Dim Contador, TamanhoDim ConteudoBinario, ConteudoTextoDim Delimitador, Posicao1, Posicao2Dim ArquivoNome, ArquivoConteudo, PastaDestinoDim objFSO, objArquivoPastaDestino = Server.MapPath("/cm/tutor")'Determina o tamanho do conteúdoTamanho = Request.TotalBytes'Obtém o conteúdo no formato binárioConteudoBinario = Request.BinaryRead(Tamanho)'Transforma o conteúdo binário em stringFor Contador = 1 To Tamanho ConteudoTexto = ConteudoTexto & Chr(AscB(MidB(ConteudoBinario, Contador, 1)))Next 'Determina o delimitador de camposDelimitador = Left(ConteudoTexto, InStr(ConteudoTexto, vbCrLf) - 1)'Percorre a String procurando os campos'identifica os arquivo e grava no discoSet objFSO = Server.CreateObject("Scripting.FileSystemObject")Posicao1 = InStr(ConteudoTexto, Delimitador) + Len(Delimitar)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.write "<html><head><title>Resultado</title></head><body><center><br><br><br><table cellpadding=1 cellspacing=1 border=0 width=700 bgcolor=white>" Response.write "<tr><td align=center><font size=4 face=verdana>O arquivo <b>" & _ ArquivoNome & "</b> foi gravado com sucesso!</font><br><br></tr>" Response.write "<tr><td align=center><font size=4 face=verdana>Obrigado por nos fornecer este documento.</font></tr></table></center></body></html>" Set objArquivo = nothing end ifend ifLoopSet objFSO = nothing%>Obrigado desde já

Tá me retornando este erro??Access Denied The requested document, http://cm/upload.asp, will not be shown. Reason: DDR Request score = 11.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito