Ir para conteúdo

POWERED BY:

Arquivado

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

celinho_macaense

[Resolvido] Probleminha

Por , em ASP Clássico

Recommended Posts

celinho_macaense    0

celinho_macaense
Postado

Olá amigos, estou criando um site de noticias, mas estou com um probleminha. Quando tento enviar uma noticia com foto da este erro:

Microsoft VBScript runtime error '800a0046'

 

Permission denied

 

/addnotfoto1.asp, line 82

 

 

Quem puder me dar uma ajudinha agradeço desde já. E o código é este aí abaixo:

 

<!-- #include file="upload.inc" -->
<%If session("usr_log_ok")="" Then 
  Response.Write "Você está Logado no sistema!"
  Response.write "<a href='login.asp'>Clique aqui para se logar.</a>"
  Session("pagina_restrita") = Request.ServerVariables("SCRIPT_NAME")&"?"&request.ServerVariables("QUERY_STRING")
  Response.End()
End If
set conexao = Server.CreateObject("ADODB.Connection")
conexao.provider= "Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../dados/dados.mdb")&";"
conexao.open
SQL = "select * from usuarios where id_usuario ="&session("usr_log_ok")
Set RS = Conexao.Execute(SQL)
If rs.eof then
Response.write "Ocorreu um erro ao se logar no sistema!"
end if %>
<meta name="generator" content="Namo WebEditor v5.0">
<title>CeLiNhO</title>
<style TYPE="text/css">
<!--
BODY {
scrollbar-face-color: FFFFFF;
scrollbar-arrow-color: 000000;
scrollbar-base-color: 000000;
scrollbar-shadow-color: FFFFFF;
scrollbar-dark-shadow-color: 000000;
scrollbar-highlight-color: FFFFFF;
scrollbar-3d-light-color: 000000}
//-->
</STYLE>
<STYLE>
A:link 		{ Color:#666666;TEXT-DECORATION: none }
A:visited 	{ Color:#666666;TEXT-DECORATION: none }
A:active 	{ Color:#666666;TEXT-DECORATION: none }
A:hover 	{ Color:#01A8E0;TEXT-DECORATION: underline }
</STYLE>
<body>
<p> </p>

<p align="center"><font face="Arial Black" color="red"><span style="font-size:14pt;"><%
' Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

' Recuperando os Dados Digitados ----------------------
Topico = UploadRequest.Item("Topico").Item("Value")
Resumo = UploadRequest.Item("Resumo").Item("Value")
Classe = UploadRequest.Item("Classe").Item("Value")
Classe1 = UploadRequest.Item("Classe1").Item("Value")
Autor = UploadRequest.Item("Autor").Item("Value")
Noticia = UploadRequest.Item("Noticia").Item("Value")

' Tipo de arquivo que esta sendo enviado
tipo_foto = UploadRequest.Item("foto").Item("ContentType")
tipo_foto1 = UploadRequest.Item("foto1").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_foto = UploadRequest.Item("foto").Item("FileName")
caminho_foto1 = UploadRequest.Item("foto1").Item("FileName")

' Nome dos arquivos enviados
nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))
nome_foto1 = Right(caminho_foto1,Len(caminho_foto1)-InstrRev(caminho_foto1,"\"))

' Conteudo binario dos arquivos enviados
foto = UploadRequest.Item("foto").Item("Value")
foto1 = UploadRequest.Item("foto1").Item("Value")

' pasta onde as imagens serao guardadas
pasta = Server.MapPath("fotos/")
nome_foto = "/"&nome_foto
nome_foto1 = "/"&nome_foto1

' pasta + nome dos arquivos
cfoto = "fotos" + nome_foto
cfoto1 = "fotos" + nome_foto1

' Fazendo o Upload do arquivo selecionado
if foto <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)
For i = 1 to LenB(foto)
MyFile.Write chr(AscB(MidB(foto,i,1)))
Next
MyFile.Close
end if

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

' Conecta-se ao Banco de Dados
url_conexao = Server.MapPath("../dados/dados.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 Noticias (Topico,Resumo,Classe,Classe1,Autor,Noticia,foto,foto1) values ('"& Topico &"', '"& Resumo &"', '"& Classe &"','"& Classe1 &"','"& Autor &"', '"& Noticia &"', '"& cfoto &"', '"& cfoto1 &"')"
Conexao.Execute(sql)

' Mostra Mensagem de Confirmação na Tela
Response.write "Parabéns, a notícia foi inserida com sucesso com sucesso!"

' Redireciona após 5 segundos
response.write "<br><br>você será redirecionado em 20 segundos..<br>"
response.write "<meta http-equiv='refresh' content='2; url=admin.asp'/>"
%></span></font>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

seu erro é na linha

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto) ????

 

dê permissoes na pasta e arquivo para poder fazer a criacao, e verifique se nao tem nenhum software bloqueando a criação...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

dê uma pesquisada no fórum sobre permissão, irá ver uma grande quantidade de tópicos com esse mesmo questionamento e terá um resultado positivo.

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Você colocou permissão na pasta que grava o arquivo e não deu certo?

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

O caminho pode está errado.

 

Acima da linha

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)

 

Coloque:

Response.Write pasta & nome_foto

Response.End

 

Poste o resultado.

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