Ir para conteúdo

POWERED BY:

Arquivado

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

bufalino

Mesclar codigo p/ upload de foto + dados no access

Por , em ASP Clássico

Recommended Posts

bufalino    0

bufalino
Postado

Pessoal, ja revirei os tópicos mas naum achei nada q realmente me ajudasse a resolver, bom, eu quero mesclar 2 codigos o ASPUPLOAD para enviar uma foto num determinado diretorio, e INSERIR O NOME DA FOTO (alem de mais uns campos) que será enviada num banco de dados em ACCESS:

 

O FORMULÁRIO::

<FORM METHOD="POST" ENCTYPE="multipart/form-data"

ACTION="AA2.asp">

 

ENVIAR FOTO:

              <input type=file size=60 name="file">

    

TÍTULO:

             <input name="titulo" type="text" id="titulo">

 

CONTEÚDO:

             <input name="conteudo" type="text" id="conteudo">

 

             <input type="submit" name="ENVIAR" value="Submit">

  </FORM>

ja testei o codigo abaixo que faz somente o upload da foto (pego no site da aspupload):

<%

Set Upload = Server.CreateObject("Persits.Upload.1")

Count = Upload.Save("DBQ=D:\Inetpub\teste")

%>

 

<% = Count %> files uploaded.

AGORA, COMO FAZER PRA MESCLAR COM MAIS ESSE CODIGO ABAIXO q insere tambem os dados num banco de dados em access ?.

Reparem crirei dentro da tabela a "url_imagem" , que e para colocar o nome do foto no access, (a mesma q sera enviada no diretorio com o aspupload)

<%

Option Explicit

Response.Expires = 0

%>

<%

Dim objConn, objRs, strQuery, strConnection, titulo, conteudo, url_foto

titulo = Request.Form("titulo")

conteudo = Request.Form("conteudo")

url_foto = Request.Form("url_foto")

 

Set objConn =  Server.CreateObject("ADODB.Connection")

 

objConn.Open "DBQ=D:\Inetpub\Db1.mdb" & ";Driver={Microsoft Access Driver (*.mdb)}"

 

strQuery = "INSERT INTO noticias (titulo,conteudo,url_foto) VALUES ('"&titulo&"','"&conteudo&"','"&url_foto&"')"

 

On error Resume Next

 

Set ObjRs = objConn.Execute(strQuery)

 

objConn.close

 

Set objRs = Nothing

Set objConn = Nothing

 

if err = 0 Then

 

response.redirect "ok.htm"

end if

%>

ME ACODE GENTEMMMM :wacko: ??????

Compartilhar este post

Link para o post
Compartilhar em outros sites

bufalino    0

bufalino
Postado

PESSOAL, fiz assim mas ainda naum ta dando,,olha o q fiz, mas num deu certo:

<%Option ExplicitResponse.Expires = 0%><%Dim objConn, objRs, strQuery, strConnection, titulo, conteudo, fotoSet Upload = Server.CreateObject("Persits.Upload.1") titulo = Upload.form("titulo")conteudo = Upload.form("conteudo")foto = Upload.form("file1")Set objConn =  Server.CreateObject("ADODB.Connection")objConn.Open "DBQ=D:\Inetpub\Html\teste\Db1.mdb" & ";Driver={Microsoft Access Driver (*.mdb)}"strQuery = "INSERT INTO equipe (titulo,conteudo,foto) VALUES ('"&titulo&"','"&conteudo&"','"&foto&"')"Set ObjRs = objConn.Execute(strQuery)objConn.closeSet objRs = NothingSet objConn = Nothingif err = 1 Then response.redirect "ERRO.htm"end ifCount = Upload.Save("D:\Inetpub\html\teste") %><% = Count %> Concluido !!

aqui o formulario:

<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="inserir.asp">Titulo:  <input name="titulo" type="text" id="titulo">  Conteudo:    <input name="conteudo" type="text" id="conteudo">Foto:  <INPUT TYPE=FILE SIZE=60 NAME="FILE1  <INPUT TYPE=SUBMIT VALUE="Upload!"> </FORM>

ALGUEM CONSEGUE AJUDAR AEE :(

Compartilhar este post

Link para o post
Compartilhar em outros sites

bufalino    0

bufalino
Postado

mais um pegando base dum q vi no forum, mas nada tambem :angry:

<%Set Conn = Server.CreateObject("ADODB.Connection")conStr = "DBQ=D:\Inetpub\Html\teste\Db1.mdb" & ";Driver={Microsoft Access Driver (*.mdb)}"Conn.Open ConStrSet RS = Server.CreateObject("ADODB.Recordset")%><HTML> <BODY BGCOLOR="#FFFFFF"><% Set Upload = Server.CreateObject("Persits.Upload.1") titulo = Upload.form("titulo")conteudo = Upload.form("conteudo")foto = Upload.form("file1")if modelo = ""  thenresponse.redirect "erro.asp"else      theSQL = "insert into equipe"      theSQL = theSQL & "(titulo, conteudo, foto)"      theSQL = theSQL & " values ('"&titulo&"','"&conteudo&"','"&foto&"')"      Set RS = conn.execute(theSQL)conn.closeSet Conn = NothingSet RS = Nothingend ifCount = Upload.Save("D:\Inetpub\html\teste") %><% = Count %> Concluido !!</BODY> </HTML><% response.redirect "ok.asp" %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

bufalino    0

bufalino
Postado

PESSOAL, agora ta fazendo upload e inserindo apenas 2 (total 3) campos corretamente dados no access, so naum to conseguindo pegar o nome do arquivo do upload , ollha aee

<%

Set Upload = Server.CreateObject("Persits.Upload.1")

("D:\Inetpub\html\teste")

%>

<% = Count %> FOTO ENVIADA

 

 

<%

 

Dim objConn, objRs, strQuery, strConnection, titulo, conteudo, foto

 

 

titulo = Upload.form("titulo")

conteudo = Upload.form("conteudo")

foto = " File.FileName " , 'aqui e q o probema pra pegar o nome q foi uplodiado, se colocar sem as "" num vai,, com aspas vai com esse nome somente,

 

Set objConn =  Server.CreateObject("ADODB.Connection")

 

objConn.Open "DBQ=D:\Inetpub\Html\teste\Db1.mdb" & ";Driver={Microsoft Access Driver (*.mdb)}"

 

strQuery = "INSERT INTO equipe (titulo,conteudo,foto) VALUES ('"&titulo&"','"&conteudo&"','"&foto&"')"

 

On error Resume Next

 

Set ObjRs = objConn.Execute(strQuery)

 

objConn.close

 

Set objRs = Nothing

Set objConn = Nothing

 

if err = 0 Then

 

response.redirect "ok.htm"

end if

%>

AGORA TA MAIS FÁCIL, EU ACHO,, DÁ UMA LUZ ??

 

 

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

sublyer    0

sublyer
Postado

aki vai um código mais simplificado

 

    <%'caminho do banco de dados  caminho=Server.MapPath("database.mdb")  Set Conexao = Server.CreateObject("ADODB.Connection")  Conexao.Open "DBQ="&caminho&";Driver={Microsoft Access Driver (*.mdb)}"  'Componentes asp uploadset Upload = server.createobject("Persits.Upload")'diretório onde o arquivo esta sendo salvoUpload.save server.mapPath("/img/")'recuperação do nome do arquivoSet File = Upload.Files("FILE1")arquivo = File.ExtractFileName' id do dado que está fazendo o relacionamento via asp mais tardeid=upload.Form("id")inserir="UPDATE tabela set arquivo='"&arquivo&"' where id="&id       set ins=conexao.execute(inserir)       'mostrar o nome do arquivoresponse.Write(arquivo)&"<br><br>"Response.Write "Upload Realizado com sucesso"&"<br>"%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

bufalino    0

bufalino
Postado

:P :P :P HAUHAUHAUHA, Quero ver num conseguir,, e ta bem simples, tipo, so q se usa 3 paginas:1º) do formulario, q tu seleciona a foto e digita os textos titulo e comentario2º) faz o up da imagem no diretorio especificado e reenvia os textos3º) faz a inserção dos textos no ACCESSmas tarde posto os codigos se alguem quiser

Compartilhar este post

Link para o post
Compartilhar em outros sites

Luiz Henrique    1

Luiz Henrique
Postado

opa... Como você faz esse upload, precisa de algum programa instalado pra isso, também to querendo fazer isso mas não tenho nem idéia de comol fazer, se puder postar aq como se faz, ou mandar p/ graffittero@hotmail.com um arquivo .txt explicando ... Valeu...

Compartilhar este post

Link para o post
Compartilhar em outros sites

bufalino    0

bufalino
Postado

bom, esse script soh funciona se o seu servidor tiver o aspupload instalado beleza (para enviar as imagens ), abaixo o código mastigado (2º ex q fiz):aqui o formulário:

<HTML> <BODY BGCOLOR="#FFFFFF"> <form action="B3.asp" enctype="multipart/form-data" method="post">  <input name="titulo" type="text" id="titulo">  <input name="conteudo" type="text" id="conteudo">  <INPUT TYPE=FILE SIZE=60 NAME="FILE1">   <INPUT TYPE=SUBMIT VALUE="Upload!"> </FORM> </BODY> </HTML>

(B3.ASP)Aqui o codigo q insere a foto numa pasta (diretorio), e os textos + o nome da foto q foi enviada no access:

<% Set Upload = Server.CreateObject("Persits.Upload.1") 'Upload.OverwriteFiles = False 'On Error Resume Next 'Upload.SetMaxSize 1048576 ' Limit files to 1MB Count = Upload.Save("D:\Inetpub\html\teste\pastadasfotos")%><% = Count %> FOTO ENVIADA<%Dim objConn, objRs, strQuery, strConnection, titulo, conteudo, fototitulo = Upload.form("titulo")conteudo = Upload.form("conteudo")Set File = Upload.Files(1) If File.ImageType = "GIF" or File.ImageType = "JPG" or File.ImageType = "PNG" Thenfoto = File.FileNameEnd IfSet objConn =  Server.CreateObject("ADODB.Connection")objConn.Open "DBQ=D:\Inetpub\teste\Db1.mdb" & ";Driver={Microsoft Access Driver (*.mdb)}"strQuery = "INSERT INTO noticias (titulo,conteudo,foto) VALUES ('"&titulo&"','"&conteudo&"','"&foto&"')"On error Resume NextSet ObjRs = objConn.Execute(strQuery)objConn.closeSet objRs = NothingSet objConn = Nothingif err = 0 Then response.redirect "ok.htm"end if%>

aee c so cria uma pagina prara o redirecionamento, no meu caso eu criei o OK.HTMTIPO MAIS SIMPLIFICADO Q ISSO, IMPOSSIVEL :D :D

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