| ||||
estoy haciendo un portal donde me gustaria que los usuarios puedar guardar sus favoritos. estoy probando uno hecho en php nomas que de ese lenguaje no entiendo mucho por eso buscaba en asp |
| ||||
En realidad te preguntaba por dos motivos: 1- Se me había ocurrido hacer algo así, aunque creo ya existe :) 2- Si la respuesta era que lo querés hacer sin ninguna acción de parte del usuario, yo supongo no se puede. Igual mediante ASP o PHP no creo que logres nada, y me extraña estar haciendote este comentario ;)
__________________ ...___... |
| ||||
de hecho lo que estoy viendo, solo que un cliente me cambio lo que estaba haciendo es que con un script de php lo que haces es: 1.- exportar desde tu navegador un archivo 2.- recoger este archivo con el clasico examinar... 3.- meter los datos en una mysql yo hubiera querido que fuera primero automatizado (si no se puede no importa) y segundo en ASP pero bueno, intentare integrarlo en una oportunidad que tenga... |
| |||
Yo tenia este codigo y funcionaba para versiones anteriores del explorer a no recuerdo, en la 6.0 no funciona. <% Function BinaryToString(Binary) Dim I, S For I = 1 To LenB(Binary) S = S & Chr(AscB(MidB(Binary, I, 1))) Next BinaryToString = S End Function If UCase(Request.ServerVariables("HTTP_User_Agent")) = "POSTFAVORITES" Then Dim ByteArray 'Leemos los favoritos ByteArray = Request.BinaryRead(Request.ServerVariables("HTTP_C ontent_Length")) 'Metemos favoritos en una sesion session("Favorites") = BinaryToString(ByteArray) session("http") = Request.ServerVariables("ALL_RAW") End If Dim URL Const Message = "Haz click para mostrar tus favoritos en pantalla" URL = Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME") 'Escribimos el enlace Response.Write " <a href=""javascript:{external.ImportExportFavorites( 0,document.location.href);window.location.reload() ;}"">"&Message&"</a>" If session("Favorites")<>"" Then Response.Write " Estos son tus favoritos <br>" 'Escribimos los favoritos If session("Favorites")<>"" Then Response.Write "<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 Cols=1 bgcolor=#ccccccc><tr bgcolor=#999999><th>" Response.Write "Mostrando tus favoritos : " Response.Write "</th></tr><tr><td>" Response.Write session("Favorites") Response.Write "</td></tr></TABLE>" Response.Write "</th></tr><tr><td>" Response.Write "<pre>http header : " & vbCrLf & session("http") & "</pre>" Response.Write "</td></tr></TABLE>" End If %> Saludos |