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

Galeria de Imagenes

Estas en el tema de Galeria de Imagenes en el foro de ASP Clásico en Foros del Web. Amigos: Necesito realizar un sistema de galeria de imagenes. Tengo realizado un sistema pero muestro una imagen por registro. Lo que deseo hacer ahora es ...
  #1 (permalink)  
Antiguo 23/03/2006, 11:46
Avatar de armandoweb  
Fecha de Ingreso: enero-2003
Ubicación: San Cristobal, Santa Fe, Argentina
Mensajes: 544
Antigüedad: 22 años, 3 meses
Puntos: 7
Galeria de Imagenes

Amigos:

Necesito realizar un sistema de galeria de imagenes. Tengo realizado un sistema pero muestro una imagen por registro. Lo que deseo hacer ahora es por cada registro tener un máximo de 10 imágenes.
El form que utilizo actualmente para subir la imagen solo me permite subir una, ahora debería subir hasta un máximo de 10.
Como puedo recoger esas 10 imagenes del form e insertarlas en los campos imagen1, imagen2, imagen3, etc...
A lo mejor hay una forma mucho mas simple de hacer esta tarea y se me está escapando....

Este es el código del form y la página que procesa todo:

<!--#include file="loader.asp" -->
<script language="javascript">
function get_archivo() {
var f = document.form1

f.imagen.value = f.file.value;
return true
}
</script>
<%
server.ScriptTimeout = 100000000

Set Master = Server.CreateObject("ADODB.Connection")
Master.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "fpdb/base.mdb")

path = "/images/images/"

Dim Uploader, File
Set Uploader = New FileUploader

Uploader.Upload()

