UPLOAD SEM COMPONENTE

RDESENVOLVE 14/07/2011 16:20:38
#379176
Boa Tarde Galera,

Preciso fazer upload sem componente, peguei esse código na net, porém fiz algumas adaptações, pois preciso pegar mais informações.
Gostaria de saber se está certo.

Valew....


<%
Dim Tamanho [ô] var que determina o tamanho do arquivo
Dim ConteudoBinario [ô]Obtém o Conteúdo no Formato Binário
Dim Contador , ConteudoTexto [ô] Transforma o Conteúdo Binário em String
Dim Delimitador [ô]Determina o Delimitador de Campos
Dim Upload [ô] cria a instancia
Dim ArquivoNome [ô]grava o arquivo
Dim Posicao1, Posicao2 [ô] determina conteúdo do arquivo
Dim objArquivo [ô]grava nome arquivo
Dim path [ô] pasta destino

path = Server.MapPath([Ô]Tech\[Ô]) [ô]pasta destino
[ô]Upload.Path = path usado no fileup
[ô]Upload.MaxBytes = 2465792 [ô]bytes = 2MB path usado no fileup

[ô]Determina o tamanho do conteúdo
Tamanho = Request.TotalBytes

[ô]Obtém o Conteúdo no Formato Binário
ConteudoBinario = Request.BinaryRead

[ô] Transforma o Conteúdo Binário em String
For Contador = 1 To Tamanho
ConteudoTexto = ConteudoTexto & Chr(AscB(MidB(ConteudoBinario, Contador, 1)))
Next

[ô]Percore a String Procurando os Campos
[ô]Identifica os Arquivos e Grava no Disco

set Upload = 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 = Upload.CreateTextFile(PastaDestino & ArquivoNome, True)
objArquivo.WriteLine ArquivoConteudo
objArquivo.Close
[ô]Response.Write [Ô]Arquivo [Ô] & PastaDestino & ArquivoNome & [Ô] Mensagem enviada com sucesso!<BR>[Ô]

Set objArquivo = Nothing
End If
End If
Loop
[ô]Read in user deatils from the post message form
strMode = Upload.Form([Ô]mode[Ô])
intForumID = CInt(Upload.Form([Ô]ForumID[Ô]))
lngTopicID = CLng(Upload.Form([Ô]TopicID[Ô]))
strSubject = Upload.Form([Ô]subject[Ô])
strMessage = Upload.Form([Ô]Message[Ô])
lngMessageID = CLng(Upload.Form([Ô]MessageID[Ô]))
EmailNotify = Upload.Form([Ô]email[Ô])

Set Upload = Nothing

%>
KERPLUNK 14/07/2011 17:27:29
#379195
Bom, o melhor jeito de saber, é vc testando isso... Configure seu IIS e teste vc mesmo. Sintaticamente parece correto.
Tópico encerrado , respostas não são mais permitidas