Buscar en Asptutor     
Demo Tienda Virtual Tutorcar
 Navegacion->Inicio | Active Server Pages  

La web de los recursos y ejemplos de asp

Versión para imprimir

 

Alojado en:


urbe-networks.com

Recomienda esta pagina a un amigo

Servicios Gratuitos

Articulos relacionados

Utilizar GetRows()

Tienda Virtual - Carrito de compra

Messenger a través de BD en ASP

Miniaplicacion de comercio electronico

Objeto Datagrid de ASP.NET en ASP

Acotación de resultados

Distintos formatos de Fecha

Un Sistema de postales Virtuales en ASP (I)

Ejemplos de codigo ASP

Funciones de manipulación de fechas

Como poner las fechas en castellano

Un contador de usuarios activos

Leer un fichero de texto del servidor

Como evitar el cache del navegador

Tutorial de ASPEmail

Como mostrar una imagen almacenada en una Base de datos


Enlaces recomendados

   

Tutorial ASP

Tabla de asignación de colores
Este articulo ha sido leído 29.946 veces

Tabla de asignación de 216 colores 

 


Fuente: http://www.asp101.com

Este ejemplo no enseña como mostrar una tabla de 216 colores en la que se pueda hacer click para seleccionar el código de uno de los colores.

Puedes ver el ejemplo funcionando pulsando AQUI

Selectcolor.asp

<%

'*******************************************************

'* Fuente http://www.asp101.com *

'* *

'* Traducido al castellano por www.asptutor.como *

'* *

'* Please direct all inquiries to webmaster@asp101.com *

'*******************************************************

%>

<%

' Tabla de colores usables

Dim arrColors

' LBound de la tabla

Dim iMinColor

' UBound de la tabla

Dim iMaxColor

' Variables indice para el bucle de cada color

Dim iR, iG, iB

' Variable temporal para montar la cadena de color

Dim strColor

' Asignamo digitos hexadecimales para montar los colores

' estos son los digitos pra la paleta de 216 colores

arrColors = Array("00", "33", "66", "99", "CC", "FF")

iMinColor = LBound(arrColors)

iMaxColor = UBound(arrColors)

' Tabla de colores

Response.Write "<table cellspacing=""0"" cellpadding=""0"" " _

& "border=""0"">" & vbCrLf

' bucle para los rojos

For iR = iMinColor To iMaxColor

Response.Write "<tr>" & vbCrLf

' bucle para los verdes

For iG = iMinColor To iMaxColor

' bucle para los azules

For iB = iMinColor To iMaxColor

' calculo del color y muestra de este

strColor = "#" & arrColors(iR) & arrColors(iG) & arrColors(iB)

Response.Write "<td bgcolor=""" & strColor & """>" _

& "<a href=""selectcolor.asp?color=" & Server.URLEncode(strColor) _

& """><img src=""images/pixel.gif"" width=""15"" height=""15"" " _

& "alt=""" & strColor & """ border=""0""></a></td>" & vbCrLf

Next 'iB

Next 'iG

Response.Write "</tr>" & vbCrLf

Next 'iR

Response.Write "</table>" & vbCrLf

%>

<p>

<strong>

<font color="<%= Request.QueryString("color") %>">

Este texto aparece en el color elegido.

</font>

</strong>

</p>

 


Para correcto funcionamiento del ejemplo necesitas una imagen de un 1x1 píxel's  transparente que puedes conseguir pulsando con el enlace y luego guardando la página desde el navegador como pixel.gif

http://www.asptutor.com/images/pixel.gif


 

¿Estas empezando y este articulo es muy complejo para tí?
Empieza por el principio, visita Ejemplos Básicos

Puedes obtener un listado completo de todos los artículos y ejemplos de ASP en http://www.asptutor.com/asp/todoslosarticulos.asp
 

Valora este articulo   Malo Excelente  
16 usuarios han valorado este articulo. Valoracion media:

Nota: Para cualquier consulta u opinión sobre este articulo puedes usar los foros

 

 

AspTutor lo hacemos entre todos ¿Como vas a colaborar hoy?


Google

 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar