ASYNCFILEUPLOAD1

JANDER 27/07/2011 17:27:41
#380140
Olá, boa noite.

Estou querendo utilizar o componente AsyncFileUpload1 para anexar arquivos pela página porém o mesmo está apresentando o erro: unhandled exception the file attached is invalid. Esse erro acontece quando o usuário clica no arquivo a ser anexado.

eu tenho uma outros aplicação em asp.net que utiliza o mesmo componente e nessa aplicação funciona perfeitamente. fiz varias comparações de código mais até agora não achei nada de errado.

Alguém sabe me dizer a causa desse erro e como devo consertá-lo?
FILMAN 27/07/2011 22:05:32
#380157
Meu amigo nunca USEI esse componente

Tente isso aqui:
<html>
<head>
	<title>Upload sem componente</title>
</head>

<body>

<form action=[Ô]upload.asp[Ô] method=[Ô]post[Ô] enctype=[Ô]multipart/form-data[Ô]>
E-mail: <input type=[Ô]text[Ô] name=[Ô]txtEmail[Ô]><br>
Arquivo 1: <input type=[Ô]file[Ô] name=[Ô]txtArquivo1[Ô]><br>
Arquivo 2: <input type=[Ô]file[Ô] name=[Ô]txtArquivo2[Ô]><br>
<input type=[Ô]submit[Ô] name=[Ô]cmdEnviar[Ô] value=[Ô]Enviar[Ô]>
</form>

</body>
</html>

<!--O formulário estará chamando a página upload.asp, especificada no atributo action do elemento FORM.
Segue abaixo o código da página upload.asp. -->
<%@ Language=VBScript %>
<%
Dim Contador, Tamanho
Dim ConteudoBinario, ConteudoTexto
Dim Delimitador, Posicao1, Posicao2
Dim ArquivoNome, ArquivoConteudo, PastaDestino
Dim objFSO, objArquivo

PastaDestino = Server.MapPath([Ô]/temp/upload[Ô])

[ô]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)

[ô]Percorre a String procurando os campos
[ô]identifica os arquivo e grava no disco
Set 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 [Ô]Arquivo [Ô] & PastaDestino & [Ô]\[Ô] & _
     ArquivoNome & [Ô] gravado com sucesso!<br>[Ô]
     Set objArquivo = nothing
   end if
end if
Loop
Set objFSO = nothing
%>


Esse código não utiliza componente

Verifica se te ajuda

Fonte:Codigofonte.uol.com.br


Até mais
Tópico encerrado , respostas não são mais permitidas
Voltar