Avatar billede 4b4dk Nybegynder
14. oktober 2001 - 15:07 Der er 7 kommentarer og
1 løsning

Random

Jeg bruger følgende kode til at random kalde en side.

:
default.asp;
<%

Randomize

Dim LinkList(4)
LinkList(1) = \"http://www.4b4.dk/splash/iminlove\"
LinkList(2) = \"http://www.4b4.dk/splash/wtc\"
LinkList(3) = \"http://www.4b4.dk/splash/misssweeden\"
LinkList(4) = \"http://www.4b4.dk/splash/blueold\"

Response.CacheControl = \"No-cache\"
ifrmSrc = LinkList(Int(4 * Rnd) + 1)

%>
<html>
<head>
<title>_FOURBFOUR [F5]</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>

<!-

\'    _ _  ___ _ _  ___  _  __
\'    | | || _ ) | | |  \\| |/ /
\'    |_  _| _ \\_  _|| |) | \' <
\'      |_||___/ |_(_)___/|_|\\_\\
\'
        Copyright © 2001 FourBFour.
        Quistions regarding content and copyright, mailto: Alive@4b4.dk.


-!>

<frameset rows=\"*\">
    <frame name=\"main\" src=\"<% = ifrmSrc %>\">
</frameset>
</html>
:/end

.. Hvordan kan den modificeres.. SÅLEDES .. den samme side ik kan blive vist lige efter sig selv.. ved random. Sålesdes at der hele tiden ved random vil poppe en anden side frem!
Avatar billede stigc Nybegynder
14. oktober 2001 - 15:14 #1
Response.CacheControl = \"No-cache\"

do while session(\"lastsite\")<>ifrmSrc
  ifrmSrc = LinkList(Int(4 * Rnd) + 1)
loop

session(\"lastsite\") = ifrmSrc
Avatar billede stigc Nybegynder
14. oktober 2001 - 15:15 #2
ups!


Response.CacheControl = \"No-cache\"

do while session(\"lastsite\")=ifrmSrc
  ifrmSrc = LinkList(Int(4 * Rnd) + 1)
loop

session(\"lastsite\") = ifrmSrc 
Avatar billede 4b4dk Nybegynder
14. oktober 2001 - 15:22 #3
stigc: tjek: www.4b4.dk .. Hver anden gang du reloader.. Vises der ikke noget!
Avatar billede stigc Nybegynder
14. oktober 2001 - 15:24 #4
ups igen!


Response.CacheControl = \"No-cache\"

ifrmSrc = LinkList(Int(4 * Rnd) + 1)
do while session(\"lastsite\")=ifrmSrc
  ifrmSrc = LinkList(Int(4 * Rnd) + 1)
loop
Avatar billede super_g Nybegynder
14. oktober 2001 - 15:28 #5
og så lige:
session(\"lastsite\") = ifrmSrc
Avatar billede 4b4dk Nybegynder
14. oktober 2001 - 15:28 #6
stigc: prøv 4b4.dk igen. Reload et par gange.. Stadig engang imellem samme side man bliver henvist til ved reload!
Avatar billede 4b4dk Nybegynder
14. oktober 2001 - 15:34 #7
super_g: stadig .. Virker ikke! www.4b4.dk !
Avatar billede eagleeye Praktikant
14. oktober 2001 - 17:25 #8
Udskift denne linie:
ifrmSrc = LinkList(Int(4 * Rnd) + 1)
med:

if Session(\"ifrmSrc\") = \"\" then
  ifrmSrc = LinkList(Int(4 * Rnd) + 1)
else
  do
    ifrmSrc = LinkList(Int(4 * Rnd) + 1)
  loop while Session(\"ifrmSrc\") = ifrmSrc
end if
Session(\"ifrmSrc\") = ifrmSrc
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

IT-JOB