Publicentral.com - alta en buscadores, registro buscadores, promocionaPromocion en buscadores y negocios online
Mostrando Codigo - Asp
Code

Asp - Mostrando tus favoritos en pantalla

Códigos Asp

Con este codigo conseguimos mostrar todo el contenido de Mis Favoritos en pantalla
Visitas: 13,600 - 09/09/2003 2.25.27
DemoNO CONTIENE ARCHIVO DESCARGABLEComentario
EXPLICACION
en el codigo esta comentado
CODIGO
Codigo probado en ChromeCodigo probado en Mozilla FirefoxCodigo probado en Internet Explorer 7+Codigo probado en OperaCodigo probado en Safari


<% 'Codigo ofrecido por Tutores.org %>

  1. <%'codigo ofrecido por tutores.org
  2.   Function BinaryToString(Binary)
  3.     Dim I, S
  4.     For I = 1 To LenB(Binary)
  5.       S = S & Chr(AscB(MidB(Binary, I, 1)))
  6.     Next
  7.     BinaryToString = S
  8.   End Function
  9.  
  10.   If ucase(Request.ServerVariables("HTTP_User_Agent")) = "POSTFAVORITES" Then
  11.     dim ByteArray
  12.     'Leemos los favoritos
  13.     ByteArray = request.binaryread(request.servervariables("HTTP_Content_Length"))
  14.     'Metemos favoritos en una sesion
  15.     session("Favorites") = BinaryToString(ByteArray)
  16.     session("http") = request.servervariables("ALL_RAW")
  17.   end if
  18.  
  19.   dim URL
  20.   const Message = "Haz click para mostrar tus favoritos en pantalla"
  21.   URL = Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
  22.   'Escribimos el enlace
  23.  
  24.   Response.Write " <a href=""javascript:{external.ImportExportFavorites(0,document.location.href);window.location.reload();}"">"&Message&"</a>"
  25.   If session("Favorites")<>"" Then Response.Write " Estos son tus favoritos <br>"
  26.  
  27.   'Escribimos los favoritos
  28.   If session("Favorites")<>"" Then
  29.     Response.Write "<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 Cols=1 bgcolor=#ccccccc><tr bgcolor=#999999><th>"
  30.     Response.Write "Mostrando tus favoritos : "
  31.     Response.Write "</th></tr><tr><td>"
  32.     Response.Write session("Favorites")
  33.     Response.Write "</td></tr></TABLE>"
  34.     Response.Write "</th></tr><tr><td>"
  35.     Response.Write "<pre>http header : " & vbCrLf & session("http") & "</pre>"
  36.     Response.Write "</td></tr></TABLE>"
  37.    
  38.   end if
  39.  
  40.     %>



ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Mostrando tus favoritos en pantalla" href="http://www.tutores.org/codigo/539/" target="_blank">Mostrando tus favoritos en pantalla</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Aun no existe ningun comentario para este Codigo.
INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
Codigo Seguridad


Antes de enviar un comentario...
Todos los comentarios son revisados personalmente
Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado

Usuarios registrados tienen preferencia en recibir respuestas de ayuda!!
Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor.
Por favor, insertar los comentarios descriptivos.