[ASP] Meerdere Random images tonen

[Denga]

Nu heb ik onderstaand script gemaakt voor het random tonen van images.
Nu heb ik geprobeerd om meerdere images te tonen, dit lukt me wel maar hij pakt dan regelmatig dezelfde images.
Hoe kan ik dit veranderen?

code:

<%
    dim x(1000)
    
    Const mypath="imagepath"
    
    Set filesystem = CreateObject("Scripting.FileSystemObject")
    Set folder = filesystem.GetFolder(server.mappath(mypath))
    
    Set filecollection = folder.Files
    
    idx=0
    For Each file in filecollection
      idx=idx+1
      x(idx)=file.name
    Next
    
    randomize timer
    whichNo=int(rnd()*idx)+1
    
    set filesystem=nothing
    set folder=nothing
    set filecollection=nothing
    
    response.write "<img height=75 width=150 src=" & mypath  & "/" 
    response.write x(whichNO)& " alt=" & x(whichNo) & " border=1>"

%>

[Altaphista]

heb je wel gezocht? Of is het gemak dient de mens (liever lui dan moe)?
Mijn eerste zoekopdracht bij google levert mij het antwoord op.;

[Denga]

Als je me gewon de volledige link zou willen geven want sites als ASP101 enz heb ik wel degelijk afgezocht...

[Verwijderd]

Denga schreef op 06 januari 2004 @ 17:59:
Als je me gewon de volledige link zou willen geven want sites als ASP101 enz heb ik wel degelijk afgezocht...

Is dit niet wat je bedoeld? [rml][ VB6] Randomize ? NIET ![/rml], hetzelfde voor: [rml][ VB6] Random is niet Random[/rml].

[djluc]

Het lijkt mij sowieso verstandig een array bij te houden met daarin de afbeeldingen die al op deze pagina staan omdat 2x dezelfde op deze pagina niet mooi is.

[Denga]

djluc schreef op 06 januari 2004 @ 18:44:
Het lijkt mij sowieso verstandig een array bij te houden met daarin de afbeeldingen die al op deze pagina staan omdat 2x dezelfde op deze pagina niet mooi is.

Ja en dat is dus wat ik bedoel... het lukt me wel om een random image te tonen maar ik wil juist niet dat een image 2x getoont wordt en hierover kan ik dus niks vinden, niet op Tweakers en niet op ASP101 of 4 Guys from Rolla (etc.)
Dus als iemand me daar mee kan helpen...

[Altaphista]

Denga schreef op 06 januari 2004 @ 23:59:
[...]


Ja en dat is dus wat ik bedoel... het lukt me wel om een random image te tonen maar ik wil juist niet dat een image 2x getoont wordt en hierover kan ik dus niks vinden, niet op Tweakers en niet op ASP101 of 4 Guys from Rolla (etc.)
Dus als iemand me daar mee kan helpen...

dat is toch geen script request

ASP:

...
Voor Ieder Bestand In Collectie
  Als nog niet toegevoegd aan array, 
    voeg dan toe aan array
    markeer als toegevoegd
  Einde Als
Volgende

e voila.

[gorgi_19]

Waarbij het met grote aantallen plaatjes misschien sneller is als je het Dictionary object gebruikt.

[Denga]

t is me al gelukt met een if-do until statement...

Voor de mensen die er gebruik van willen maken:

code:

<% Server.ScriptTimeOut = 600 %>

<%
    dim x(1000)
    
    Const mypath="imagepath"
    
    Set filesystem = CreateObject("Scripting.FileSystemObject")
    Set folder = filesystem.GetFolder(server.mappath(mypath))
    
    Set filecollection = folder.Files
    
    idx=0
    For Each file in filecollection
      idx=idx+1
      x(idx)=file.name
    Next
    
    randomize timer
    whichNo1 = int(rnd()*idx)+1
    whichNo2 = int(rnd()*idx)+1
    whichNo3 = int(rnd()*idx)+1
    
    
    If whichNo2 = whichNo1 then
        whichNo2 = int(rnd()*idx)+1     
            Do until whichNo2 <> whichNo1
        Loop
    end if
    
    If whichNo3 = whichNo1 OR whichNo3 = whichNo2 then
        whichNo3 = int(rnd()*idx)+1     
            Do until whichNo3 <> whichNo1 AND whichNo3 <> whichNo2
        Loop
    end if
    
    set filesystem=nothing
    set folder=nothing
    set filecollection=nothing
    
    response.write "[img]"[/img]&nbsp;&nbsp;"
    response.write "[img]"[/img]&nbsp;&nbsp;"
    response.write "[img]"[/img]"
%>

Voila...

[Devilfish]

Heeft asp niet een shuffle functie voor arrays? dan weet je iig zeker dat je altijd x verschillende krijgt...

[djluc]

Devilfish schreef op 07 januari 2004 @ 23:58:
Heeft asp niet een shuffle functie voor arrays? dan weet je iig zeker dat je altijd x verschillende krijgt...

Natuurlijk is dat niet zeker, je kunt toch ook 2x 6 achter elkaar gooien met een dobbelsteen?