Tabla de asignación de colores


http://www.asptutor.com

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