If Uploader.Files.Count <> 0 Then
fecha = Uploader.form("fecha")
cliente = Uploader.form("cliente")
tema = Uploader.form("tema")
descripcion = Uploader.form("descripcion")
alto = Uploader.form("alto")
ancho = Uploader.form("ancho")
archivo = Uploader.form("imagen")
archivo = replace(archivo, "/", "\")
archivo = right(archivo, len(archivo) - instrrev(archivo, "\"))
archivo = lcase(archivo)
archivo = replace(archivo, " ", "_")

For Each File In Uploader.Files.Items
File.SaveToDisk Server.MapPath(path), archivo
Next

sSQL = "insert into galerias(imagen,fecha,cliente,tema,alto,ancho) values ('" & archivo & "', '" & fecha & "', '" & cliente & "', '" & tema & "', '" & alto & "', '" & ancho & "')"
Master.Execute(sSQL)

response.Redirect("ok.asp")
end if
%>


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


<title>Panel de Control - Cybernet San Crist&oacute;bal</title>
<link rel="stylesheet" href="/estilo/estilos.css" type="text/css">
<table width="100%" border="01" cellspacing="0" cellpadding="0" bordercolor="#0099CC" bgcolor="#FFFFFF">
<tr>
<td height="268" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="31%">
<div align="center"></div>
</td>
<td width="69%" height="65">
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="3"></font></div>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
<tr>
<td height="7" valign="top">
<div align="center">
<div align="left"></div>
</div>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="102" valign="top"> <br>
<table border="0" width="80%" cellspacing="4" cellpadding="4" align="center">
<tr>
<td bgcolor="#FFFFFF">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="73%"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>PANEL
DE ADMINISTRACION PARA USUARIOS AUTORIZADOS</b></font></td>
<td width="13%">
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></div>
</td>
<td width="14%">
<div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><a href="logout.asp">Logout</a></font></div>
</td>
</tr>
</table>
<p><b><font color="#FF0000" face="Verdana, Arial, Helvetica, sans-serif" size="2">FORMULARIO
PARA INGRESAR LAS NOTICIAS</font></b></p>
<form action="upload.asp" method="post" enctype="multipart/form-data" name="form1" onSubmit="return get_archivo()">
<table width="573" border="0" class="textocomun" align="center">
<tr>
<td width="105">Fecha</td>
<td width="458"> <input type="text" name="fecha" size="20">
</td>
</tr>
<tr>
<td width="105">Cliente</td>
<td width="458"> <input name="cliente" type="text" id="cliente" size="40">
(ej.: Fernanda y Diego)</td>
</tr>
<tr>
<td>Tema</td>
<td><select name="tema" id="tema">
<option selected>Seleccionar Categoria</option>
<option value="Bautismo">Bautismo</option>
<option value="Cumplea&ntilde;os">Cumplea&ntilde;os</option>
<option value="Cumplea&ntilde;os 15">Cumplea&ntilde;os
15</option>
<option value="Bodas">Bodas</option>
<option value="Sociales">Sociales</option>
</select></td>
</tr>
<tr>
<td width="105">Descripci&oacute;n</td>
<td width="458"> <input type="text" name="copete" size="40">
(ej.: Boda de Fernanda y Diego)</td>
</tr>
<tr>
<td>Alto Imagen</td>
<td><input type="text" name="fecha2" size="20">
(en pixeles)</td>
</tr>
<tr>
<td>Ancho Imagen</td>
<td><input type="text" name="fecha3" size="20">
(en pixeles)</td>
</tr>
<tr>
<td width="105">IMAGEN</td>
<td width="458"> <input name="file" type="file" size="30">
<input name="imagen" type="hidden"> </td>
</tr>
<tr>
<td colspan="2" align="center"> <input type="submit" name="Submit" value="Insertar">
</td>
</tr>
</table>
<script language="JavaScript">
<!--
document.form1.fecha.focus();
//-->
</script>
</form>

Alguna ayuda o idea de como solucionar este "pequeño" problema será muy bienvenida.
Desde ya gracias.
__________________
www.awdesarrollos.com.ar - [twitter: @armandoweb] - [Skype: awdesarrollos"]
  #2 (permalink)  
Antiguo 24/03/2006, 07:31
Avatar de armandoweb  
Fecha de Ingreso: enero-2003
Ubicación: San Cristobal, Santa Fe, Argentina
Mensajes: 544
Antigüedad: 22 años, 3 meses
Puntos: 7
Amigos:

Entiendo que nadie se pondrá a ver semejante cantidad de código, por eso solo les consulto como subir mas de una imagen a un registro en una base de datos. Con este código subo solo una por registro y mi necesidad es subir varias para el mismo registro. Aqui está el código más estrecho...

Set Master = Server.CreateObject("ADODB.Connection")
Master.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "fpdb/base.mdb")

path = "/images/images/"

Dim Uploader, File
Set Uploader = New FileUploader

Uploader.Upload()

If Uploader.Files.Count <> 0 Then
fecha = Uploader.form("fecha")
cliente = Uploader.form("cliente")
tema = Uploader.form("tema")
descripcion = Uploader.form("descripcion")
alto = Uploader.form("alto")
ancho = Uploader.form("ancho")
archivo = Uploader.form("imagen")
archivo = replace(archivo, "/", "\")
archivo = right(archivo, len(archivo) - instrrev(archivo, "\"))
archivo = lcase(archivo)
archivo = replace(archivo, " ", "_")

For Each File In Uploader.Files.Items
File.SaveToDisk Server.MapPath(path), archivo
Next

sSQL = "insert into galerias(imagen,fecha,cliente,tema,alto,ancho) values ('" & archivo & "', '" & fecha & "', '" & cliente & "', '" & tema & "', '" & alto & "', '" & ancho & "')"
Master.Execute(sSQL)

response.Redirect("ok.asp")
end if
%>

Si pueden orientarme como modificarlo para subir mas de una imagen se los agradecere muchisimo.
Saludos y gracias desde ya.

ARIEL
__________________
www.awdesarrollos.com.ar - [twitter: @armandoweb] - [Skype: awdesarrollos"]
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 14:38.