UPLOAD SEM COMPONENTE
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
%>
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
%>
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