Permissão Negada

Boris · Agosto 10, 2009

Galera estou com o seguinte problema.

Ao execular uma inclusao aparece a seguinte mensagem

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

Permissão negada

/catalogo/seg_asp/upload_form2.asp, line 196

eu já compartilhei a pasta de bd e de fotos mas não adianta continua dando esse erro

meu condigo é:

<table width="597" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="597" class="texto8"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="16%"> </td>
        <td width="84%" class="texto8"><%

'############### FOTO 01 #######################
tipo_imagem01 = UploadRequest.Item("imagem01").Item("ContentType")

'############### FOTO 02 #######################
tipo_imagem02 = UploadRequest.Item("imagem02").Item("ContentType")

'############### FOTO 03 #######################
tipo_imagem03 = UploadRequest.Item("imagem03").Item("ContentType")

'############### FOTO 04 #######################
tipo_imagem04 = UploadRequest.Item("imagem04").Item("ContentType")

'############### FOTO 05 #######################
tipo_imagem05 = UploadRequest.Item("imagem05").Item("ContentType")

'### CAMINHO COMPLETO DOS ARQUIVOS ENVIADOS ####
caminho_imagem01 = UploadRequest.Item("imagem01").Item("FileName")

'############### FOTO 02 #######################
caminho_imagem02 = UploadRequest.Item("imagem02").Item("FileName")

'############### FOTO 03 #######################
caminho_imagem03 = UploadRequest.Item("imagem03").Item("FileName")

'############### FOTO 04 #######################
caminho_imagem04 = UploadRequest.Item("imagem04").Item("FileName")

'############### FOTO 05 #######################
caminho_imagem05 = UploadRequest.Item("imagem05").Item("FileName")

'#### NOME DO ARQUIVO A SER ENVIADO ############
nome_imagem01 = Right(caminho_imagem01,Len(caminho_imagem01)-InstrRev(caminho_imagem01,"\"))

'############### FOTO 02 #######################
nome_imagem02 = Right(caminho_imagem02,Len(caminho_imagem02)-InstrRev(caminho_imagem02,"\"))

'############### FOTO 03 #######################
nome_imagem03 = Right(caminho_imagem03,Len(caminho_imagem03)-InstrRev(caminho_imagem03,"\"))

'############### FOTO 04 #######################
nome_imagem04 = Right(caminho_imagem04,Len(caminho_imagem04)-InstrRev(caminho_imagem04,"\"))

'############### FOTO 05 #######################
nome_imagem05 = Right(caminho_imagem05,Len(caminho_imagem05)-InstrRev(caminho_imagem05,"\"))

'### CONTEUDO BINARIO DOS ARQUIVOSENVADOS ######

imagem01 = UploadRequest.Item("imagem01").Item("Value")

'############### FOTO 02 #######################
imagem02 = UploadRequest.Item("imagem02").Item("Value")

'############### FOTO 03 #######################
imagem03 = UploadRequest.Item("imagem03").Item("Value")

'############### FOTO 04 #######################
imagem04 = UploadRequest.Item("imagem04").Item("Value")

'############### FOTO 05 #######################
imagem05 = UploadRequest.Item("imagem05").Item("Value")

'### PASTA ONDE AS FOTOS SERÃO QUARDADAS #######
pasta = Server.MapPath("..\fotos\")

'############### FOTO 01 #######################
nome_imagem01 = "\"&nome_imagem01

'############### FOTO 02 #######################
nome_imagem02 = "\"&nome_imagem02

'############### FOTO 03 #######################
nome_imagem03 = "\"&nome_imagem03

'############### FOTO 04 #######################
nome_imagem04 = "\"&nome_imagem04

'############### FOTO 05 #######################
nome_imagem05 = "\"&nome_imagem05

'### PASTA + NOME DOS ARQUIVOS #################
cimagem01 = "..\fotos" + nome_imagem01

'############### FOTO 02 #######################
cimagem02 = "..\fotos" + nome_imagem02

'############### FOTO 03 #######################
cimagem03 = "..\fotos" + nome_imagem03

'############### FOTO 04 #######################
cimagem04 = "..\fotos" + nome_imagem04

'############### FOTO 05 #######################
cimagem05 = "..\fotos" + nome_imagem05
       
	
' Fazendo o Upload do arquivo selecionado

if cimagem01="..\fotos\" then
   cimagem01="..\fotos\sem-foto.jpg"
end if

if cimagem02="..\fotos\" then
   cimagem02="..\fotos\sem-foto.jpg"
end if

if cimagem03="..\fotos\" then
   cimagem03="..\fotos\sem-foto.jpg"
end if

if cimagem04="..\fotos\" then
   cimagem04="..\fotos\sem-foto.jpg"
end if

if cimagem05="..\fotos\" then
   cimagem05="..\fotos\sem-foto.jpg"
end if


'############### FOTO 01 #######################
if imagem01 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_imagem01)
For i = 1 to LenB(imagem01)
MyFile.Write chr(AscB(MidB(imagem01,i,1)))
Next
MyFile.Close
end if

'############### FOTO 02 #######################
if imagem02 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_imagem02)
For i = 1 to LenB(imagem02)
MyFile.Write chr(AscB(MidB(imagem02,i,1)))
Next
MyFile.Close
end if

'############### FOTO 03 #######################
if imagem03 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_imagem03)
For i = 1 to LenB(imagem03)
MyFile.Write chr(AscB(MidB(imagem03,i,1)))
Next
MyFile.Close
end if

'############### FOTO 04 #######################
if imagem04 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_imagem04)
For i = 1 to LenB(imagem04)
MyFile.Write chr(AscB(MidB(imagem04,i,1)))
Next
MyFile.Close
end if

'############### FOTO 05 #######################
if imagem05 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_imagem05)
For i = 1 to LenB(imagem05)
MyFile.Write chr(AscB(MidB(imagem05,i,1)))
Next
MyFile.Close
end if


' Conecta-se ao Banco de Dados

'Set conexao = Server.CreateObject("ADODB.Connection")
'conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=..\bd\bd.mdb"

url_conexao = Server.MapPath("..\bd\bd_catalogo.mdb")
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao 


' cadastra os dados no banco de dados
sql = "Insert into produto (valor, data, hora, grupo, ativo,imagem01,imagem02,imagem03,imagem04,imagem05,referencia, observacao, desc_produto) values('"&valor&"','"&sData&"','"&hora&"','"&grupo&"', '"&ativo&"','"&cimagem01&"', '"&cimagem02&"', '"&cimagem03&"', '"&cimagem04&"', '"&cimagem05&"', '"&referencia&"','"&observacao&"', '"&desc_produto&"')"
conexao.Execute(sql)
%></td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td height="19" valign="top" class="texto8bold"><table width="100%" border="0" align="left" cellpadding="0" cellspacing="0">
      <tr>
        <td><div align="center" class="texto8bold">
          <%
' Mostra Mensagem de Confirmação na Tela
Response.write "Dados Cadastrados com Sucesso!"
response.write "<meta http-equiv='refresh' content='1; url=../seg_asp/inserir_produto.asp'/>"
' Redireciona após 5 segundos
'response.write "<br><br>você será redirecionado em 5 segundos..<br>"
'response.write "<meta http-equiv='refresh' content='2; url=../admin.asp'/>"
'end if
%>
          <br>
        </div></td>
      </tr>
    </table>
        <div align="center"><br />
      </div></td>
  </tr>
  <tr>
    <td valign="top" height="10"></td>
  </tr>
</table>

o bloco que está com erro é esse logo abaixo

'############### FOTO 01 #######################
if imagem01 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_imagem01)
For i = 1 to LenB(imagem01)
MyFile.Write chr(AscB(MidB(imagem01,i,1)))
Next
MyFile.Close
end if

Valew pela força galera....

xanburzum · Agosto 11, 2009

você esta tentando criar um arquivo texto, em um arquivo, onde o IIS nao possui permissao pra isso,

verifique todas as permissoes para o usuario e pasta, veja tb se naun tem nenhum software blokeando a criacaun (anti-virus,firewall, etc...)

Apenas certifique-se de que qualquer pasta que você decidir usar é acessível (tanto ler e escrever) por IUSR_MachineName. Para garantir que a Internet conta Convidado tem ler e escrever as permissões para o diretório, clique com o botão direito no nome da pasta no Windows Explorer, clique em Propriedades, guia Segurança

Se a conta Convidado Internet não estiver na lista, clique em Adicionar ... e encontrar ou tipo <computer_name> \ IUSR_ <computer_name>. Em seguida, certifique-se que a leitura / gravação são ambos ativados.

hargon · Agosto 11, 2009

Verifique também se o caminho está correto, pois se estiver errado, vai gerar erro de permissão negada.

Boris · Agosto 11, 2009

você esta tentando criar um arquivo texto, em um arquivo, onde o IIS nao possui permissao pra isso,

verifique todas as permissoes para o usuario e pasta, veja tb se naun tem nenhum software blokeando a criacaun (anti-virus,firewall, etc...)

Apenas certifique-se de que qualquer pasta que você decidir usar é acessível (tanto ler e escrever) por IUSR_MachineName. Para garantir que a Internet conta Convidado tem ler e escrever as permissões para o diretório, clique com o botão direito no nome da pasta no Windows Explorer, clique em Propriedades, guia Segurança

Se a conta Convidado Internet não estiver na lista, clique em Adicionar ... e encontrar ou tipo <computer_name> \ IUSR_ <computer_name>. Em seguida, certifique-se que a leitura / gravação são ambos ativados.

Bom dia, já verifiquei e fiz todos os processos, mas agora aparece o seguinte erro:

Objeto Request erro 'ASP 0104 : 80004005'

Operação não permitida

../upload_form2.asp, line 6

<%
' Chamando Funções, que fazem o Upload funcionar

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)' LINHA 6

Set UploadRequest = server.CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

Valew pela força... abs

Ted k' · Agosto 11, 2009

esta colocando o restante do UPLOAD na mesma página que esse código?

Boris · Agosto 14, 2009

AI GALERA DESCULPA ACABEI RESPONDENDO ERRADO.

Valew pela força descobri que é o tamanho da imagem....

apesar que 400kb não é tão grande né...

Existe alguma forma de colocar uma imagem maior...

vamos dizer que de uns 600 kb pra upload

xanburzum · Agosto 14, 2009

dá uma olhada neste linkum guia para esse erro

Entrar

Arquivado

Permissão Negada

Recommended Posts

Boris 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Boris 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Boris 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Estou criando uma calculadora de m2 e litros de tinta

Cruzamento de Bases

Consulta sem duplicação

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante