Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

rafa-martin

duas imagens iguais, pq?

Por , em ASP Clássico

Recommended Posts

rafa-martin    2

rafa-martin
Postado

eu tenho uma tela onde faço upload de duas imagens. aí durante o upload eu mudo a altura e largura das imagens e jogo numa pasta. porém as duas imagens estão tomando o papel de uma, só o nome é igual. exemplo: eu seleciono uma imagem com a bandeira do brasil e outra imagem com a bandeira do chile, quando faço o upload delas, vai mudar largura e altura delas, quando eu entrar na pasta vai ter duas imagens, porém as duas imagens são a bandeira do chile. apesar de ter o nome brasil.jpg e chile.jpg a imagem é a mesma para as duas. pq?

 

uso esse código?

 

<%
	Set Upload = Server.CreateObject("Persits.Upload")
	Set jpg = Server.CreateObject("Persits.Jpeg")
	Set objFSO = server.CreateObject("scripting.FileSystemObject")
	Set pasta=objFSO.GetFolder(Server.MapPath("Images"))
	
	Upload.OverwriteFiles = False
	Upload.SetMaxSize 5000000, True
	Upload.CodePage = 65001
	
	'salva o arquivo selecionado na pasta especifica
	Count = Upload.Save(Server.MapPath("Images"))
	
	If Err <> 0 or Count = 0 Then
		Response.Write "erro"
	else
		Set File = Upload.Files(2)
		set arquivo = pasta.files
		
		for each arquivos in arquivo
			If File.ImageType = "UNKNOWN" Then
				File.Delete
			else
				'pega o local do arquivo, já colocado no diretório		
				Path = Server.HtmlEncode(File.Path)
					
				Height = "480"
				Width = "640"
					
				jpg.Open Path
				jpg.Width = Width
				jpg.Height = Height
					
				'jaqui eu jogo as imagens selecionadas na pasta.
				jpg.Save("C:\Rafael\freelance\Nelson\Grande\" & arquivos.Name)
			end if
		next
	end if 
	
	
	set Upload = nothing
	set jpg = nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Aparentemente esse trecho Set File = Upload.Files(2) está "amarrando" o arquivo a última imagem. Veja esse exemplo da documentação do componente:

HTML>
<BODY>
<%
Set Upload = Server.CreateObject("Persits.Upload")

' Use AspJpeg to resize image
Set Jpeg = Server.CreateObject("Persits.Jpeg")

' Capture and save uploaded image to the same directory as script
Upload.Save Server.MapPath(".")

For Each File in Upload.Files
  If File.ImageType <> "JPG" Then
  Response.Write "This is not a JPGE image."
  File.Delete
  Response.End
  End If

  Jpeg.Open File.Path

  Scale = Upload.Form("Scale")
  Jpeg.Width = Jpeg.OriginalWidth * Scale / 100
  Jpeg.Height = Jpeg.OriginalHeight * Scale / 100
  Response.Write Jpeg.OriginalHeight & "-" & Jpeg.Height
  Jpeg.Save Server.MapPath(".") & "\small_" & File.FileName
%>
  <IMG SRC="<% = File.FileName %>"><BR>
  <IMG SRC="<% = "small_" & File.FileName %>"><P>
<%
Next
%>
</BODY>
</HTML>

Fonte:ASPUpload + ASPJPEG.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito