[Resolvido] erro no upload

[WEBIER 0]

Estava procurando um sistema em ASP de album de fotografia dividido pode categoria... encontrei aqui mesmo no Imaster... mas está dando erro na hora de fazer o upload das fotografias.

 

link o link da materia com a opção de download do asp: http://forum.imasters.com.br/index.php?/topic/246529-sistema-de-fotos-com-upload-e-area-administrativa/

 

exemplo:

 

1. Crio uma categoria

2. Clico em adicionar fotos naquela categoria

3. Aparece uma janela com 10 locais para inidicar as fotografias... indico 10 fotos diferentes...

4. Clico no botão enviar fotografia e ai dar o seguinte erro:

 

 

SaveBinaryData error '800a0bbc'

 

D:\Web\teste\galeriadefotos\config\fotos\31051208_fofo.gif:Write to file failed.

 

/teste/galeriadefotos/config/_upload.asp, line 827

 

 

o que pode ser que esteja acotencendo e como faço pra resolver?

[hargon 64]

Essa pasta tem permissão de escrita?

[WEBIER 0]

Essa pasta tem permissão de escrita?

 

dei todas as permissões para ela... gravar/modificar/ler

[xanburzum 169]

Este erro pode ocorrer se IUSR_MachineName nao tiver as permissões adequadas na pasta onde está a escrever o arquivo, se a pasta que você está tentando escrever não existe, se você está tentando escrever para uma pasta no Windows XP ou superior, que tem disco gestão das quotas ativado e já se encontrou ou ultrapassaram o seu limite, ou se o arquivo que você está tentando escrever já existe.

 

Para corrigir o problema IUSR_MachineName permissões, certifique-se de Windows sabe que IUSR deverá ser capaz de ler / escrever / modificar dentro dessa pasta (ou escolher uma pasta diferente).

 

Para corrigir a falta da pasta , você pode usar o FileSystemObject método FolderExists () ; se a pasta não existir, você pode criá-la ou escolher uma pasta diferente.

 

Para fixar o contingente , você tem uma variedade de opções: disable gestão das quotas, aumentar esta quota fixa, excluir alguns arquivos, salvar os arquivos para um local diferente, ...

 

Para corrigir o arquivo pré-existente, você pode usar o FileSystemObject método Fileexists () , se o arquivo que você está tentando salvar já existe, você pode retornar uma mensagem de erro graciosa para o utilizador, ou salvar o arquivo com um nome diferente.

[WEBIER 0]

Este erro pode ocorrer se IUSR_MachineName nao tiver as permissões adequadas na pasta onde está a escrever o arquivo, se a pasta que você está tentando escrever não existe, se você está tentando escrever para uma pasta no Windows XP ou superior, que tem disco gestão das quotas ativado e já se encontrou ou ultrapassaram o seu limite, ou se o arquivo que você está tentando escrever já existe.

 

Para corrigir o problema IUSR_MachineName permissões, certifique-se de Windows sabe que IUSR deverá ser capaz de ler / escrever / modificar dentro dessa pasta (ou escolher uma pasta diferente).

 

Para corrigir a falta da pasta , você pode usar o FileSystemObject método FolderExists () ; se a pasta não existir, você pode criá-la ou escolher uma pasta diferente.

 

Para fixar o contingente , você tem uma variedade de opções: disable gestão das quotas, aumentar esta quota fixa, excluir alguns arquivos, salvar os arquivos para um local diferente, ...

 

Para corrigir o arquivo pré-existente, você pode usar o FileSystemObject método Fileexists () , se o arquivo que você está tentando salvar já existe, você pode retornar uma mensagem de erro graciosa para o utilizador, ou salvar o arquivo com um nome diferente.

 

xanburzum, tem como você baixar ai o exemplo e fazer essas alterações pra mim... to precisando muito disso e comecei a estudar agora...

 

Desde já lhe agradeço!

[xanburzum 169]

você precisa configurar na sua maquina/Server, ou entre em contato com o host para ver se as permissoes setadas estao corretas...

[WEBIER 0]

olha o codigo:

 

Function SaveBinaryDataStream(FileName, ByteArray)
	Dim BinaryStream
	Set BinaryStream = createobject("ADODB.Stream")
	BinaryStream.Type = 1 'Binary
	BinaryStream.Open
	'2.06 - zero byte file is legal
	if lenb(ByteArray)>0 then BinaryStream.Write ByteArray
	On error Resume next
	
	BinaryStream.SaveToFile FileName, 2 'Overwrite

	if Err = &Hbbc then 'Path not found.
		On error Goto 0
		RecurseMKDir GetPath(FileName)
		On error Resume next
		BinaryStream.SaveToFile FileName, 2 'Overwrite
	end if
	Dim ErrMessage, ErrNumber
	
	ErrMessage = Err.Description
	ErrNumber = Err

	On Error Goto 0
	if ErrNumber<>0 then Err.Raise ErrNumber, "SaveBinaryData", FileName & ":" & ErrMessage 
	
End Function

 

ele diz que o erro tá na linha 827.... a linha 827 é essa:

if ErrNumber<>0 then Err.Raise ErrNumber, "SaveBinaryData", FileName & ":" & ErrMessage 

[xanburzum 169]

retire o On error Resume next

O On Error Resume Next é um dos únicos tratamento possível de erro, porém se for usado de forma errada ele torna-se péssimo .

se o Path not found, ele precisa criar o dir, veja se esta permitindo criar

[WEBIER 0]

retire o On error Resume next

O On Error Resume Next é um dos únicos tratamento possível de erro, porém se for usado de forma errada ele torna-se péssimo .

se o Path not found, ele precisa criar o dir, veja se esta permitindo criar

 

 

desabilite a linha e ele acusou na 819:

 

BinaryStream.SaveToFile FileName, 2 'Overwrite

[leandro010188 0]

cara tem como você passa o link zipado do arquivo?

 

estou presizando de um sistema desse

 

até mais...

[WEBIER 0]

cara tem como você passa o link zipado do arquivo?

 

estou presizando de um sistema desse

 

até mais...

 

já postei o link lá no inicio..

 

POST RESOLVIDO!

 

PODE MARCAR COMO RESOLVIDO!

[xanburzum 169]

beleza, WEBIER