|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: enviar dados e upload ao mesmo tempo
|
 |
|
|
|
Postada em 5/1/2004 por Martini
imagine a situação: cadastro de produtos com imagem, você pode fazer tudo no mesmo formulário, assim:
primeiro a propriedade enctype deve ficar assim:
enctype="multipart/form-data"
já no arquivo que destino "action do form" fica assim:
<!--#include file="./Conexao_bd_adm.asp" -->
<%
'variavel do upload
Set Upload = Server.CreateObject("Persits.Upload")
'salva arquivo
Upload.Save(server.MapPath("../Figuras")) 'quantos arquivos enviados, upload.save salva arquivo, mappath (caminho deste arqruivo - C:\aulaweb874\projeto)
'set arquivo
Set File = Upload.Files("Imagem")
'pega nome do arquivo
Filename = File.Filename
'pega valores enviados
Nome = Upload.form("Nome")
Tipo = Upload.form("Tipo")
Categoria = Upload.form("Categoria")
Ator = Upload.form("Ator")
Diretor = upload.form("Diretor")
Valor = upload.form("Valor")
Sinopse = upload.form("Sinopse")
'tira espaços e passa para miusculo
Nome = ucase(trim(Nome))
Tipo = ucase(trim(Tipo))
Ator = ucase(trim(Ator))
Diretor = ucase(trim(Diretor))
Sinopse = ucase(trim(Sinopse))
'trabalahando com o bd
SQL = "Select * From Filmes"
Set rst = server.createobject("adodb.recordset")
rst.open SQL, vgdb, 2, 2
SQL1 = "Select [Codigo do filme] From Filmes Where [Nome do filme] = '"&Nome&"'"
Set rst1 = server.createobject("adodb.recordset")
rst1.open SQL1, vgdb, 1, 1
' faz verificações antes de gravar dados
if Nome = "" then
Erro = 1
rst.close
set rst = nothing
rst1.close
set rst1 = nothing
Response.Redirect("Inserir_Filme_Erro.asp?Erro="&Erro)
elseif Tipo = "" then
Erro = 2
rst.close
set rst = nothing
rst1.close
set rst1 = nothing
Response.Redirect("Inserir_Filme_Erro.asp?Erro="&Erro)
elseif Ator = "" then
Erro = 3
rst.close
set rst = nothing
rst1.close
set rst1 = nothing
Response.Redirect("Inserir_Filme_Erro.asp?Erro="&Erro)
elseif Diretor = "" then
Erro = 4
rst.close
set rst = nothing
rst1.close
set rst1 = nothing
Response.Redirect("Inserir_Filme_Erro.asp?Erro="&Erro)
elseif not Isnumeric(Valor) then
Erro = 5
rst.close
set rst = nothing
rst1.close
set rst1 = nothing
Response.Redirect("Inserir_Filme_Erro.asp?Erro="&Erro)
elseif Sinopse = "" then
Erro = 6
rst.close
set rst = nothing
rst1.close
set rst1 = nothing
Response.Redirect("Inserir_Filme_Erro.asp?Erro="&Erro)
'elseif Imagem = "" then
' Erro = 7
' rst.close
' set rst = nothing
' rst1.close
' set rst1 = nothing
'Response.Redirect("Inserir_Filme_Erro.asp?Erro="&Erro)
elseif rst1.eof = False then
Erro = 8
rst.close
set rst = nothing
rst1.close
set rst1 = nothing
Response.Redirect("Inserir_Filme_Erro.asp?Erro="&Erro)
else
rst.addnew
rst("Nome do filme") = Nome
rst("Tipo produto") = Tipo
rst("Codigo da categoria") = Categoria
rst("Ator principal") = Ator
rst("Diretor") = Diretor
rst("Valor da locacao") = formatcurrency(Valor)
rst("Sinopse") = Sinopse
rst("Imagem") = Filename
rst.update
'Set Upload = Server.CreateObject("Persits.Upload") 'varivel do objeto upload
'Count = Upload.Save(server.MapPath("../Figuras")) 'quantos arquivos enviados, upload.save salva arquivo, mappath (caminho deste arqruivo - C:\aulaweb874\projeto)
'Upload.Save(server.MapPath("./Figuras")) 'quantos arquivos enviados, upload.save salva arquivo, mappath (caminho deste arqruivo - C:\aulaweb874\projeto)
'Response.Write Count & "arquivo(s) uploaded." 'imprime quantos arquivos
rst.close
set rst = nothing
rst1.close
set rst1 = nothing
Response.Redirect("Lista_Filme.asp")
end if
%>
|
|
|
|
|
