Ir para conteúdo

POWERED BY:

Arquivado

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

reinaldo polato

[Resolvido] Upload

Por , em ASP Clássico

Recommended Posts

reinaldo polato    1

reinaldo polato
Postado

e ai galera beleza

eu peguei no site da locaweb esse codigo de upload

 

como eu faço pra instalar esse software aonde eu baixo ele o nome dele é SaFileUp

 

o codigo é

 

upload.html

 

<html>
<body bgcolor="#FFFFFF" >
<h2>Upload Simples</h2><br>
<form method="POST" ENCTYPE="multipart/form-data" ACTION="upload.asp">
<INPUT TYPE=FILE SIZE=60 NAME="FILE1"><BR>
<INPUT TYPE=SUBMIT VALUE="Upload!">
</FORM >
</body>
</html>

e a pagina em asp é 

<html>
<head> 
 <title> SaFileUp </title>
</head>
<body><% 
'Instancia o componente
SET SaFileUp = Server.CreateObject("SoftArtisans.FileUp") 
 
'Configura onde o arquivo será salvo
SaFileUp.Path = "e:\home\LoginFTP\Web\upload\"
 
'Salva o arquivo no servidor
SaFileUp.Save
 
response.write "Total de Bytes Enviados: " & SaFileUp.TotalBytes
Set SaFileUp = Nothing 
%></body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Para fazer upload/download de arquivos através do componente SaFileUp como padrão para várias servidores Windows. Segue abaixo um simples exemplo de utilização deste componente, para conhecer todas as funcionalidades acesse o manual de instruções.

 

upload.htm

<html>
	<head>
		<title> SaFileUp </title>
	</head>
	<body bgcolor="#FFFFFF" >
 
		<center>
			<h2>Upload Simples</h2><br>
			<form ACTION="upload.asp" METHOD="POST" ENCtype="multipart/form-data">
				<input type="FILE" SIZE="60" NAME="FILE1"><BR>
				<input type="SUBMIT" VALUE="Upload!">
			</form >
		</center>
	</body>
</html>

 

upload.asp

<html>
	<head> 
		<title> SaFileUp </title>
	</head>
	<body>

		<% 
		'Instancia o componente
		SET SaFileUp = Server.CreateObject("SoftArtisans.FileUp") 
 
			'Configura o caminho onde arquivo será salvo
			SaFileUp.Path = "e:\home\LoginFTP\Web\upload\"
                        'Para Revenda substitua o caminho físico para E:\vhosts\SEU_DOMINIO_COMPLETO\httpdocs\
 
			'Você pode usar também o caminho relativo se preferir
			'SaFileUp.Path = Server.MapPath("./upload/")
 
                        '## ATIVA O TRATAMENTO DE ERRO ##
			'Caso o usuário não indique um arquivo para upload, informa erro.
			If SaFileUp.IsEmpty Then
					response.write "<center>Por favor, indique um arquivo para upload.</center><br>"
			Else
				'Salva o arquivo no servidor
				SaFileUp.Save
				response.write "<center>Total de Bytes Enviados: " & SaFileUp.TotalBytes & "</center>"
			End if
 
			'Gera um link html para retornar a pagina anterior
			response.write "<center><a href='javascript:history.go(-1)'>Voltar</a></center>"
 
		Set SaFileUp = Nothing 
		%>

	</body>
</html>

O diretório upload deve ter permissão de escrita.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

baixa ele direto do site oficial, link

Compartilhar este post

Link para o post
Compartilhar em outros sites

reinaldo polato    1

reinaldo polato
Postado

e ai xanburzum beleza

 

eu mudei o upload para aspupload

 

eu baixei o software aspupload

 

 

o erro é Persits.Upload.1 (0x800A0005)

O sistema não pode encontrar o caminho especificado.

/reinaldo/upload/UploadScript1.asp, line 5

 

 

o codigo é

 

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<HTML> 
<BODY BGCOLOR="#FFFFFF"> 
<FORM METHOD="POST" ENCTYPE="multipart/form-data" 
ACTION="UploadScript1.asp"> 
<INPUT TYPE=FILE SIZE=60 NAME="FILE1"><BR> 
<INPUT TYPE=FILE SIZE=60 NAME="FILE2"><BR> 
<INPUT TYPE=FILE SIZE=60 NAME="FILE3"><BR> 
<INPUT TYPE=SUBMIT VALUE="Upload!"> 
</FORM> 
</BODY> 
</HTML> 

<P> </P>

