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

Uso de las Cookies

Configuracion ODBC

Adaptación de la hora de un servidor extranjero

Ejemplo de Calculo de numeros primos

Introduccion ADO

Renombrar ficheros en el servidor

Uso de las Cookies

Descarga del tutorial de ASP

Objeto Datagrid de ASP.NET en ASP

Acotación de resultados


Enlaces recomendados

   

Tutorial ASP

Mas sobre el uso de cookies
Este articulo ha sido leído 32.902 veces

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:



 

¿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  
41 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