Avatar billede kbonline Nybegynder
24. marts 2003 - 15:55 Der er 7 kommentarer og
1 løsning

kan jeg lave dette i asp ?

<script>
arr = new Array(1, 2, 3, 4, 5, 6, 10, 15, 927);
document.write(arr[Math.floor(Math.random() * arr.length)]);
</script>

dette udskriver et tilfældigt tal fra talrækken (javascript)

kan jeg lave tilsvarende i ASP og sætte en værdi dette tal i ASP ??

eks
<% tal = (det tilfældige tal) %>
Avatar billede exp-ralle Nybegynder
24. marts 2003 - 15:58 #1
Følger lige med har selv ledt efter lign. funktion...
Avatar billede chrisrj Forsker
24. marts 2003 - 16:02 #2
Mener du at scriptet skal laves i ASP, eller at værdien skal udskrives i ASP?
Avatar billede kbonline Nybegynder
24. marts 2003 - 16:09 #3
jeg skal bruge værdien til at vælge en række fra en database
Avatar billede kbonline Nybegynder
24. marts 2003 - 16:09 #4
en TILFÆLDIG række bland dem der er i databasen
Avatar billede chrisrj Forsker
24. marts 2003 - 16:13 #5
mener række, som i (post)vandret, eller som i kolonne(lodret)?
Avatar billede chrisrj Forsker
24. marts 2003 - 16:13 #6
Mener du...
Avatar billede mortrr Praktikant
24. marts 2003 - 16:36 #7
Du kunne jo skrive dine asp-filer i javascript ;-)
Gør jeg selv. Det giver på mange områder lidt mere flexibilitet end at bruge vbscript.

I vbscript ville det blive noget lignende:

rndIndex=rnd*UBound(arr)
tallet=arr(rndIndex)

Men hvis det er for at udvælge en række i databasen, kunne du bruge noget lignende:

Set rs=Conn.Execute("en eller anden select")
rndIndex=cInt(rs.recordCount*rnd)
rs.Move(rndIndex)

Det er ikke alle connections der understøtter recordCount, men så kunne man starte med at udvælge antallet af rækker i tabellen:
Set rs=Conn.Execute("SELECT COUNT(*) From Tabellen")
AntalRaekker=rs.Fields(0).Value
rs.Close()
Set rs=Conn.Execute("en eller anden select")
rndIndex=cInt(AntalRaekker*rnd)
rs.Move(rndIndex)
Avatar billede kbonline Nybegynder
24. marts 2003 - 22:42 #8
OK jeg har fået det til at virke

jeg bruger det her på forsiden www.feriefun.dk hvis ivil se det i funktion
(prøv at "reloade" ved at trykke på logoet i hjørnet)

sådan gjorde jeg :

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../huse.mdb")
Conn.Open DSN
%>

<%

Set rs_id = conn.execute ("select id from sommerhuse")

myarray = rs_id.getrows()

myMax = ubound(myarray,2)
Randomize 
myrow = Int((mymax * Rnd) + 1)  'find tilfældig række

id = myarray(0,myrow)

set rs = conn.execute ("select * from sommerhuse where id = " & id)

%>
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester