Ir para conteúdo
Fórum Script Brasil
  • 0

Upload gravando o endereço no banco e renomeando a imagem


erickmm

Pergunta

Olá

Já procurei em toda parte e não consigo achar

tenho um site hospedado na locaweb, e eles usam o componente para uploa SaFileUp

fazer o uploa esta tudo certinho como o exemplo deles, porem gostaria de encrementar mais

gostaria de gravar o end da imagem no banco e a imagem na pasta já renomenado a mesma

tem como? espero que possam me ajudar

vou postar o codigo do upload aqui

<HTML>

<BODY>

<% Set upl = Server.CreateObject("SoftArtisans.FileUp") %>

<% upl.Path = "e:\home\web\up_foto" %>

<% upl.Save %>

Total de Bytes Enviados: <%=upl.TotalBytes%>

<% Set upl = Nothing %>

</BODY>

</HTML>

aguardo

ate +

Editado por erickmm
Link para o comentário
Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

  • 0

Mas ou menos se fo do jeito que eu entendi é facil acho vou fazer um exemplo:

<HTML> 
<BODY> 
<---Pagina de configuração da conexao do banco de dados-->
<!---#include file = "strCon.asp"-->
<% 
Set upl = Server.CreateObject("SoftArtisans.FileUp") 
upl.Path = "e:\home\web\up_foto"

upl.Save
dim Conexao, strSql,caminho
caminho = upl.path
'Esta função esta no strCon.asp se precisar eu posto aqui
call abreConexao()
strsql = "Update tabela set caminho = '" & caminho & "'"
strsql = strsql & " where codigodatabela = " & request("Codigo")
Conexao.Execute(strsql)
%>
Total de Bytes Enviados: <%=upl.TotalBytes%> 
se não for isso não entendi o que quer dizer como gravar no banco de dados o caminho,

<% Set upl = Nothing %>

</BODY> 
</HTML>

Link para o comentário
Compartilhar em outros sites

  • 0

Olha não sei se é isso mas eu tenho um exemplo fiz o obejto dundas eu pego o caminho do banco de dados com o sever.map ve ser serve ok

<!--#include file = "strCon.asp"-->
<%
    Dim Conexao,objUpload,strCaminho
    Set objUpload = Server.CreateObject("Dundas.Upload.2")
    call abre_conexao
    strSql = "SELECT IDCategoria,Descricao FROM tbCategoria"
    set rsCategoria = Conexao.Execute(strSql)    
    if Request.QueryString("ok") = "ok" then status = "Cadastro efetuado com sucesso"    
    if Request.QueryString("atc") = "new" then
        objUpload.MaxFileSize = 11048576 
        objUpload.UseUniqueNames = False
        strCaminho = "images\produtos\"
         objUpload.Save Server.MapPath("\rec\images\produtos\")
        idC = Request.QueryString("id_c")
        idS = Request.QueryString("id_S")
        strProdutos = replace(objUpload.Form("txProdutos"),"'","´")
        strDescricao = Replace(objUpload.Form("txDescricao"),"'","´")
        strImagem = objUpload.Files.Item("File1").Path
        strImagem2 =objUpload.Files.Item("File2").Path
        strChImg = replace(objUpload.Form("chImagem"),"'","´")
        strChImg1 = replace(objUpload.Form("chImagem2"),"'","´")
        strQtde = objUpload.form("txQtde")
        strLancamento = objUpload.form("chLancamento")
        strPreco = Replace(objUpload.Form("txPreco"),"'","´")            
        if preço = "" then preço = 0 
        preço = formatcurrency((preço))
        'response.Write(strChImg&"--<br>"&strChImg1)
        'response.End()
        if strChImg  <> "" then
            filename = ""
        else 
            If strImagem <> "" Then
                filename= strCaminho & objUpload.GetFileName(objUpload.Files.Item("File1").Path)
            ELSE
                if objUpload.Form("Img") = "" then                '    
                    filename = ""
                else
                    filename = objUpload.Form("Img")
                end if 
            End If
        end if
        if strChImg1 <> "" then
            filename2 = ""
        else 
            If strImagem2 <> "" Then
                filename1=   strCaminho & objUpload.GetFileName(objUpload.Files.Item("File2").Path)
            ELSe
                if objUpload.Form("Img1") = "" then                '    
                    filename1 = ""
                else
                    filename1 = objUpload.Form("Img1")
                end if 
            End If
        end if    
        'response.Write(filename&"--"&filename1)
        'response.End()
        if strLancamento = "" then
            strLanc = 2
        else
            strLanc = 1
        end if            
        strInsert = "INSERT INTO TBPRODUTOS (IDCategoria,idSubCategoria,TituloProdutos,"
        strInsert = strInsert & "DescricaoProdutos,PrecoProdutos,ImagemProdutos,"
        strInsert = strInsert & "ImagemPqProdutos,Qtde,Lancamento) values(" 
        strInsert = strInsert & objUpload.Form("idC") & "," & objUpload.Form("ids") &",'" 
        strInsert = strInsert & strProdutos & "','" & strDescricao & "','" & CINT(strPreco) & "','" 
        strInsert = strInsert & FileName & "','" & FileName1 & "'," & CINT(strQtde) & ","
        strInsert = strInsert & strLanc & ")"
        'Response.Write(strInsert)
        'response.End()
        Conexao.Execute(strInsert)
        set rsSubCategoria = Nothing
        status = "Cadastro efetuado com sucesso"    
        idC=""
        idS=""
    end if

Bom a tabela você pode colocar na pasta principal do seu site ou criar uma pasta chamada banco por exemplo "C:\projetos\seusite\banco\banco.mdb", e você informa o caminho com server.map ele pega o caminho do servidor entendeu?

Link para o comentário
Compartilhar em outros sites

  • 0

Dê uma lida nos docs desse componente... caso não saiba onde acha-los peça ao suporte da locaweb... alguns inclusive oferecem suporte a dúvidas, nesse caso poderão lhe ajudar...

Eu particularmente não entendi muito bem a dúvida... mas de qualquer forma nunca trabalhei com esse componente tb...

[]'s Rafael Spilki

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,5k
×
×
  • Criar Novo...