USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

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


CyberWEB Network Ltda.    © Copyright 2000-2018   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página