/
Forside
/
Teknologi
/
Udvikling
/
ASP
/
Tip
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
ASP
#
Navn
Point
1
smorch
9259
2
Harlekin
1866
3
molokyle
1040
4
Steffanst..
758
5
gandalf
657
6
smilly
564
7
gibson
560
8
cumano
530
9
MouseKeep..
480
10
Random
410
Vis alle brugerens favoriter i browseren~
idefix har modtaget
25
point for dette tip
Fra :
idefix
Vist : 795 gange
Dato :
20-12-00 23:58
Denne kode henter alle brugerens favoriter, og ligger dem i en session som derefter bliver vist for brugeren. Første gang scriptet køres kan det tage lidt tid.
<%
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
'Read the favorites
ByteArray = request.binaryread(request.servervariables("HTTP_Content_Length"))
'Store the favorites In session
session("Favorites") = BinaryToString(ByteArray)
session("http") = request.servervariables("ALL_RAW")
end if
dim URL
const Message = "Klik her for at se dine favoriter (Dette kan tage lidt tid første gang)"
URL = Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
Response.Write " <a href=""javascript:{external.ImportExportFavorites(0,document.location.href);window.location.reload();}"">"&Message&"</a>"
If session("Favorites")<>"" Then Response.Write " - Dine favoriter"
If session("Favorites")<>"" Then
Response.Write "<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 Cols=1 bgcolor=gainsboro><tr bgcolor=beige><th>"
Response.Write "This is your favorites/bookmarks : "
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
%>
Bedømmelse
Fra :
gandalf
Dato :
17-01-01 23:31
Bedømmelse
Fra :
konsulenten
Dato :
21-12-00 21:34
Bedømmelse
Fra :
gandalf
Dato :
17-01-01 23:31
Bedømmelse
Fra :
gandalf
Dato :
17-01-01 23:31
Bedømmelse
Fra :
tony
Dato :
24-12-00 00:07
Du har følgende muligheder
Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip.
Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.
Søg
Alle emner
Teknologi
Udvikling
ASP
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177558
Tips :
31968
Nyheder :
719565
Indlæg :
6408914
Brugere :
218888
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.