[Resolvido] Upload com redundancia

dedindol · March 15, 2009

Opa galera tudo certo?

Estou com um probleminha aqui no upload em asp, é o seguinte...

estou subindo 4 imagens para o sevidor e armazenando seus respectivos nomes no banco de dados (access),

até aí normal, salva na pasta no servidor, só que na hora de armazenar no banco, todos os campos ("imagem", "imagem2", "imagem3", "imagem4") ficam com o mesmo nome de imagem, aí na hora de listar no site, aparece a mesma imagem em todos os lugares...

já vasculhei e nao achei o problema, será que alguem consegue me ajudar...

segue a página abaixo...

<!--#Include File="session.asp"-->
<!--#Include File="conexao.asp"-->
<!--#Include file="upload.inc"-->

<link href="inc/estilo.css" rel="stylesheet" type="text/css">

<%

' Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

dim Titulo, Conteudo, pagina, cfoto, cfoto2, cfoto3, cfoto4

' Recuperando os Dados Digitados ----------------------
Titulo = Replace(UploadRequest.Item("titulo").Item("Value"),"'","")
Chamada = Replace(UploadRequest.Item("chamada").Item("Value"),"'","")
Conteudo = Replace(UploadRequest.Item("conteudo").Item("Value"),"'","")
pagina = UploadRequest.Item("pagina").Item("Value")

If pagina = "Nossas Lutas" Then
pagina = "Nossas Lutas"
end if
if pagina = "Nossos Projetos" then
pagina = "Nossos Projetos"
End If
if pagina = "Nossos Eventos" then
pagina = "Nossos Eventos"
end if


' Tipo de arquivo que esta sendo enviado
tipo_foto = UploadRequest.Item("foto").Item("ContentType")
tipo_foto2 = UploadRequest.Item("foto2").Item("ContentType")
tipo_foto3 = UploadRequest.Item("foto3").Item("ContentType")
tipo_foto4 = UploadRequest.Item("foto4").Item("ContentType")


' Caminho completo dos arquivos enviados
caminho_foto = UploadRequest.Item("foto").Item("FileName")
caminho_foto2 = UploadRequest.Item("foto2").Item("FileName")
caminho_foto3 = UploadRequest.Item("foto3").Item("FileName")
caminho_foto4 = UploadRequest.Item("foto4").Item("FileName")


' Nome dos arquivos enviados
nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))
nome_foto2 = Right(caminho_foto2,Len(caminho_foto2)-InstrRev(caminho_foto2,"\"))
nome_foto3 = Right(caminho_foto3,Len(caminho_foto3)-InstrRev(caminho_foto3,"\"))
nome_foto4 = Right(caminho_foto4,Len(caminho_foto4)-InstrRev(caminho_foto4,"\"))

' Conteudo binario dos arquivos enviados
foto = UploadRequest.Item("foto").Item("Value")
foto2 = UploadRequest.Item("foto2").Item("Value")
foto3 = UploadRequest.Item("foto3").Item("Value")
foto4 = UploadRequest.Item("foto4").Item("Value")


' pasta onde as imagens serao guardadas
pasta = Server.MapPath("/fotos/")
nome_foto = "/"&nome_foto
nome_foto2 = "/"&nome_foto2
nome_foto3 = "/"&nome_foto3
nome_foto4 = "/"&nome_foto4



' pasta + nome dos arquivos
cfoto = nome_foto
cfoto2 = nome_foto2
cfoto3 = nome_foto3
cfoto4 = nome_foto4


' Fazendo o Upload do arquivo selecionado
if foto <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)
For i = 1 to LenB(foto)
MyFile.Write chr(AscB(MidB(foto,i,1)))
Next
MyFile.Close
end if

if foto2 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto2)
For i = 1 to LenB(foto2)
MyFile.Write chr(AscB(MidB(foto2,i,1)))
Next
MyFile.Close
end if

if foto3 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto3)
For i = 1 to LenB(foto3)
MyFile.Write chr(AscB(MidB(foto3,i,1)))
Next
MyFile.Close
end if

if foto4 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto4)
For i = 1 to LenB(foto4)
MyFile.Write chr(AscB(MidB(foto4,i,1)))
Next
MyFile.Close
end if


If foto <> "" Then

'PEGA A IMAGEM NO LOCAL ESPECÍFICO
  Set f=ScriptObject.GetFile(Server.MapPath("/fotos/")&cfoto)

nome = now()
nome = trim(replace(nome,":",""))
nome = replace(nome,"/","")
nome = replace(nome," ","")
cfoto = nome & ".jpg"

'RENOMEIA A IMAGEM
f.name  = nome & ".jpg"


If foto2 <> "" Then

'PEGA A IMAGEM NO LOCAL ESPECÍFICO
  Set f2=ScriptObject.GetFile(Server.MapPath("/fotos/")&cfoto2)

nome2 = now()
nome2 = trim(replace(nome2,":",""))
nome2 = replace(nome2,"/","")
nome2 = replace(nome2," ","")
cfoto2 = nome2 & ".jpg"

'RENOMEIA A IMAGEM
f2.name  = nome2 & "2.jpg"


If foto3 <> "" Then

'PEGA A IMAGEM NO LOCAL ESPECÍFICO
  Set f3=ScriptObject.GetFile(Server.MapPath("/fotos/")&cfoto3)

nome3 = now()
nome3 = trim(replace(nome3,":",""))
nome3 = replace(nome3,"/","")
nome3 = replace(nome3," ","")
cfoto3 = nome3 & ".jpg"

'RENOMEIA A IMAGEM
f3.name  = nome3 & "3.jpg"


If foto4 <> "" Then

'PEGA A IMAGEM NO LOCAL ESPECÍFICO
  Set f4=ScriptObject.GetFile(Server.MapPath("/fotos/")&cfoto4)

nome4 = now()
nome4 = trim(replace(nome4,":",""))
nome4 = replace(nome4,"/","")
nome4 = replace(nome4," ","")
cfoto4 = nome4 & ".jpg"

'RENOMEIA A IMAGEM
f4.name  = nome4 & "4.jpg"

End If
End If
End If
End If

'ABRIR A CONEXÃO
Call AbreConn()

' INSERIR AS NOTICIAS NO BANCO DE DADOS
	sql = "INSERT INTO tb_evento (titulo_evento, chamada_evento, texto_evento, imagem, imagem2, imagem3, imagem4, data_evento, pagina_evento) " &_
				"VALUES ('" & Titulo & "', '" & Chamada & "', '" & Conteudo & "', '" & cfoto & "', '" & cfoto2 & "', '" & cfoto3 & "', '" & cfoto4 & "',' " & now() & "' , '" & pagina & "')"
	'response.Write(sql)
	'response.End()			

'EXECUTAR A INSTRUÇÃO NO BANCO DE DADOS
	Conn.Execute(sql)

'FECHAR A CONEXÃO
Call FechaConn

%>

<div align="center" class="azul">
<%if pagina = "Nossas Lutas" then%>
<%Response.Write("Cadastrado em Nossas Lutas")%><br><br>
<%End If%>

<%if pagina = "Nossos Projetos" then%>
<%Response.Write("Cadastrado em Nossos Projetos")%><br><br>
<%End If%>

<%if pagina = "Nossos Eventos" then%>
<%Response.Write("Cadastrado em Nossos Eventos")%><br><br>
<%End If%>

</div>

<script type="text/javascript">
window.location="evento.asp"
</script>

valeu galera... abraço!

xanburzum · March 15, 2009

tenta usar esta funçao para renomear o arq., para você testar

exemplo:

<%
dim fileName

fileName = GetRndNomeArq(".jpg")
%>

code:

<%
function GetRndNomeArq(byval extensao)
	randomize
	getfilename = _
		clng(clng(timer * Rnd(timer)) + timer) & _
		clng(clng(timer * Rnd(timer)) + timer) & _
		clng(clng(timer * Rnd(timer)) + timer) & extensao
end function
%>

e quando você dá o response.Write(sql), o que é retornado ?

quando você renomeia ele esta renomeando tudo certo nas pastas ?

dedindol · March 17, 2009

Entao cara...

a funcão ta renomeando belezinha... as fotos são salvas na pasta "fotos" cada uma com um nome....

mas na hora de incluir no banco ficam todas com o mesmo nome...

olha só o response.write

INSERT INTO tb_evento (titulo_evento, chamada_evento, texto_evento, imagem, imagem2, imagem3, imagem4, data_evento, pagina_evento) VALUES ('tete', 'teste', 'tsete', '1732009120004.jpg', '1732009120004.jpg', '1732009120004.jpg', '1732009120004.jpg',' 17/3/2009 12:00:04' , 'Nossas Lutas')

Eu ainda nao fiz a página que altera pq to empacado nessa parte... ainda nao consegui entender o por que de salvar todas com o mesmo nome...

Faz idéia?

valeu!

hargon · March 17, 2009

Isso acontece porque você está colocando a data e hora como nome do arquivo. Como está sendo executado no mesmo segundo, estão ficando com o mesmo nome.

Acrescente ao nome o número da foto.

dedindol · March 17, 2009

Era isso mesmo hargon,

fiz o seguinte...

a linha abaixo é o nome do arquivo

nome4 = now()
nome4 = trim(replace(nome4,":",""))
nome4 = replace(nome4,"/","")
nome4 = replace(nome4," ","")
cfoto4 = nome4 & ".jpg"

foi só trocar por

nome4 = now()
nome4 = trim(replace(nome4,":",""))
nome4 = replace(nome4,"/","")
nome4 = replace(nome4," ","")
cfoto4 = nome4 & "4.jpg"

Funfou beleza agora...

valeu...

abraços!

hargon · March 17, 2009

Bacana. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Sign In

Archived

[Resolvido] Upload com redundancia

Recommended Posts

dedindol 0

Share this post

Link to post

Share on other sites

xanburzum 169

Share this post

Link to post

Share on other sites

dedindol 0

Share this post

Link to post

Share on other sites

hargon 64

Share this post

Link to post

Share on other sites

dedindol 0

Share this post

Link to post

Share on other sites

hargon 64

Share this post

Link to post

Share on other sites

BelogsTo do laravel

editor quill configuração

PHP - Tecla de Atalhos para salvar

Este projeto é apoiado pelas empresas

Forums

Activity

Important Information