Ir para conteúdo

POWERED BY:

Arquivado

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

net studio design robert

Problema inserção de dados com upload

Por , em ASP Clássico

Recommended Posts

net studio design robert    0

net studio design robert
Postado

Olá galera, estou tendo um probleminha.

 

Tenho uma página em ASP com alguns campos de formulário e 2 campos de arquivo para realizar upload de imagens. Quando dá o submit neste form aí chama a página que tem o código abaixo.

 

<!-- #include file = "funcoes_upload.asp" -->
<!-- #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 %>

<title>SEINF INTERNET</title>

<body>

<%

' 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 5 segundos..<br>"
response.write "<meta http-equiv='refresh' content='2; url=admin.asp'/>"
%>

Porém está dando o seguinte erro:

 

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

 

O componente do ActiveX não pode criar objeto: 'Scripting.Dictionary'

 

/seinf/pagina/internet/noticias/enviar_noticiacomfoto.asp, line 43

 

Por favor me ajudem!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

não está achando o resto das funções, tente fazer essa linha assim tudo junto

 

ASP
<!--#include file="funcoes_upload.asp"-->

 

e verifique para vêer se ela existe mesmo!

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