Random Bg

?

<%
  img = random(6)
  response.write "<body bagground=" & img & ".gif>"
%>

Overstående er ikke testet!

Ellers kan du prøve at kigge på http://www.brettb.com/RandomImageSelector.asp

Hvordan vil du skrive hvis jeg har 4 baggrunde ?

bg1.gif , bg2.gif OSV.

Så vil jeg skrive noget helt andet :)

<%
    Randomize Timer
    Function GiveRandom(high, low)
        GiveRandom = Int((high - low + 1) * Rnd + low)
    End Function

    Response.Write "<body bagground=""bg" & GiveRandom (4, 1) & ".gif"">"
%>

hvordan ved den hvor den skal hente dem fra,

Den henter billederne på den mappe scriptet ligger i. Hvis du vil have, at billederne bliver hentet fra en anden mappe tilføjer du blot:

Response.Write "<body bagground=""<MAPPE>\bg" & GiveRandom (4, 1) & ".gif"">"

Hvis mappen hedder f.eks. pics, ser koden sådan ud:

Response.Write "<body bagground=""pics\bg" & GiveRandom (4, 1) & ".gif"">"

Jeg har 2 billeder så ser det sådan ud "de hedder bg1.gif , bg2,gif

<%
    Randomize Timer
    Function GiveRandom(high, low)
        GiveRandom = Int((high - low + 1) * Rnd + low)
    End Function

    Response.Write "<body bagground=""images\walls\bg" & GiveRandom (2, 1) & ".gif"">"
%>

Rigtigt!

det virker ikke

Hvilken fejl får du?

den viser bare en hvid baggrund -

har:

<%
    Randomize Timer
    Function GiveRandom(high, low)
        GiveRandom = Int((high - low + 1) * Rnd + low)
    End Function

    Response.Write "<body bagground=""images\walls\bg" & GiveRandom (2, 1) & ".gif"">"
%>

jeg sætter det ind mellem

<body>
<%
    Randomize Timer
    Function GiveRandom(high, low)
        GiveRandom = Int((high - low + 1) * Rnd + low)
    End Function

    Response.Write "<body bagground=""images\walls\bg" & GiveRandom (2, 1) & ".gif"">"
%>
</body>

Ups min fejl. Prøv det her (Husk at undlade <body>):

<%
    Randomize Timer
    Function GiveRandom(high, low)
        GiveRandom = Int((high - low + 1) * Rnd + low)
    End Function

    Response.Write "<body background=""images\walls\bg" & GiveRandom (2, 1) & ".gif"">"
%>
</body>

Nu viser den Bg2.gif men ikke en eneste gang med bg1.gif på 10 opdateringer ?

Det forstår jeg ikke... Jeg får begge baggrund, når jeg tester!

Tjek selv http://www15.brinkster.com/mynamesdk/testgot.asp

<%
    Function GiveRandom(high, low)
    Randomize 
      GiveRandom = Int((high - low + 1) * Rnd + low)
    End Function

    Response.Write "<body background=""images\walls\bg" & GiveRandom (2, 1) & ".gif"">"
%>

Prøv lige med denne!

//>Rune

<% dim random
randomize
random = int(rnd*4)+1
%>

<body background="bg<%= random %>.gif">