Mas sobre el uso de cookies


http://www.asptutor.com

Mas sobre el uso de cookies 

 

Articulo elaborado por Pavel Ernesto Simo Rodriguez

 

 Bueno, aquí cree una web la cual recoge los cookies de varios estilos de tablas como son , color de fondo, tipografía, tamaño, border, links entre otros estilos lo cual lo manda a una pagina que por medio del Response.Cookies los recoge y los manda de nuevo a la pagina pero con los respectivos cambios.
 
Es muy útil para probar estilos y colores, y guardar direcciones ya que le di la función que espirara en un año...
 

Pagina.asp

<%@ Language=VBScript %>
<% Option Explicit %>

<html>
<head>
<title>Mi Pagina Web</title>
</head>
<body topmargin="0" leftmargin="0">

<% Dim Fondo, Letra, Border, BorderC, SizeT, Texto, Tiempo, Backpagina
Dim UrlA, UrlB, UrlC, UrlD
Fondo = Request.Cookies("Estilo")("Fondo")
Letra = Request.Cookies("Estilo")("Letra")
Border = Request.Cookies("Estilo")("Border")
BorderC = Request.Cookies("Estilo")("BorderC")
SizeT = Request.Cookies("Estilo")("Size")
Texto = Request.Cookies("Estilo")("Texto")
Tiempo = Request.Cookies("Estilo")("Tiempo")

UrlA = Request.Cookies("Estilo")("UrlA")
UrlB = Request.Cookies("Estilo")("UrlB")
UrlC = Request.Cookies("Estilo")("UrlC")
UrlD = Request.Cookies("Estilo")("UrlD")

%>

<form method="POST" action="response.asp">


<div align="center">
<center>


<table border="<%=Border%>" cellpadding="0" cellspacing="0" 
style="border-collapse: collapse" width="760" 
id="AutoNumber1" bgcolor="<%=Fondo%>" height="212" bordercolor="<%=BorderC%>">
<tr>
<td width="780" height="1" colspan="2">
<p align="center"><b>
<font size="<%=SizeT%>" face="<%=Letra%>"><%=Texto%></font></b></td>
</tr>
<tr>
<td width="463" height="186" valign="top">
<i><b><font size="6">Estilos:</font></b></i><br>
<b><i><font face="Times New Roman"><br>
Titulo de la Web:
<input type="text" name="Texto" size="20" value="<%=Texto%>"><br>
Fondo tabla: </font></i>
<font face="Times New Roman">
<i>
&nbsp; <font size="5"># </font>
<input type="text" name="Background" size="20" value="<%=Fondo%>">
</i></font><i><font face="Times New Roman"> 
Codigo del Color<br>
Tipo de Letra Titulo : </font><font face="Verdana">
<select size="1" name="Letra">
<option>Verdana</option>
<option>Comic Sans MS</option>
<option>Tahoma</option>
<option selected>Times New Roman</option>
</select></font><font face="Times New Roman"> Eliga el Font Aqui<br>
Tamaño de Letra: <select size="1" name="Longitud">
<option value="1">8 pt</option>
<option value="2">10 pt</option>
<option value="3">12 pt</option>
<option value="4">14 pt</option>
<option value="5">18 pt</option>
<option value="6" selected>24 pt</option>
<option value="7">36 pt</option>
</select> Elige el Tamaño de <br>
Tabla Border:&nbsp; 
<input type="text" name="Marcos" size="6" value="<%=Border%>"> Eliga el 
Border de la tabla<br>
Color Border:&nbsp; </font></i>
<font face="Times New Roman">
<i>
&nbsp; <font size="5"># </font>
<input type="text" name="BorderC" size="20" value="<%=BorderC%>">&nbsp; 
Codigo del Color<br>
</i></font><i><font face="Times New Roman"><br>
<font size="6">Paginas Favoritas:</font><font size="7"><br>
&nbsp;</font>Escribe Aqui tus 
Links Favoritos<br>
Url1: <input type="text" name="UrlA" size="30" value="<%=UrlA%>"> con http://<br>
Url2: <input type="text" name="UrlB" size="30" value="<%=UrlB%>"> con http://<br>
Url3: <input type="text" name="UrlC" size="30" value="<%=UrlC%>"> con http://<br>
Url4: <input type="text" name="UrlD" size="30" value="<%=UrlD%>"> con http://
</font></i></b></td>
<td width="317" height="186" valign="top">

<p>
<b>
<i><font size="6">&nbsp; Url Favoritos:</font></i><br>
<br> &nbsp;&nbsp;<a href="<%=UrlA%>"><%=UrlA%></a>
<br> &nbsp;&nbsp;<a href="<%=UrlB%>"><%=UrlB%></a>
<br> &nbsp;&nbsp;<a href="<%=UrlC%>"><%=UrlC%></a>
<br> &nbsp;&nbsp;<a href="<%=UrlD%>"><%=UrlD%></a>
</b>
</p>

</td>
</tr>
</table>
</center>
</div>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse"
width="760" id="AutoNumber2">
<tr>
<td width="100%">
<p align="center"><br>
<input type="submit" value="Ver Cambios" name="B1"><br>
<br>
<center><b>(Ultmima Cambios reailizados el dia <%=Tiempo%> )</b></center></td>
</tr>
</table>
<p>&nbsp;</p>
</form>

</body>
</html>


response.asp

<%@ Language=VBScript %>
<% Option Explicit %>

<% Dim Fondo, Letra, Border, BorderC, Size, Texto
Dim UrlA, UrlB, UrlC, UrlD
Fondo = Request("Background")
Letra = Request("Letra")
Border = Request("Marcos")
BorderC = Request("BorderC")
Size = Request("Longitud")
Texto = Request("Texto")

UrlA = Request("UrlA")
UrlB = Request("UrlB")
UrlC = Request("UrlC")
UrlD = Request("UrlD")


Response.Cookies("Estilo")("Fondo") = Fondo
Response.Cookies("Estilo")("Letra") = Letra
Response.Cookies("Estilo")("Border") = Border
Response.Cookies("Estilo")("BorderC") = BorderC
Response.Cookies("Estilo")("Size") = Size
Response.Cookies("Estilo")("Texto") = Texto
Response.Cookies("Estilo")("Tiempo") = Now


Response.Cookies("Estilo")("UrlA") = UrlA
Response.Cookies("Estilo")("UrlB") = UrlB
Response.Cookies("Estilo")("UrlC") = UrlC
Response.Cookies("Estilo")("UrlD") = UrlD

Response.Cookies("Estilo").Expires = Date + 365


Response.Redirect "pagina.asp"

%>
 

Podéis ver el ejemplo funcionando pulsando en la imagen: