Ir para conteúdo

POWERED BY:

Arquivado

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

marciolvs

[Resolvido] Upload

Por , em ASP Clássico

Recommended Posts

marciolvs    1

marciolvs
Postado

Bom dia galera do forum.

Bom referente a uma dificuldade que eu tive com o upload sem componente o pessoal do servidor me informou que dependendo do componente utilizado o mesmo limita do tamanho maximo do upload a ser feito.

 

Bom sendo assim algum saberia me informar qual o componente que sportaria o maior peso e se é o melhor para ser utilizado.

Pois preciso de upload de pelo menos 500MB.

 

Agradeço desde já.

Abraço

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Olá amigo...

existem vários exemplos n fórum, com componente e sem componente, faça uma pesquisa, irá te ajudar, muitos você pode configrar o limite de upload

Compartilhar este post

Link para o post
Compartilhar em outros sites

marciolvs    1

marciolvs
Postado

Olá amigo...

existem vários exemplos n fórum, com componente e sem componente, faça uma pesquisa, irá te ajudar, muitos você pode configrar o limite de upload

 

Teria um exemplo deste que e posso configurar ?

E qual seria este componete ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

marciolvs    1

marciolvs
Postado

Tentei assim:

form.asp

<HTML>
<BODY BGCOLOR="#FFFFFF">
   <FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="aspUpload.asp">
      <INPUT TYPE="FILE" SIZE="40" NAME="FILE1"><BR>
      <INPUT TYPE="FILE" SIZE="40" NAME="FILE2"><BR>
      <INPUT TYPE="FILE" SIZE="40" NAME="FILE3"><BR>
   <INPUT TYPE=SUBMIT VALUE="Upload!">
   </FORM>
</BODY>
</HTML>

aspUpload.asp

 

<HTML>
<BODY>
<%
Set Upload = Server.CreateObject("Persits.Upload")
Count = Upload.Save("d:\web\LocalUser\consultta\www\teste\ASPUpload2\fotos")
Response.Write Count & " file(s) uploaded to c:\upload"
arquivo = file.filename
response.Write(arquivo)

%>
</BODY>
</HTML>

Erro: Objeto necessário: ''

 

/teste/ASPUpload2/aspUpload.asp, line 7

 

Linah 7

arquivo = file.filename

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

olha este exemplo:

Set Upload = Server.CreateObject("Persits.Upload")
                Upload.OverwriteFiles = False 
                Upload.Save CaminhoUpload

                Set Foto1 = Upload.Files("Foto1")
                Set Foto2 = Upload.Files("Foto2")
                Set Foto3 = Upload.Files("Foto3")
                Set Foto4 = Upload.Files("Foto4")
                Set Foto5 = Upload.Files("Foto5")

Response.Write Foto1.FileName &"<br>"
Response.Write Foto2.FileName &"<br>"
Response.Write Foto3.FileName &"<br>"
Response.Write Foto4.FileName &"<br>"
Response.Write Foto5.FileName &"<br>"

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

seu servidor nao tem o ASPUPLOAD instalado

 

500Mb vai ser quase impossivel enviar por Upload(vai consumir muito recusro do servidor, além de ter problemas com time out). Aconselho você criar uma ferramenta de Ftp

Compartilhar este post

Link para o post
Compartilhar em outros sites

marciolvs    1

marciolvs
Postado

Pelo que vi o aspUpload por natureza ele não substitui arquivos com o mesmo nome, ela inclui ex: nomearquivo.jpg já existe ele cria ex: nomearquivo(1).jpg

 

Estou correto ? ou pode acontecer dele substituir ?

 

seu servidor nao tem o ASPUPLOAD instalado

 

500Mb vai ser quase impossivel enviar por Upload(vai consumir muito recusro do servidor, além de ter problemas com time out). Aconselho você criar uma ferramenta de Ftp

 

 

Já encontra-se instalado.

Fui um pouco alem nos 500MB, informei isso pq o youtube sobe arquivos grandes..

mas tipo caso eu queira subir de até 50mb por exemplo ai o aspUpload seria melhor ou qualquer um ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

marciolvs    1

marciolvs
Postado

olha este exemplo:

Set Upload = Server.CreateObject("Persits.Upload")
                Upload.OverwriteFiles = False 
                Upload.Save CaminhoUpload

                Set Foto1 = Upload.Files("Foto1")
                Set Foto2 = Upload.Files("Foto2")
                Set Foto3 = Upload.Files("Foto3")
                Set Foto4 = Upload.Files("Foto4")
                Set Foto5 = Upload.Files("Foto5")

Response.Write Foto1.FileName &"<br>"
Response.Write Foto2.FileName &"<br>"
Response.Write Foto3.FileName &"<br>"
Response.Write Foto4.FileName &"<br>"
Response.Write Foto5.FileName &"<br>"

 

Opa, agora deu certo, só falta a questão do tamanho dos arquivos que falo nas duas mensagens acima.

Compartilhar este post

Link para o post
Compartilhar em outros sites

marciolvs    1

marciolvs
Postado

Agora acho que tá redondo.

Subi o arquivo de 40MB em 12 minutos em minha conexão.

não precisei fazer alteração alguma, este tamanho acho que já ajuda muito.

 

Uma questão, sabe como acrescento aquela mensagem "Enviando..." enquando carrega o arquivo ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gilberto Jr    26

Gilberto Jr
Postado

cara, procura ai alguma video aula no google ou www.videoaulabrasil.com.br de jquery tem algumas video aulas explicando como fazer

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

aspupload tem progressbar nativo, baixe o exemplo no site do fabricante

para sobrescrever o arquivo coloque

Upload.OverwriteFiles = True

Compartilhar este post

Link para o post
Compartilhar em outros sites

marciolvs    1

marciolvs
Postado

aspupload tem progressbar nativo, baixe o exemplo no site do fabricante

para sobrescrever o arquivo coloque

Upload.OverwriteFiles = True

 

Verifiquei e testei o exemplo do fabricante, mas eles indica a pagina framebar.asp e outras e as mesmas não encontrei para ser criada.

Na criação que fiz ela chama esta linha

winstyle = "dialogWidth=385px; dialogHeight:140px; center:yes";
      window.showModelessDialog('<%=barref%>&b=IE',null,winstyle);
Porem não encontrei qual pagina ele tenta concatenar...

Onde coloco o 

Upload.OverwriteFiles = True
?

Compartilhar este post

Link para o post
Compartilhar em outros sites

marciolvs    1

marciolvs
Postado

olha este exemplo:

Set Upload = Server.CreateObject("Persits.Upload")
                Upload.OverwriteFiles = False 
                Upload.Save CaminhoUpload

                Set Foto1 = Upload.Files("Foto1")
                Set Foto2 = Upload.Files("Foto2")
                Set Foto3 = Upload.Files("Foto3")
                Set Foto4 = Upload.Files("Foto4")
                Set Foto5 = Upload.Files("Foto5")

Response.Write Foto1.FileName &"<br>"
Response.Write Foto2.FileName &"<br>"
Response.Write Foto3.FileName &"<br>"
Response.Write Foto4.FileName &"<br>"
Response.Write Foto5.FileName &"<br>"

 

Resucitando o forum.

Tive uma problema, quando envio apenas 1 arquivo ele ´dá um erro.

Assim criei um IF para se for vazio a var vai como vazio

 

Upload.OverwriteFiles = False
	pasta = Server.MapPath("documentos/")
	Upload.Save pasta
		
		' Recuperando os Dados Digitados ----------------------
		De = Upload.Form("txtde")
		Para = Upload.Form("txtpara")
		VPasta = Upload.Form("Categorias")
		VsubPasta = Upload.Form("SubCategs")
		Assunto = Upload.Form("txtassunto")
		Data = date
		hora = time

		Set Arquivo1 = Upload.Files("txtarquivo")
		Set Arquivo2 = Upload.Files("txtarquivo2")
		Set Arquivo3 = Upload.Files("txtarquivo3")
		Set Arquivo4 = Upload.Files("txtarquivo4")	
	
	IF Arquivo1 = "" Then
		varquivo = ""
	ELSE
		varquivo = Arquivo1.FileName
	End IF
	
	IF Arquivo2 = "" Then
		varquivo2 = ""
	ELSE
		varquivo2 = Arquivo2.FileName		
	End IF
	
	IF Arquivo3 = "" Then
		varquivo3 = ""
	ELSE
		varquivo3 = Arquivo3.FileName
	End IF
Mas ele me traz o erro

 

Erro de tempo de execução do Microsoft VBScript erro '800a01b6'

 

O objeto não dá suporte para a propriedade ou método

 

/sistema_v4.1/upload_doc.asp, line 25

 

 

Pode dar uma mão ai ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

marciolvs    1

marciolvs
Postado

alguém dá uma mãozinha ai ?

preciso de pagar o nome para salvar no bd

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