Slumpa

Nån som vet vart man kan ladda ner ett script som slumpar upp 6 bilder ur databasen. Och det ska inte vara samma bilder som slumpas ut??

[Redigerat av hacktheplanet den 03 dec 2001]

Om du söker här på forumet så garanterar jag att du får upp ett antal inlägg som behandlar detta.

Ett av dem: http://cgi.webforum.nu/wf/Forum11/HTML/004703.html

cya,
PatrikB

------------------
'## -- second place is the first looser -- ##'

men ööö från databasen ?????
jag håller på med en community!!!

[Redigerat av jboy_87 den 03 dec 2001]

ööhh, ja, det går finemang med tipset från länken jag gav dig.
Bara att skapa en array av recordsetet du hämtar

cya,
PatrikB

------------------
'## -- second place is the first looser -- ##'

men det slumpas ju 5 bilder om jag slumpar fram 6 så visas inte 6 bilden ibland??

------------------
ASP är bäst fuck the rest!!!

Har du ändrat 4:an till en 5:a? I loopen alltså...

------------------
/A.S

[Redigerat av skyman den 04 dec 2001]

står inget om loop

<%
'## -- denna funktione returnerar en kommaterad sträng med unika nummer --
Function getUniqueNo(ByVal HowManyNumbers, ByVal FromNumbers) ' As String

Dim m_strNumbers ' As String
Dim I ' As Integer
Dim m_intNumber ' As Integer

'## -- se till att start strängen att lägga de slumpade 
'## nummrena är tom --
m_strNumbers = ""

'## -- slumpa tal med systemklockan som hjälp så att inte 
'## samma tal slumpas om och om igen --
Randomize

'## -- kolla om antalet unika nummer är mindre eller lika
'## med antal nummer att välja från --
If HowManyNumbers > FromNumbers Then HowManyNumbers = FromNumbers

'## -- loopa igenom och generera slumptal --
For I = 1 To HowManyNumbers
'## -- slumpa ut ett tal --
m_intNumber = CInt(rnd*(FromNumbers))

'## -- kolla om talet redan slumpats --
If InStr(m_strNumbers,"#" & m_intNumber & ",") = 0 Then
'## -- talet har inte tidigare slumpats. Lägg till nummret --
m_strNumbers = "#" & m_intNumber & "," & m_strNumbers
Else
'## -- talet var redan utslumpat. backa tillbaka och kör en ggn till --
I = I - 1
End If
Next

'## -- ta bort staket avgränsaren --
m_strNumbers = Replace(m_strNumbers,"#","")

'## -- ta bort det sista komma-tecknet i strängen om det finns ngt --
If Right(m_strNumbers,1) = "," Then
m_strNumbers = Left(m_strNumbers,Len(m_strNumbers) - 1)
End If

'## -- returnera resultatet --
getUniqueNo = m_strNumbers
End Function

Dim arrNumbers
Dim arrArray(9)
Dim I

arrArray(0) = "0.gif"
arrArray(1) = "1.gif"
arrArray(2) = "2.gif"
arrArray(3) = "3.gif"
arrArray(4) = "4.gif"
arrArray(5) = "5.gif"
arrArray(6) = "6.gif"
arrArray(7) = "7.gif"
arrArray(8) = "8.gif"
arrArray(9) = "9.gif"

'## -- de unika nummrena splittade till en array.
'## Används för att plocka ut slumpvis valda positioner från 
'## arrayen med bilder --
arrNumbers = Split(getUniqueNo(6,UBound(arrArray)),",")

For I = 0 To UBound(arrNumbers)
Response.Write arrArray(arrNumbers(I)) & "<BR>"
Next
%>

[Redigerat av jboy_87 den 04 dec 2001]

Det jag menade var LarsG's exempel som du skulle välja vilket är ett mycket bättre alternativ.

cya,
PatrikB

------------------
'## -- second place is the first looser -- ##'