Ninguém Vai Ajudar Mesmo?!

jf_rodrigues · Fevereiro 16, 2004

E ae galera, estou com um probleminha aqui q não estou conseguindo resolver e queria ver se alguém pode me ajudar. Instalei o AspUpload, mas quando vou rodá-lo da o seguinte erro:

Informações técnicas (para a equipe de suporte)
Tipo de erro:
Persits.Upload.1 (0x800A003F)
Invalid registration key.
/aspupload/02_simple/UploadScript1.asp, line 11
Tipo de navegador:
Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)
Página:
POST 1613 bytes to /aspupload/02_simple/UploadScript1.asp
POST Data:
. . .
Hora:
quinta-feira, 12 de fevereiro de 2004, 15:07:32

O código é o seguinte:

<HTML>
<BODY>
<%
Set Upload = Server.CreateObject("Persits.Upload")
Count = Upload.Save("c:\upload")
Response.Write Count & " file(s) uploaded to c:\upload"
%>
</BODY>
</HTML>

Ajuda aí galera!! Abraços!

pgmador · Fevereiro 16, 2004

O componente está instalado?

Voce tem permissão de escrita?

O que voce colocou ali, a linha 11 está em branco.

jf_rodrigues · Fevereiro 16, 2004

O componente está instalado?
Voce tem permissão de escrita?
O que voce colocou ali, a linha 11 está em branco.

O componente está instalado sim! Agora não sei se tenho permissão de escrita, onde vejo isso? (Primeira vez q uso este componente!). Na linha 11 está o código:

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

ska_ska · Fevereiro 16, 2004

velho.. faz assim.. você instalou o aspUpload... mas so uma pergunta.. você instalou ele e rodou algum cracker pra tirar a data de expiração????

tenta rodar so ele... ve se da errro... se der.. reinstala e puxa outro cracker q esse é bixado

<%

Set Upload = Server.CreateObject("Persits.Upload")

Set Upload = Nothing

%>

jissa · Fevereiro 16, 2004

O problema pode ser o diretorio mesmo.. ele tem que ser o diretorio Fisico do Server.

Ex.: "d:\hshome\login_ftp\upload"

consulte o seu provedor e pergunte qual o path(caminho) para seu dominio, ai só acresente o lugar onde quer que seja colocado os upload´s

qualquer coisa posta ai

jf_rodrigues · Fevereiro 17, 2004

Galera valeu pela ajuda!! Resolvi o problema, tirei o Persist e coloquei o Dundas que é Free, se alguém quiser pegaí:

Componente Aspload Dundas

Se alguém tiver a mesma dúvida que eu tive o código abaixo resolve. Ele faz o upload do arquivo para o servidor e salva o caminho e outros campos no banco de dados!

On Error Resume Next

Response.Write "<HTML><HEAD><TITLE>Fazendo UpLoad com Dundas UpLoad</TITLE></HEAD><BODY>"

Dim objUpload

'Cria uma instancia do objeto Upload e atribui a variável objUpload.
Set objUpload = server.CreateObject("Dundas.Upload.2")

'Determinamos True em UseVirtualDir para que possamos utilizar o caminho virtual.
objUpload.UseVirtualDir = True

'Grava o arquivo no servidor com o nome original
objUpload.UseUniqueNames = False

'Utilizamos o caminho virtual que determina onde serão salvos os arquivos carregados.
objUpload.Save "..\upload"

'Aqui nós verificaremos se ocorreu algum tipo de erro com os dados carregados. O objeto Err guarda o último erro, caso nenhum erro tenha ocorrido o objeto conterá o valor 0 (zero) com isso podemos verificar o valor do objeto e determinarmos qual mensagem será dada ao usuário.
If Err <> 0 Then

'Aqui estamos imprimindo na tela do usuário a descrição do erro e seu número.
Response.Write Err.Description & " " & Err.Number & "<br>"
Response.Write "<font face=Verdana, Arial, Helvetica, sans-serif size=2>Houve erro(s) ao carregar o(s) arquivo(s) anexado(s)!<a href=javascript:history.back(-1)>Voltar</a></b></font>"
Else
'Se o objeto Err for igual a 0 será apresentado a mensagem de sucesso e os dados estarão salvos no caminho determinado acima
'Response.Write "<font face=Verdana, Arial, Helvetica, sans-serif size=2><b>Seus dados foram carregados com sucesso!</b></font><br>"
For Each objUploadedFile in objUpload.Files
    path=objUploadedFile.Path
	titulo = objUpload.form("titulo")
	previa = objUpload.form("previa")
	texto = objUpload.form("texto")
	foto = "..\upload\"& objUpload.GetFileName(path)
	ativo = objUpload.form("ativo")
Next

End If
Response.Write "</BODY></HTML>"

	if ativo = "checkbox" then
  ativo = 1
	else
  ativo = 0
	end if

Conn.Execute("Insert Into proxevento(titulo,previa,texto,foto_index,ativo) values ('"&titulo&"','"&previa&"','"&texto&"','"&foto&"','"&ativo&"')")

'Limpa a instância criada na memória do servidor.
Set objUpload = nothing

Abraços a todos!!

Entrar

Ninguém Vai Ajudar Mesmo?!

Pergunta

jf_rodrigues

Link para o comentário

Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

pgmador

Link para o comentário

Compartilhar em outros sites

jf_rodrigues

Link para o comentário

Compartilhar em outros sites

ska_ska

Link para o comentário

Compartilhar em outros sites

jissa

Link para o comentário

Compartilhar em outros sites

jf_rodrigues

Link para o comentário

Compartilhar em outros sites

Estatísticas dos Fóruns

Navegação

Atividades