</BODY>
</HTML>

 

o codigo asp é

 

<HTML> 
<BODY BGCOLOR="#FFFFFF"> 
<% 
Set Upload = Server.CreateObject("Persits.Upload.1") 
Count = Upload.Save("c:\inetpub\wwwroot\upload") 
%> 
<% = Count %> files uploaded. 
</BODY> 
</HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

verifique se o caminho est correto...

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

poste a linha numero 5, para eu ver

Compartilhar este post

Link para o post
Compartilhar em outros sites

reinaldo polato    1

reinaldo polato
Postado

Tipo de erro:

Persits.Upload.1 (0x800A0005)

O sistema não pode encontrar o caminho especificado.

/reinaldo/upload/UploadScript1.asp, line 5

 

 

Count = Upload.Save("c:\reinaldo\upload\upload")

 

essa é a linha 5

 

qual caminho eu tenho que colocar

 

o codigo em html é

 

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<HTML> 
<BODY BGCOLOR="#FFFFFF"> 
<FORM METHOD="POST" ENCTYPE="multipart/form-data" 
ACTION="UploadScript1.asp"> 
<INPUT TYPE=FILE SIZE=60 NAME="FILE1"><BR> 
<INPUT TYPE=FILE SIZE=60 NAME="FILE2"><BR> 
<INPUT TYPE=FILE SIZE=60 NAME="FILE3"><BR> 
<INPUT TYPE=SUBMIT VALUE="Upload!"> 
</FORM> 
</BODY> 
</HTML> 

<P> </P>

</BODY>
</HTML>

 

em asp é

 

<HTML> 
<BODY BGCOLOR="#FFFFFF"> 
<% 
Set Upload = Server.CreateObject("Persits.Upload.1") 
Count = Upload.Save("c:\reinaldo\upload\upload") 
%> 
<% = Count %> files uploaded. 
</BODY> 
</HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

veja se realmente existe o caminho e esta com direitos (privilégios administrativos) gravar, ler etc

Compartilhar este post

Link para o post
Compartilhar em outros sites

reinaldo polato    1

reinaldo polato
Postado

e ai xanburzum

 

eu seleciono o arquivo e clica em upload ai ele aparece assim 1 files uploaded. Aonde está salvo esse arquivo

 

eu queria que aparecesse asim quando selecionar o arquivo e incluir ele aparecer a Lista de arquivos, Nome do Arquivo e o Tamanho do arquivo

 

como eu faço isso

Compartilhar este post

Link para o post
Compartilhar em outros sites

~Thiago Lara    0

~Thiago Lara
Postado

Dá uma pesquisada sobre FSO, que assim você poderá listar os arquivos da pasta.

 

Mas se quiser que apareça apenas os que acabaram de ser enviados para o servidor, utilize o próprio componente que deve dar suporte a isso.

 

O ideal seria dar uma olhada na documentação

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

pelo seu código você esta salvando em e:\home\LoginFTP\Web\upload\

Compartilhar este post

Link para o post
Compartilhar em outros sites

reinaldo polato    1

reinaldo polato
Postado

e ai galera beleza

eu to usando agora o Fsoupoload sem componente e está dando esse erro

 

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A03EA)

Erro de sintaxe

/reinaldo/cade/upload.asp, line 60, column 12

arquivonome & " gravado com sucesso!<br>"

 

o codigo em html é 

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<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>

<P> </P>

</BODY>
</HTML>

 

e o codigo 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(cade & "\" & fsoupload, true)
     objArquivo.WriteLine ArquivoConteudo
     objArquivo.Close
			
     Response.write "Arquivo " & PastaDestino (cade & "\" & sample.doc, true)
     arquivonome & " gravado com sucesso!<br>"
     Set objArquivo = nothing
   end if
end if
Loop
Set objFSO = nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

reinaldo polato    1

reinaldo polato
Postado

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A03EA)

Erro de sintaxe

/reinaldo/cade/upload.asp, line 60, column 12

arquivonome & " gravado com sucesso!<br>"

 

 

linha 60 arquivonome & "gravado com sucesso!<br>"

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

coloca o code final, como referencia para outros

Compartilhar este post

Link para o post
Compartilhar em outros sites

reinaldo polato    1

reinaldo polato
Postado

Fso Upload Sem Componente

 

codigo em html 

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<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>

<P> </P>

</BODY>
</HTML>

agora o codigo em asp é 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
%>

o codigo completo está ai

 

aonde tem Pasta Destino é a pasta aonde tem a pagina asp

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