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

 

  Fórum

  ASP - Active Server Page
Voltar
Autor Assunto:  Problema com upload...
Alex Ribeiro
EUNÁPOLIS
BA - BRASIL
Postada em 06/10/2005 22:41 hs            
Olá galera, estou tendo um sério problema com upload. Já peguei aqui no site um código que faz upload sem componente mais não esta dando certo, com componente não sei usar.
 
Qual o mais fácil componente de usar e que é mais encontrado no servidores?
 
Eu peguei um componente na internet é o aspSmartUpload tenho aqui as DLL, a minha pergunta é: Pra usar esse componente é usar colocar as dll na raiz do site ou não?

Obrigado...

Alex Ribeiro

     
Martini
Pontos: 2843 Pontos: 2843
PAROBÉ
RS - BRASIL
ENUNCIADA !
Postada em 07/10/2005 08:25 hs         
ah ... é só registrar a dll para utilizar o componente
 
o exemplo abaixo é o arquivo asp de um cadastro de produto, o usuário preenche as informações em um formulário em um arquivo html e submit do form é chamado este arquivo para gravar o produto e fazer upload da imagem ... componente de upload (SmartUpload) http://www.aspsmart.com/aspSmartUpload/ ...
 
 
<!--#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
%>
 
   
Alex Ribeiro
EUNÁPOLIS
BA - BRASIL
ENUNCIADA !
Postada em 07/10/2005 08:55 hs            
como eu faço para registrar a DLL no servidor?
 
Essa linha:
<!--#include file="./Conexao_bd_adm.asp" -->
Não precisa ser exatamente esse arquivo né? Posso fazer a conexão da forma que eu sei?
 
Obrigado

Obrigado...

Alex Ribeiro

   
Alex Ribeiro
EUNÁPOLIS
BA - BRASIL
ENUNCIADA !
Postada em 07/10/2005 09:07 hs            
Desculpa... mais uma pergunta
 
Toda vez que eu for fazer um sistema de upload tenho que saber primeiro quais os componentes o servidor tem? Porque se eu tiver já um sistema desenvolvido toda vez vou ter que fazer alterações pra depois colocar no servidor?
 
Obrigado

Obrigado...

Alex Ribeiro

   
Martini
Pontos: 2843 Pontos: 2843
PAROBÉ
RS - BRASIL
Postada em 07/10/2005 13:05 hs         
registrar a DLL na tua máquina para fazer os testes ... claro, primeiro você verifica com os administradores do servidor quais componentes tem instalado no servidor para fazer upload e depois você desenvolve de acordo com o componente ... normalmente onde você baixa o componente tem exemplos de como utilizar
     
Alex Ribeiro
EUNÁPOLIS
BA - BRASIL
ENUNCIADA !
Postada em 07/10/2005 14:12 hs            
já verifiquei com o servidor www.dominal.com e eles tem os componentes aspUpload e aspSmartUpload pra fazer upload. Pra registrar a dll na minha máquina é só colocar ela na pasta Windows/System32 (XP) certo? Estou utilizando o servidor do XP o IIS, com ele eu vou fazer os testes normalmente como vc no servidor de internet mesmo?
 
Obrigado... Desculpe a minha ignorância

Obrigado...

Alex Ribeiro

   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



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