Ir para conteúdo

POWERED BY:

Arquivado

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

igadino

Sistema de Upload em asp

Por , em ASP Clássico

Recommended Posts

igadino    0

igadino
Postado

Galera estou necessitando de Sistema de UPLOAD, em que eu escolho o diretorio na hora que eu for fazer o UPLOAD, e tambem quero que envia até 05 (cinco) arquivos, conforme codigos abaixo:Ver se alquem pode me ajudar fico muito gratoesporo retorno de alquem:igadino@yahoo.com.br<!--Inicio do codigo html--!><html><body bgcolor="#FFFFFF"><form method="POST" enctype="multipart/form-data" action="upload.asp"><select name="arquivos" id="arquivos" class="entrada" style="width:160"><option value="../../">/</option><option value="../noticias">Noticias</option><option value="../wwwroot\Mural">Mural</option><option value="../cadastro">Cadastro</option></select><br><input type="FILE" size="40" name="dirname"><br><input type="FILE" size="40" name="dirname"><br><input type="FILE" size="40" name="dirname"><br><input type="FILE" size="40" name="dirname"><br><input type="FILE" size="40" name="dirname"><br><input type=submit value="Upload!"></form></body></html> <!-- Fim do codigo html--!><!--Inicio do codigo asp--!><%Dim Contador, TamanhoDim ConteudoBinario, ConteudoTextoDim Delimitador, Posicao1, Posicao2Dim ArquivoNome, ArquivoConteudo, PastaDestinoDim objFSO, objArquivoPastaDestino=Server.MapPath(Request.Form("arquivos"))'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 TamanhoConteudoTexto = ConteudoTexto & Chr(AscB(MidB(ConteudoBinario, Contador, 1)))Next 'Determina o delimitador de camposDelimitador = Left(ConteudoTexto, InStr(ConteudoTexto, vbCrLf) - 1)'identifica os arquivo e grava no discoSet objFSO = Server.CreateObject("Scripting.FileSystemObject")Posicao1 = InStr(ConteudoTexto, Delimitador) + Len(Delimitar)do while TrueArquivoNome = ""Posicao1 = InStr(Posicao1, ConteudoTexto, "filename=")if Posicao1 = 0 thenexit doelse' Determina o nome do arquivoPosicao1 = Posicao1 + 10Posicao2 = InStr(Posicao1, ConteudoTexto, """")For contador = (Posicao2 - 1) to Posicao1 step -1if Mid(ConteudoTexto, Contador, 1) <> "\" then '"ArquivoNome = Mid(ConteudoTexto, Contador, 1) & ArquivoNomeelseexit forend ifnext'Determina o conteúdo do arquivoPosicao1 = InStr(Posicao1, ConteudoTexto, vbCrLf & vbCrLf) + 4Posicao2 = InStr(Posicao1, ConteudoTexto, Delimitador) - 2ArquivoConteudo = Mid(ConteudoTexto, Posicao1, (Posicao2 - Posicao1 + 1))'Grava o arquivoif ArquivoNome <> "" thenSet objArquivo = objFSO.CreateTextFile(PastaDestino & "\" & ArquivoNome, true)objArquivo.WriteLine ArquivoConteudoobjArquivo.CloseSet objArquivo = nothingend ifend ifLoopSet objFSO = nothingresponse.Write "Upload realizado com sucesso<br>"%><!--Fim do codigo asp --!>O Erro seabaixo:Informações técnicas (para a equipe de suporte)Tipo de erro:Server.MapPath(), ASP 0171 (0x80004005)O parâmetro Caminho deve ser especificado para o método MapPath./upload1/upload.asp, line 8Tipo de navegador: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0) Página: POST 33571 bytes to /upload1/upload.aspPOST Data:. . . Hora: quinta-feira, 26 de janeiro de 2006, 11:00:06 Mais informações: Suporte da Microsoft

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

o caminho do diretorio está correto??verifica isso

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

é nesta linha que esta dando erro??PastaDestino=Server.MapPath(Request.Form("arquivos"))se for depois dela poeresponse.write(PastaDestino)response.ende posta aqui o que vier na tela

Compartilhar este post

Link para o post
Compartilhar em outros sites

igadino    0

igadino
Postado

é nesta linha que esta dando erro??PastaDestino=Server.MapPath(Request.Form("arquivos"))se for depois dela poeresponse.write(PastaDestino)response.ende posta aqui o que vier na tela

O Erro seabaixo:Informações técnicas (para a equipe de suporte)Tipo de erro:Server.MapPath(), ASP 0171 (0x80004005)O parâmetro Caminho deve ser especificado para o método MapPath./upload1/upload.asp, line 8Tipo de navegador: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0) Página: POST 33571 bytes to /upload1/upload.aspPOST Data:. . . Hora: quinta-feira, 26 de janeiro de 2006, 11:00:06 Mais informações: Suporte da Microsoft

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