|
|
Postada em 02/11/2005 13:19 hs
Eu tenho um Form de cadastro que insere dados (Input text) e 4 imgs (Input file) no BD as imagens vão pra uma pasta no servidor via Upload sem componente. no caso dos dados beleza funciona , agora não consigo mandar o nome das imagens pro BD . Como procede pra gravar o registro das imagens no bancodedados? obrigado |
|
|
|
|
|
|
|
Postada em 02/11/2005 21:48 hs
To usando o FreeAspUpload Eu precisava que ao fazer o Upload de 4 imgs ele gravasse o nome no BD em 4 campos distintos Foto1,Foto2,Foto3,Foto4. Pelo que eu sei tem que atribuir o nome da imagem a uma variavel pra grava no BD mas não sei como fazer , tem algum exemplo ? obrigado |
|
|
|
|
|
Postada em 03/11/2005 11:19 hs
<HTML>
<BODY>
<%
Set Upload = Server.CreateObject("Persits.Upload") 'varivel do objeto upload
Count = Upload.Save(server.MapPath("./fotos")) 'quantos arquivos enviados, upload.save salva arquivo, mappath (caminho deste arqruivo - C:aulaweb874projeto)
Response.Write Count & "arquivo(s) uploaded." 'imprime quantos arquivos
%>
</BODY>
</HTML>
******************************
exemplo cs
<!--#include file="./Conexao_bd_adm.asp" -->
<%
if session ("Usuario") = "" then
Response.Redirect("Login.asp")
end if
%>
<%
on error resume next
Dim Descricao, Grupo, Caracteristicas, Garantia, Estoque, Ativo, Imagem, SQL, rst, Erro
Dim rst1, SQL1, Upload, rst2, SQL2, Filename
Set Upload = Server.CreateObject("aspSmartUpload.SmartUpload")
Upload.Upload
For each file In Upload.Files
Filename = File.filename
'se for maior que 15kb
if file.Size > 15000 then
Erro = 7
Response.Redirect("Inserir_Produtos_Erro.asp?Erro="&Erro)
'se não for jpg ou jpeg ou gif não deixa gravar
elseif (file.FileExt <> "jpg" and file.FileExt <> "jpeg" and file.FileExt <> "gif") then
Erro = 8
Response.Redirect("Inserir_Produtos_Erro.asp?Erro="&Erro)
end if
exit for
Next
Upload.Save(server.MapPath("../Figuras"))
Descricao = Upload.form("Descricao")
Grupo = Upload.form("Grupo")
Caracteristicas = Upload.form("Caracteristicas")
Garantia = Upload.form("Garantia")
Estoque = upload.form("Estoque")
Ativo = upload.form("Ativo")
Descricao = ucase(trim(Descricao))
Caracteristicas = ucase(trim(Caracteristicas))
Garantia = ucase(trim(Garantia))
'tabela produtos
SQL = "Select * From Produtos"
Set rst = server.createobject("adodb.recordset")
rst.open SQL, vgdb, 2, 2
'tabela produtos (verificar se já tem outro produto com a descricao informada)
SQL1 = "Select [Codigo do produto] From Produtos Where [Descricao do produto] = '"&Descricao&"'"
Set rst1 = server.createobject("adodb.recordset")
rst1.open SQL1, vgdb, 1, 1
'tabela grupo de produtos (verificar se existe o grupo)
SQL2 = "Select * From Grupo_de_produtos Where [Codigo do grupo] = "&Grupo
Set rst2 = server.createobject("adodb.recordset")
rst2.open SQL2, vgdb, 1, 1
if Descricao = "" then
Erro = 1 'a descricao não pode ser em branco
rst.close
set rst = nothing
rst1.close
set rst1 = nothing
rst2.close
set rst2 = nothing
set Upload = nothing
Response.Redirect("Inserir_Produtos_Erro.asp?Erro="&Erro)
elseif Caracteristicas = "" then
Erro = 2 'a caracteristica não pode ser em branco
rst.close
set rst = nothing
rst1.close
set rst1 = nothing
rst2.close
set rst2 = nothing
set Upload = nothing
Response.Redirect("Inserir_Produtos_Erro.asp?Erro="&Erro)
elseif Garantia = "" then
Erro = 3 'a garantia não pode ser em branco
rst.close
set rst = nothing
rst1.close
set rst1 = nothing
rst2.close
set rst2 = nothing
set Upload = nothing
Response.Redirect("Inserir_Produtos_Erro.asp?Erro="&Erro)
elseif Estoque = "" then
Erro = 4 'o estoque não pode ser em branco
rst.close
set rst = nothing
rst1.close
set rst1 = nothing
rst2.close
set rst2 = nothing
set Upload = nothing
Response.Redirect("Inserir_Produtos_Erro.asp?Erro="&Erro)
elseif rst1.eof = False then
Erro = 5 'já existe algum produto com a mesma descricao
rst.close
set rst = nothing
rst1.close
set rst1 = nothing
rst2.close
set rst2 = nothing
set Upload = nothing
Response.Redirect("Inserir_Produtos_Erro.asp?Erro="&Erro)
elseif rst2.eof then
Erro = 6 'o grupo do produto não existe
rst.close
set rst = nothing
rst1.close
set rst1 = nothing
rst2.close
set rst2 = nothing
set Upload = nothing
Response.Redirect("Inserir_Produtos_Erro.asp?Erro="&Erro)
else 'está tudo ok, vamos cadastrar
rst.addnew
rst("Descricao do produto") = Descricao
rst("Codigo do grupo") = Grupo
rst("Caracteristicas") = Caracteristicas
rst("Garantia") = Garantia
rst("Estoque") = Estoque
If Ativo = 1 then
rst("Ativo") = True
else
rst("Ativo") = False
end if
rst("Em promocao") = false
rst("Imagem") = Filename
rst.update
rst.close
set rst = nothing
rst1.close
set rst1 = nothing
rst2.close
set rst2 = nothing
set Upload = nothing
Response.Redirect("Default.asp")
end if
%>
|
|
|
|
|
