simples de upload de imagens

[alohmann 0]

Consegui um script q faz upload de imagens e insere o nome no bd. Acontece q tá dando um pequeno erro. Eu quero q o arquivo (por exemplo, teste.jpg) seja salvo no BD como "teste.jpg". Mas tá salvando com uma maldita "/" na frente, ou seja, tá salvando como "/teste.jpg". Isso só no bd, pois o arquivo vai normal, pra pasta q eu quero, com o nome sem a "/". Segue abaixo o código.

 

<!-- #include file = "upload_funcoes.asp" -->

<%

' 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 ----------------------

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 

' Tipo de arquivo que esta sendo enviado

tipo_foto = UploadRequest.Item("foto").Item("ContentType")

 

' Caminho completo dos arquivos enviados

caminho_foto = UploadRequest.Item("foto").Item("FileName")

 

' Nome dos arquivos enviados

nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))

 

' Conteudo binario dos arquivos enviados

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

 

' pasta onde as imagens serao guardadas

pasta = Server.MapPath("../imagens/livros/")

nome_foto = "/"&nome_foto

 

' pasta + nome dos arquivos

cfoto = "" + nome_foto

 

' 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

 

' Conecta-se ao Banco de Dados

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

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

conexao.open "driver={Microsoft Access Driver (*.mdb)};DBQ=d:\meu server\bd\bd.mdb"

 

' cadastra os dados no banco de dados

sql = "Insert into livro (titulo,autor,editora,sinopse,isbn,altura,largura,acabamento,ano,edicao,paginas,

obs,disponibilidade,destaque,foto) values ('"& titulo &"', '"& autor &"', '"& editora &"', '"& sinopse &"', '"& isbn &"', '"& altura &"', '"& largura &"', '"& acabamento &"', '"& ano &"', '"& edicao &"', '"& paginas &"', '"& obs &"', '"& disponibilidade &"', '"& destaque &"', '"& cfoto &"')"

Conexao.Execute(sql)

 

' Mostra Mensagem de Confirmação na Tela

Response.write "Dados Cadastrados 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='5; url=novo_livro.asp'/>"

%>

 

Já tentei tirar a "/" na linha q marquei em verde, mas aí o arquivo não é salvo na pasta certa....

[jrcardozo 4]

acho que é isso, meio na gambiarra, mas como estou de saida foi isso que deu pra fazer

 

 

 

<!-- #include file = "upload_funcoes.asp" --><%' Chamando Funções, que fazem o Upload funcionarbyteCount = Request.TotalBytesRequestBin = Request.BinaryRead(byteCount)Set UploadRequest = CreateObject("Scripting.Dictionary")BuildUploadRequest RequestBin' Recuperando os Dados Digitados ----------------------titulo = UploadRequest.Item("titulo").Item("Value")autor = UploadRequest.Item("autor").Item("Value")editora = UploadRequest.Item("editora").Item("Value")sinopse = UploadRequest.Item("sinopse").Item("Value")isbn = UploadRequest.Item("isbn").Item("Value")altura = UploadRequest.Item("altura").Item("Value")largura = UploadRequest.Item("largura").Item("Value")acabamento = UploadRequest.Item("acabamento").Item("Value")ano = UploadRequest.Item("ano").Item("Value")edicao = UploadRequest.Item("edicao").Item("Value")paginas = UploadRequest.Item("paginas").Item("Value")obs = UploadRequest.Item("obs").Item("Value")disponibilidade = UploadRequest.Item("disponibilidade").Item("Value")destaque = UploadRequest.Item("destaque").Item("Value")' Tipo de arquivo que esta sendo enviadotipo_foto = UploadRequest.Item("foto").Item("ContentType")' Caminho completo dos arquivos enviadoscaminho_foto = UploadRequest.Item("foto").Item("FileName")' Nome dos arquivos enviadosnome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))' Conteudo binario dos arquivos enviadosfoto = UploadRequest.Item("foto").Item("Value")' pasta onde as imagens serao guardadaspasta = Server.MapPath("../imagens/livros/")nome_fotoDb = nome_fotonome_foto = "/"&nome_foto ' pasta + nome dos arquivoscfoto = "" + nome_foto' Fazendo o Upload do arquivo selecionadoif foto <> "" thenSet 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)))NextMyFile.Closeend if' Conecta-se ao Banco de Dadosurl_conexao = Server.MapPath("bd.mdb")set conexao = Server.CreateObject("ADODB.Connection")conexao.open "driver={Microsoft Access Driver (*.mdb)};DBQ=d:\meu server\bd\bd.mdb" ' cadastra os dados no banco de dadossql = "Insert into livro (titulo,autor,editora,sinopse,isbn,altura,largura,acabamento,ano,edicao,paginas,obs,disponibilidade,destaque,foto) values ('"& titulo &"', '"& autor &"', '"& editora &"', '"& sinopse &"', '"& isbn &"', '"& altura &"', '"& largura &"', '"& acabamento &"', '"& ano &"', '"& edicao &"', '"& paginas &"', '"& obs &"', '"& disponibilidade &"', '"& destaque &"', '"& [color="#33cc00"] nome_fotoDb [/color]&"')"Conexao.Execute(sql)' Mostra Mensagem de Confirmação na TelaResponse.write "Dados Cadastrados com Sucesso!"' Redireciona após 5 segundosresponse.write "<br><br>você será redirecionado em 5 segundos..<br>"response.write "<meta http-equiv='refresh' content='5; url=novo_livro.asp'/>"%>

[alohmann 0]

Putz, vlw mesmo, funcionou perfeito!!Brigadão pela ajuda!

[net studio design robert 0]

<!-- #include file = "upload_funcoes.asp" -->

 

Quanto ao arquivo upload_funcoes.asp, ñ tenho ele aqui...

 

 

Testei na minha máquina e apareceu a seguinte mensagem:

 

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

 

 

Grato pela atenção.

[jrcardozo 4]

Quanto ao arquivo upload_funcoes.asp, ñ tenho ele aqui...

 

 

Testei na minha máquina e apareceu a seguinte mensagem:

 

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

 

 

Grato pela atenção.

No subforum Laboratório de Scripts ASP tem o código completo. Procure por upload sem componentes postado por Dark0