Slumpa (min kod)

ASP

2 svar · 198 visningar · startad av sin_adec

Medlem sedan apr. 2002272 inlägg
Trådstart#1

Tjenare...
angående min kod.. man kan slumpa poster ur databasen, men problemet med koden är att om du slumpar igen så kan samma post dyka upp igen...
jag vet inte hur jag ska lösa det..

så här ser min kod ut

<% 
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("d.mdb") &";pwd=l"
SQL = "SELECT Count(*) AS strKL FROM medlemmar" 
Set RecSet = connect.execute(SQL) 

Randomize 
Set strRecSet = Server.Createobject("ADODB.Recordset") 
SQL = "Select * from medlemmar" 
strRecSet.cursorlocation = 1 
strRecSet.cachesize = 1
strRecSet.open SQL, "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("d.mdb") &";pwd=l"
strRecSet.move Int(Rnd*RecSet("strKL")) 
%>
Medlem sedan aug. 2002207 inlägg
#2

Du får helt enkelt spara ID-numret på alla poster som du har slumpat fram i en array (eller på något annat vis). Sedan får du kontrollera med arrayen om du redan har slumpat fram posten.

Medlem sedan apr. 2002272 inlägg
#3

oh.. hur skulle det se ut??...

319 ms totalt · 4 externa anrop · v20260731065814-full.d34c6d5a
173 ms — deklarationer (db)
0 ms — hämta statistik (cache)
134 ms — hämta tråd, inlägg och bilagor (db)
175 ms — ändringar (db)