webForumDet fria alternativet

Slumpa (min kod)

ASP

2 svar · 187 visningar · startad av sin_adec

Medlem sedan apr. 2002272 inlägg
Frågan#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??...

262 ms totalt · 3 externa anrop · v20260731065814-full.767b4345
123 ms — deklarationer (db)
0 ms — hämta statistik (cache)
133 ms — hämta tråd, inlägg och bilagor (db)