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

Como pasar información entre páginas

Un Sistema de postales Virtuales en ASP (IV)

Ejemplos de objeto Response

Un sistema de encuestas

Un Sistema de postales Virtuales en ASP (II)

Como Bloquear el boton derecho del raton

Uso de OPTION EXPLICIT

Como situar el cursor en un campo determinado de un formulario

Codigo de un Libro de visitas(II)

Codigo de un Libro de visitas(I)


Enlaces recomendados

   

Tutorial ASP

Tabla de asignación de colores
Este articulo ha sido leído 29.699 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