Ir para conteúdo

POWERED BY:

Arquivado

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

groove-_-a

upload

Por , em ASP Clássico

Recommended Posts

Marhault    1

Marhault
Postado

aew... upload sem componente e sem classes...

form_upload.asp

<%Arquivos = Request("Arquivos")Destino = "C:\Documents and Settings\Administrator\Desktop\upload2\" 'pasta de uploadIf Arquivos = "" ThenArquivos = 5 'Quantidade padrão de uploads ao mesmo tempoEnd If%><HTML><HEAD><META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"></HEAD><BODY><FORM method="post" action="upload.asp?destino=<%=Destino%>" enctype="multipart/form-data"><%For i = 1 to ArquivosIf Len(i) = 1 Then%>Arquivo 0<%=i%>:<%Else%>Arquivo <%=i%>:<%End If%><INPUT type="file" name="txtArquivo<%=i%>"><BR><%Next%><INPUT type="submit" value="Enviar" name="cmdEnviar"></FORM></BODY></HTML>
upload.asp
<%@ Language=VBScript %><%Dim Contador, TamanhoDim ConteudoBinario, ConteudoTextoDim Delimitador, Posicao1, Posicao2Dim ArquivoNome, ArquivoConteudo, PastaDestinoDim objFSO, objArquivo PastaDestino = Request("Destino")Tamanho = Request.TotalBytesConteudoBinario = Request.BinaryRead(Tamanho)For Contador = 1 To TamanhoConteudoTexto = ConteudoTexto & Chr(AscB(MidB(ConteudoBinario, Contador, 1)))NextDelimitador = Left(ConteudoTexto,InStr(ConteudoTexto, vbCrLf)-1)Set objFSO = Server.CreateObject("Scripting.FileSystemObject")Posicao1 = InStr(ConteudoTexto, Delimitador) + Len(Delimitador)Do While TrueArquivoNome = ""Posicao1 = InStr(Posicao1, ConteudoTexto, "filename=")If Posicao1 = 0 ThenExit DoElsePosicao1 = Posicao1 + 10Posicao2 = InStr(Posicao1, ConteudoTexto, """")For Contador = Posicao2-1 To Posicao1 Step -1If Mid(ConteudoTexto, Contador, 1) <> "\" ThenArquivoNome = Mid(ConteudoTexto, Contador, 1) & ArquivoNomeElseExit ForEnd IfNextPosicao1 = InStr(Posicao1, ConteudoTexto, vbCrLf & vbCrLf) + 4Posicao2 = InStr(Posicao1, ConteudoTexto, Delimitador) - 2ArquivoConteudo = Mid(ConteudoTexto, Posicao1, Posicao2-Posicao1+1)If ArquivoNome <> "" ThenSet objArquivo = objFSO.CreateTextFile(PastaDestino & ArquivoNome, True) objArquivo.WriteLine ArquivoConteudo objArquivo.Close %>Arquivo <%=ArquivoNome%> gravado com sucesso!!!<BR><%Set objArquivo = NothingEnd IfEnd IfLoopSet objFSO = Nothing %>
Para usar chame a página form_upload.asp?arquivos=NUMERODEUPLOADS. Troque o NUMERODEUPLOADS pela quantidade de Uploads q você quer fazer ao mesmo tempo... caso você só chame a página sem o parâmetro ?arquivos=NUMERODEUPLOADS assim form_upload.asp a quantidade padrão de uploads será de 5...

Entendeu???

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