Foros del Web » Programando para Internet » ASP Clásico »

aspjpeg thumb???

Estas en el tema de aspjpeg thumb??? en el foro de ASP Clásico en Foros del Web. hola lo que quier que haga es que me guarde un thumb y la imagen original dentro del mismo directorio especificado mas abajo. en cuyo ...
  #1 (permalink)  
Antiguo 11/07/2008, 11:34
 
Fecha de Ingreso: marzo-2008
Mensajes: 25
Antigüedad: 16 años, 2 meses
Puntos: 0
aspjpeg thumb???

hola lo que quier que haga es que me guarde un thumb y la imagen original dentro del mismo directorio especificado mas abajo. en cuyo caso si se puede que la imagen original tambien se le fuerse dimensiones fijas. pero seguro no se pueden crear 2 objetos como estoy intentando alguien que me ayude por favor!!!

<!--#include file="connect.inc"-->
<%
'identificar la propiedad
txtid=request.QueryString("txtid")
'crear el objeto upload.
Set Upload = Server.CreateObject("Persits.Upload")
' el objeto para dimensionarlo
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' limitar el tamaño maximo del archivo, en memoria.
Upload.SetMaxSize 100000, True
'cancela que se sobreescriban los archivos del mismo nombre.(nota:averiguar si funciona con este metodo)
Upload.OverwriteFiles = False
' salvar a la memoria. path omitido.
Upload.Save

' Chekear si fue cargado algun archivo.
Set File = Upload.Files("FILE1")
If Not File Is Nothing Then
For Each File in Upload.Files
' obtener el nombre del archivo.
Filename = file.Filename
' chequear si el archivo existe en la carpeta.
If Upload.FileExists("d:\xvrt\rehdicon.com\html\img\p romo" & txtid &"\fotos\" & filename ) Then
msj = "El archivo Existe en el servidor"
response.Write(msj & "<br>")
'response.Redirect("galeria.asp?txtid=" & txtid & "&msj=" & msj)
Else
' sino guardar el archivo
Conexion.Execute("INSERT INTO GALERIA(ID_PROMOCION, FOTO, FOTITO) VALUES ('"& txtid &"', '"& File.Filename &"', 'small_" & File.Filename &"' )" )
File.SaveAs "d:\xvrt\rehdicon.com\html\img\promo" & txtid &"\fotos\" & File.Filename
Jpeg.Open File.Path
Scale = Upload.Form("Scale")
Jpeg.Width = 26
Jpeg.Height = 26
Jpeg.Save Server.MapPath("..\img\promo" & txtid &"\fotos\") & "small_" & File.FileName
msj = "El Archivo se guardo en el servidor."
response.Write(msj & "<br>")
'response.Redirect("galeria.asp?txtid=" & txtid & "&msj=" & msj)
End If
Next
Else ' ningun Archivo Seleccionado.
msj = "No seleciono ningun archivo."
response.Redirect("galeria.asp?txtid=" & txtid & "&msj=" & msj)
End If

%>
  #2 (permalink)  
Antiguo 12/07/2008, 16:15
Avatar de Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 17 años, 3 meses
Puntos: 88
Respuesta: aspjpeg thumb???

pregunta.... por que ejecutas primero la insercion, si no tienes el valor de la "fotito" ???

no deberia sera asi??
Cita:
' sino guardar el archivo
File.SaveAs "d:\xvrt\rehdicon.com\html\img\promo" & txtid &"\fotos\" & File.Filename
Jpeg.Open File.Path
Scale = Upload.Form("Scale")
Jpeg.Width = 26
Jpeg.Height = 26
Jpeg.Save Server.MapPath("..\img\promo" & txtid &"\fotos\") & "small_" & File.FileName
msj = "El Archivo se guardo en el servidor."
response.Write(msj & "<br>")
'response.Redirect("galeria.asp?txtid=" & txtid & "&msj=" & msj)
Conexion.Execute("INSERT INTO GALERIA(ID_PROMOCION, FOTO, FOTITO)"&_
" VALUES ('"& txtid &"', '"& File.Filename &"', 'small_" & File.Filename &"' )" )
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra
  #3 (permalink)  
Antiguo 14/07/2008, 06:45
 
Fecha de Ingreso: marzo-2008
Mensajes: 25
Antigüedad: 16 años, 2 meses
Puntos: 0
Respuesta: aspjpeg thumb???

por que despues creo el archivo asi con su nombre original mas small_ adelante
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 17:17.