Ir para conteúdo

POWERED BY:

Arquivado

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

mkboy

UP Load de imagem!

Por , em ASP Clássico

Recommended Posts

mkboy    1

mkboy
Postado

Comecei ontem a fazer um mini-catalogo.

 

Ele está assim:

 

Pagina de inclusão de produtos: Formulário que grava as informações em um banco ACCESS

Pagina de exibição de produtos: Um select no banco e exibindo os itens do banco

 

Só que este formulário de inclusão é da seguinte forma:

 

O Usuario seleciona a categoria, digita a referencia, modelo descrição, e na foto ele faz o seguinte:

 

Faz o upload da imagem (via ftp) para pasta img, e faz uma imagem maior e outra a miniatura, de 100x70 mais ou menos, e no form, ele aponta o nome da foto assim:

 

Miniatura: img/canetas01p.jpg

Foto Grande: img/canetas01.jpg

 

Pronto, ao enviar, eu gravo esse caminho no banco e respondo dentro de um <img src="">

 

Veja aqui como está: http://www.pescaki.com.br/catalogo/

 

Veja aqui a pagina de inclusão de itens: http://www.pescaki.com.br/catalogo/inclusao.asp

 

Agora as duvidas:

 

Neste caso, eu tenho que pedir para o cliente transferir as fotos por ftp.

 

Como eu faço para o cliente selecionar a foto no HD dele (ao inves de input text, colocar input file) e quando ele inserir o produto, o sistema fazer o upload da imagen, e gravar o caminho no banco.

 

Como faço?

 

(meu servidor de e-mail é ASPMail e ASPEMAIL)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Penna    0

Penna
Postado

Você quer um upload normal via http, em vez de ftp, certo?Com ASPMail e ASPEMAIL não vai dar pra fazer isso! Qual o seu servidor? Motre-me todos os componentes?Abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

mkboy    1

mkboy
Postado

E esses são os componentes que estão instalados em meu servidor:

ASP Up load, ASP Users, ASP Email, asp Grid, ASP Chart, ASP Cript, ASP BNS, ASP Exec, ASP File, ASP Mail, ASP MX, ASP NNTP.

Compartilhar este post

Link para o post
Compartilhar em outros sites

mkboy    1

mkboy
Postado

:) NOTA 10FIQUEI MUITO CONTENTE POIS FUNCIONOU!MUITO OBRIGADO stumpy PELA ATENÇÃO!!!!!!!!!!!!!!!!!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

mkboy    1

mkboy
Postado

Agora eu coloquei o campo file em meu form, para que ao enviar, ele grave no banco as demais informações e junto faça o upload das imagens, mas nao estou conseguindo.(ta meio dificil de pensar, tem uns vizinhos fazendo pagode abaixo da minha janela, hehe)To fazendo assim, mas nao funciona:http://www.pescaki.com.br/catalogo/inclusao.aspesta é minha pagina que grava no banco:(neste caso nao ta fazendo o upload) inserir.asp

<%Set Conn = Server.CreateObject("ADODB.Connection")conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db/estoque.MDB") Conn.Open ConStrSet RS = Server.CreateObject("ADODB.Recordset")%> <%produto = request.form("x_produto")referencia = request.form("x_referencia")modelo = request.form("x_modelo")foto = request.form("file1")descricao = request.form("x_descricao")if modelo = ""  thenresponse.redirect "erro.asp"else       theSQL = "insert into produtos"       theSQL = theSQL & "(produto, referencia, modelo, foto,"       theSQL = theSQL & "descricao)"       theSQL = theSQL & " values ('"&produto&"','"&referencia&"','"&modelo&"','"&foto&"','"&descricao&"')"       Set RS = conn.execute(theSQL)conn.closeSet Conn = NothingSet RS = Nothingend if%><HTML> <BODY BGCOLOR="#FFFFFF"><% Set Upload = Server.CreateObject("Persits.Upload.1") Count = Upload.Save("G:/inetpub/domains/pescaki.com.br/www/catalogo/upload") %><% = Count %><p><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Concluido  </font></p><p> </p></BODY> </HTML><% response.redirect "caneta.asp" %>

Se puder ajudar-me, fico mais uma vez grato.TENHA UM BOM FINAL DE SEMANA!

Compartilhar este post

Link para o post
Compartilhar em outros sites

WLJ    0

WLJ
Postado

Tenta com esse código...

 

<%Set Conn = Server.CreateObject("ADODB.Connection")conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db/estoque.MDB") Conn.Open ConStrSet RS = Server.CreateObject("ADODB.Recordset")%><HTML> <BODY BGCOLOR="#FFFFFF"><% Set Upload = Server.CreateObject("Persits.Upload.1") produto = Upload.form("x_produto")referencia = Upload.form("x_referencia")modelo = Upload.form("x_modelo")foto = Upload.form("file1")descricao = Upload.form("x_descricao")if modelo = ""  thenresponse.redirect "erro.asp"else       theSQL = "insert into produtos"       theSQL = theSQL & "(produto, referencia, modelo, foto,"       theSQL = theSQL & "descricao)"       theSQL = theSQL & " values ('"&produto&"','"&referencia&"','"&modelo&"','"&foto&"','"&descricao&"')"       Set RS = conn.execute(theSQL)conn.closeSet Conn = NothingSet RS = Nothingend ifCount = Upload.Save("G:/inetpub/domains/pescaki.com.br/www/catalogo/upload") %><% = Count %><p><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Concluido  </font></p><p> </p></BODY> </HTML><% response.redirect "caneta.asp"%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

WLJ    0

WLJ
Postado

Fiz da forma que citou a nao funciona, veja:http://www.pescaki.com.br/catalogo/incluir.asp

1º - Não esta encontrando a página "http://www.pescaki.com.br/catalogo/inserir.asp" que é a action do form. Ela existe né?! Aliás é nela que você deve colocar o código que te passei acima.2º - Na form da página http://www.pescaki.com.br/catalogo/incluir.asp você deve incluir o parâmetro ENCTYPE="multipart/form-data"

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