ASP y CSS. Numeros y colores al azar
Un ejemplo donde convinamos ASP y CSS. Usando la funcion Rnd de VBScript, buscamos un número al azar. Con este numero
seleccionaremos unos de los elementos de un array que contiene colores.
Luego aplicamos las variables dentro del CSS.
El código que genera esto... es el siguiente. Para copiar y pegar.
<%
'Funcion que devuelve el numero al azar
Function NumAleatorio(max)
Randomize
NumAleatorio = Int(max * Rnd) + 1
End Function
'Creamos un array de 10 lugares
Dim Color(10)
Color(1) = "blue"
Color(2) = "red"
Color(3) = "yellow"
Color(4) = "green"
Color(5) = "gray"
Color(6) = "aqua"
Color(7) = "black"
Color(8) = "navy"
Color(9) = "purple"
Color(10) = "teal"
'guardamos los colores en las variables para usarlas en el CSS
color_fondo = Color(NumAleatorio(10))
color_letra = Color(NumAleatorio(10))
%>
<html>
<head>
<style type="text/css">
BODY {background-color:<%= color_fondo %>; color:<%=color_letra%>;}
</style>
</head>
<body>
Para ver el efecto del script, presionar Refresh (F5) ...
</body>
</html>
|
|
