Ir para conteúdo

POWERED BY:

Arquivado

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

Boris

[Resolvido] Permission denied

Por , em ASP Clássico

Recommended Posts

Boris    0

Boris
Postado

Galera estou com o seguinte problema...

já estou com um site publicado e está com permissão total pore está aparecendo este erro alguem pode me ajudar...

 

 

Erro

Microsoft VBScript runtime error '800a0046'

 

Permission denied

 

/modelo/seg_asp/upload_form2.asp, line 238

 

upload_form2.asp

 

<!-- #include file = "upload_funcoes.asp" -->
 
 <%
 ' Chamando Funções, que fazem o Upload funcionar
 byteCount = Request.TotalBytes
 RequestBin = Request.BinaryRead(byteCount)
 Set UploadRequest = server.CreateObject("Scripting.Dictionary")
 BuildUploadRequest RequestBin
 
 ' Recuperando os Dados Digitados ----------------------
 tp_imovel		 = UploadRequest.Item("tp_imovel").Item("Value")
 desc_lancamento = UploadRequest.Item("desc_lancamento").Item("Value")
 nivel_prioridade= UploadRequest.Item("nivel_prioridade").Item("Value")
 desc_aluguel	= UploadRequest.Item("desc_aluguel").Item("Value")
 ativo			= UploadRequest.Item("ativo").Item("Value")
 valor			= UploadRequest.Item("valor").Item("Value")
 referencia		= UploadRequest.Item("referencia").Item("Value")
 desc_negrito02	= UploadRequest.Item("desc_negrito02").Item("Value")
 desc_imovel		= UploadRequest.Item("desc_imovel").Item("Value")
 bairro			= UploadRequest.Item("bairro").Item("Value")
 finan_segur		= UploadRequest.Item("finan_segur").Item("Value")
 'n_finan_segur	= UploadRequest.Item("n_finan_segur").Item("Value")
 dormitorios		= UploadRequest.Item("dormitorios").Item("Value")
 vagas			= UploadRequest.Item("vagas").Item("Value")
 sData = Date
 hora = Time
 %>
 
 <style type="text/css">
 <!--
 .texto8 {  font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: normal; color: #333333; text-decoration: none}
 .texto8bold {  font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: bold; color: #3F68AD; text-decoration: none}
 .texto7 {  font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 7pt; font-weight: normal; color: #000000; text-decoration: none}
 .texto8boldred { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: bold; color: #FF0000; text-decoration: none }
 .sombra {
		 filter:progid:DXImageTransform.Microsoft.dropshadow(OffX=3, OffY=5, Color='#999999', Positive='true')
		 }
 .texto8boldblac {
 font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: bold; color: #3F68AD; text-decoration: none
 }
 .style1 {
	 font-size: 18px;
	 font-family: arial;
	 color: #3F68AD;
 }
 .style3 {font-size: 7pt}
 .style11 {color: #3F68AD; text-decoration: none; font-weight: bold;}
 .style13 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 7pt; font-weight: bold; color: #FF0000; text-decoration: none; }
 .style14 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 7pt; font-weight: bold; color: #3F68AD; text-decoration: none; }
 .style15 {font-weight: bold; color: #FF0000; text-decoration: none; font-family: Verdana, Arial, Helvetica, sans-serif;}
 .style16 {	font-size: 7pt;
	 font-weight: bold;
 }
 .style2 {color: #666666}
 .style6 {font-weight: bold; font-family: VERDANA;}
 .style7 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 7pt; font-weight: normal; color: #333333; text-decoration: none; }
 .style9 {color: #FF0000; text-decoration: none; font-weight: bold;}
 .textobr {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: bold; color: #FFFFFF; text-decoration: none}
 -->
 </style>
 <title>Moradia Imobiliária - Gerenciador</title>
 <body bgcolor="#3300CC" text="#000000" leftmargin="3" topmargin="52">
 <br>
 <br>
 <table border="0" cellspacing="0" cellpadding="2" align="center" bordercolor="#000000" width="700">
   <tr>
	 <td bgcolor="#000000"><table width="656" border="0" cellspacing="0" cellpadding="0" align="center">
	   <tr>
		 <td><img src="Imagens/topo.gif" width="700" height="87" usemap="#Map" border="0"></td>
	   </tr>
	   <tr>
		 <td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
			 <tr>
			   <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
				   <tr>
					 <td><div align="center" class="style2">
						 <table width="100%" border="0" cellspacing="0" cellpadding="0">
						   <tr class="texto8">
							 <td height="13"><table width="100%" border="0" cellspacing="0" cellpadding="0">
								 <tr>
								   <td width="77%" height="21"> </td>
								   <td width="12%"><li ><a href="../admmor/default.asp" class="texto8bold">Gerenciador </a></td>
								   <td width="11%"><div align="center">
									   <li><a href="../admmor/login_skip.asp" class="texto8bold">Sair</a></li>
								   </div></td>
								 </tr>
								 <tr>
								   <td height="2" colspan="3"><hr size="1" color="#CCCCCC"></td>
								 </tr>
							 </table></td>
						   </tr>
						 </table>
					   <span class="style6"><br>
						 </span>
						 <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"><%
 
 if valor = "1" then
		desc_valor="..\img\otimo-preco.gif"
 end if
 
 'if tp_imovel <> "" and desc_lancamento <> "" and desc_aluguel <> "" and nivel_prioridade <> "" and ativo <> "" and desc_simples <> "" and valor <> "" and referencia <> "" and desc_negrito02 <> "" and  desc_imovel <> "" and endereco <> "" and bairro <> "" then
 
 
 '############### 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 ####
 '############### FOTO 01 #######################
 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 ############
 '############### FOTO 01 #######################
 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 ######
 '############### FOTO 01 #######################
 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 #################
 '############### FOTO 01 #######################
 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")
 [b]Set MyFile = ScriptObject.CreateTextFile(pasta & nome_imagem01)[/b]
 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
 url_conexao = Server.MapPath("..\bd\bd.mdb")
 set conexao = Server.CreateObject("ADODB.Connection")
 conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao 
 
 
 '	if ativo="Não" then
 '		ativo="0"
 
 '	end if
 
 '	if ativo="Sim" then
 '		ativo="1"
 '	end if
 
	if finan_segur = "..\img\caixa.jpg" then
			finan_segur="..\img\caixa.jpg"
		 n_finan_segur= "Caixa Economica"
	 end if
 
	if finan_segur = "..\img\porto.jpg" then
		   finan_segur="..\img\porto.jpg"
		 n_finan_segur= "Porto Seguro"
	 end if
 
	  if finan_segur = "..\img\transp.gif" then
			finan_segur="..\img\transp.gif"
		 n_finan_segur= "Nenhum"
	 end if
 
 
 
 
 ' cadastra os dados no banco de dados
 sql = "Insert into imovel(finan_segur,data,hora,tp_imovel,desc_lancamento,desc_aluguel,nivel_priori
 dade,ativo,imagem01,imagem02,imagem03,imagem04,imagem05,valor,referencia,desc_ne
g
 rito02,desc_imovel,bairro,dormitorios,vagas,desc_valor,n_finan_segur) values('"&finan_segur&"','"&sData&"','"&hora&"','"&tp_imovel&"','"&desc_lancamento&"','"&desc_aluguel&"','"&nivel_prioridade&"','"&ativo&"','"&cimagem01&"','"&cimagem02&"', '"&cimagem03&"' ,'"&cimagem04&"' ,'"&cimagem05&"','"&valor&"','"&referencia&"','"&desc_negrito02&"','"&desc_imovel&"','"&bairro&"','"&dormitorios&"','"&vagas&"','"&desc_valor&"','"&n_finan_segur&"')"
 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=../admmor/admin.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>
					   <br>
					   </div>
						 <table width="100%" border="0" cellspacing="0" cellpadding="2">
						   <tr>
							 <td><hr size="1" color="#CCCCCC">
							 </td>
						   </tr>
						   <tr>
							 <td valign="top"> </td>
						   </tr>
					   </table></td>
				   </tr>
			   </table></td>
			 </tr>
		 </table></td>
	   </tr>
	   <tr>
		 <td bgcolor="#0059B3"><table width="90%" border="0" cellspacing="0" cellpadding="7" align="center">
			 <tr>
			   <td class="textobr"><div align="center"><font color="#FFFFFF">Moradia Imobiliária 
									 - Tel.: (11) 2546.2299 – Fax: (11) 2943.2121 - contato@moradia.imb.br</font></div></td>
			 </tr>
		 </table></td>
	   </tr>
	 </table></td>
   </tr>
 </table>
 </body>

Upload_funcoes.asp

<%
 ' Upload Sem componentes ---------------------------------------
 Sub BuildUploadRequest(RequestBin)
 on error resume next
 
 PosBeg = 1
 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13)))
 boundary = MidB(RequestBin, PosBeg, PosEnd - PosBeg)
 BoundaryPos = InStrB(1, RequestBin, boundary)
 
 Do Until (BoundaryPos = InStrB(RequestBin, boundary & getByteString("--")))
 
 Dim UploadControl
 Set UploadControl = CreateObject("Scripting.Dictionary")
 
 Pos = InStrB(BoundaryPos, RequestBin, getByteString("Content-Disposition"))
 Pos = InStrB(Pos, RequestBin, getByteString("name="))
 PosBeg = Pos + 6
 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34)))
 Name = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))
 PosFile = InStrB(BoundaryPos, RequestBin, getByteString("filename="))
 PosBound = InStrB(PosEnd, RequestBin, boundary)
 
 If PosFile <> 0 And (PosFile < PosBound) Then
 PosBeg = PosFile + 10
 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34)))
 FileName = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))
 UploadControl.Add "FileName", FileName
 Pos = InStrB(PosEnd, RequestBin, getByteString("Content-Type:"))
 PosBeg = Pos + 14
 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13)))
 ContentType = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))
 UploadControl.Add "ContentType", ContentType
 PosBeg = PosEnd + 4
 PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2
 Value = MidB(RequestBin, PosBeg, PosEnd - PosBeg)
 Else
 Pos = InStrB(Pos, RequestBin, getByteString(Chr(13)))
 PosBeg = Pos + 4
 PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2
 Value = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))
 End If
 
 UploadControl.Add "Value", Value
 UploadRequest.Add Name, UploadControl
 BoundaryPos = InStrB(BoundaryPos + LenB(boundary), RequestBin, boundary)
 Loop
 End Sub
 
 Function getByteString(StringStr)
 For i = 1 To Len(StringStr)
 Char = Mid(StringStr, i, 1)
 getByteString = getByteString & ChrB(AscB(Char))
 Next
 End Function
 
 Function getString(StringBin)
 getString = ""
 For intCount = 1 To LenB(StringBin)
 getString = getString & Chr(AscB(MidB(StringBin, intCount, 1)))
 Next
 End Function
 
 ' Fim upload sem Componentes -----------------------------------------
 %>

Valew pela força galera, pois so falta resolver esse problema pra poder fechar esse projeto...

 

abs http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Verifique o caminho onde está tentando manipular os arquivos. Uma simples barra a mais ou a menos pode retornar a mensagem de permissão negada.

 

Para ter certeza do caminho, informe o caminho completo ao invés de utilizar Server.MapPath.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jonas Nogueira    0

Jonas Nogueira
Postado

Fala pessoal, beleza?

 

Verifica se o usuário que está configurado no IIS tem permissão de escrita no NTFS desse diretório.

 

Se você estiver usando o IIS 6, adiciona a conta local IIS_WPG e libera permissão de escrita pra esse usuário tb.

 

Qualquer problema, posta aí!!

 

Abraços,

Jonas

Compartilhar este post

Link para o post
Compartilhar em outros sites

Boris    0

Boris
Postado

Verifique o caminho onde está tentando manipular os arquivos. Uma simples barra a mais ou a menos pode retornar a mensagem de permissão negada.

 

Para ter certeza do caminho, informe o caminho completo ao invés de utilizar Server.MapPath.

 

Como assim o caminho completo...

 

Eu estou coloando assim ...

 

url_conexao = Server.MapPath("..\bd\bd.mdb")

set conexao = Server.CreateObject("ADODB.Connection")

conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

 

 

Está errado ?

 

Valew

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Caminho completo que eu me refiro, é informar o caminho físico do arquivo. Ex. C:\inetpub\blabla\banco.mdb

Compartilhar este post

Link para o post
Compartilhar em outros sites

Boris    0

Boris
Postado

Caminho completo que eu me refiro, é informar o caminho físico do arquivo. Ex. C:\inetpub\blabla\banco.mdb

esse exemplo é se fosse o caso de está na minha maquina, mas o estranho é que no meu computador esta funcionando normal mas na internet não mesmo depois de dar todas as permissões para a pasta onde está o banco de dados...

 

será que pode ser alguma coisa no meu provedor de hospedagem ?

 

abs

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Isso, mas você pode colocar o caminho completo no servidor também. É só solicitar ao suporte. Se não me engano tem uma variável de ambiente que informa ele também.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Boris    0

Boris
Postado

Isso, mas você pode colocar o caminho completo no servidor também. É só solicitar ao suporte. Se não me engano tem uma variável de ambiente que informa ele também.

 

era realmente problema do provedor, resolvido a configuração com a area de suporte deles

 

obrigado

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