Problem med slumpning

16 svar · 417 visningar · startad av erka 4 sep. 2001

erkaMedlem sedan dec. 19996 522 inlägg

Frågan4 sep. 2001 05:32#1

Jag har 30 stycken bilden liggandes på servern. På varje sida ska 5 av dessa bilder slumpas fram (med en länk av bilden). Jag vet hur man gör om man har det i en databas, men jag vill inte ha det i en db, har tillräckligt med anrop mot db:n utan jag har bilderna (de 5) i en inc fil som ligger till vänster på sidan. Tänkte att man kunde i den skriva typ:

Bildnamn, Alt text, URL
Bildnamn, Alt text, URL
Bildnamn, Alt text, URL
Bildnamn, Alt text, URL
Bildnamn, Alt text, URL

etc och sedan slumpa fram 5 varje gång sidan laddas.

Någon som har vetskap om detta

tack så länge

------------------
Real mad hiphop flavaz kickin' it right from tha street without no FEAR, Yo !

BrimbaMedlem sedan dec. 19995 874 inlägg

4 sep. 2001 06:37#2

Jag vet inte, men kanske skulle

<%
Dim i
i = 1
Do until i = 5
Randomize
slump = cInt(rnd()4*)+1
%>

<%
i = i + 1
loop
%>

Sedan på inc.asp skriver du...

<%
If cInt(request.querystring) = 1 Then response.write "<IMG...>"
If cInt(request.querystring) = 2 Then response.write "<IMG...>"
If cInt(request.querystring) = 3 Then response.write "<IMG...>"
If cInt(request.querystring) = 4 Then response.write "<IMG...>"
If cInt(request.querystring) = 5 Then response.write "<IMG...>"
%>

------------------
Mvh
Patrik aka Brimba
<A HREF="http://www.brimba.nu/default.asp?oPID=poll&PollID=19" TARGET=_blank>Skulle du äta på restaurang, om det var rökförbud?
</A>Varför blir mina isbitar inte lika klara som i reklamen?

erkaMedlem sedan dec. 19996 522 inlägg

4 sep. 2001 06:44#3

läses inte inc:en in före slumpscriptet

alltså

Jag tänkte mig mer en INC fil som heter SLUMPBILDMENY.inc då där jag i den filen har alla namn på bilder (bilden heter samma sak som querystringen i länken så de kan jag ta ut där) och i den filen slumpar fram 5 stycken av bilderna med radbrytning efter varje

------------------
Real mad hiphop flavaz kickin' it right from tha street without no FEAR, Yo !

PatrikBMedlem sedan mars 20002 836 inlägg

4 sep. 2001 06:59#4

Skapa en 2-dimensionell array där du lagrar info om varje bild.

arrImgInfo(0,0) = "bild1.gif"
arrImgInfo(1,0) = "Alt 1"
arrImgInfo(2,0) = "URL 1"
arrImgInfo(0,1) = "bild2.gif"
arrImgInfo(1,1) = "Alt 2"
arrImgInfo(2,1) = "URL 2"

etc beroende på hur många bilder du vill ha.

Slumpa sedan fram dem med LarsGs metod som du hittar här: http://cgi.webforum.nu/wf/Forum11/HTML/004703.html#1

kom bara ihåg att LarsG använder en vanlig array så du måste "fippla" om lite i scriptet för att funka med en 2-dimensionell array.

cya
PatrikB

------------------
*ordning och reda!, pengar på fredag.*

erkaMedlem sedan dec. 19996 522 inlägg

4 sep. 2001 07:13#5

ok tack, ska testa senare idag.. :)

------------------
Real mad hiphop flavaz kickin' it right from tha street without no FEAR, Yo !

VideMedlem sedan dec. 19998 577 inlägg

4 sep. 2001 07:31#6

Man kan inte inkludera #include dynamiskt, dvs inte såhär:

<!--#include virtual="/inc.asp?<%=slump%>" -->

------------------
Vide rox = new Vide();
rox.learn("C#");
webeye.nu

erkaMedlem sedan dec. 19996 522 inlägg

4 sep. 2001 07:45#7

Nej vide jag skrev det ovan :)

nu leker jag å testar, läser om vektorer hos dig vide , återkommer

------------------
Real mad hiphop flavaz kickin' it right from tha street without no FEAR, Yo !

erkaMedlem sedan dec. 19996 522 inlägg

4 sep. 2001 07:56#8

vad är det för fel, har pillat lite å pulat, men den säger

Subscript out of range: '[number: 2]'

på

dim ArraySlump(1,2) 

ArraySlump(0,0) = "Bild0"
ArraySlump(0,1) = "Text0"
ArraySlump(0,2) = "URL0"

ArraySlump(1,0) = "Bild1"
ArraySlump(1,1) = "Text1"
ArraySlump(1,2) = "URL1"

ArraySlump(2,0) = "Bild2"
ArraySlump(2,1) = "Text2"
ArraySlump(2,2) = "URL2"

ArraySlump(3,0) = "Bild3"
ArraySlump(3,1) = "Text3"
ArraySlump(3,2) = "URL3"

ArraySlump(4,0) = "Bild4"
ArraySlump(4,1) = "Text4"
ArraySlump(4,2) = "URL4"

fattar att det är något fel på hur jag dimmar, har inte riktigt fått klämm på det kanske man skulle kunna säga, lars g, hade inte du skrivit fel i hur jag tilldelar vektoren värden ?

tack igen

------------------
Real mad hiphop flavaz kickin' it right from tha street without no FEAR, Yo !

LarsGMedlem sedan dec. 200012 464 inlägg

4 sep. 2001 08:04#9

dim ArraySlump(4,2)

I vilket sammanhang har jag sagt vad?

------------------
essentitia preter non sans multiplicandum

erkaMedlem sedan dec. 19996 522 inlägg

4 sep. 2001 08:05#10

Tack LarsG, det var PatrikB som skrev

arrImgInfo(2,1) = "URL 2"

fel av mig...Förlåt, du gör ju faktiskt aldrig fel, borde lärt mig det vid det här laget **småler**

------------------
Real mad hiphop flavaz kickin' it right from tha street without no FEAR, Yo !

erkaMedlem sedan dec. 19996 522 inlägg

4 sep. 2001 08:13#11

Hmmm

<%

dim ArraySlump(4,2) 

ArraySlump(0,0) = "Bild0"
ArraySlump(0,1) = "Text0"
ArraySlump(0,2) = "URL0"

ArraySlump(1,0) = "Bild1"
ArraySlump(1,1) = "Text1"
ArraySlump(1,2) = "URL1"

ArraySlump(2,0) = "Bild2"
ArraySlump(2,1) = "Text2"
ArraySlump(2,2) = "URL2"

ArraySlump(3,0) = "Bild3"
ArraySlump(3,1) = "Text3"
ArraySlump(3,2) = "URL3"

ArraySlump(4,0) = "Bild4"
ArraySlump(4,1) = "Text4"
ArraySlump(4,2) = "URL4"

dim choosen(4)
dim i,pictures,choice

randomize

for i = 0 to 4 
choice = int((ubound(ArraySlump,2)-i)*rnd())
choosen(i) = ArraySlump(choice)
ArraySlump(choice) = ArraySlump(ubound(ArraySlump,2)-i)
next

%>

ger
Subscript out of range som vanligt på raden "choosen(i) = ArraySlump(choice)"

Vad felar i min skalle ?

------------------
Real mad hiphop flavaz kickin' it right from tha street without no FEAR, Yo !

LarsGMedlem sedan dec. 200012 464 inlägg

4 sep. 2001 08:31#12

<%
'plats för 30 bilder
dim ArraySlump(29,2) 

ArraySlump(0,0) = "Bild0"
ArraySlump(0,1) = "Text0"
ArraySlump(0,2) = "URL0"

ArraySlump(1,0) = "Bild1"
ArraySlump(1,1) = "Text1"
ArraySlump(1,2) = "URL1"

ArraySlump(2,0) = "Bild2"
ArraySlump(2,1) = "Text2"
ArraySlump(2,2) = "URL2"

ArraySlump(3,0) = "Bild3"
ArraySlump(3,1) = "Text3"
ArraySlump(3,2) = "URL3"

ArraySlump(4,0) = "Bild4"
ArraySlump(4,1) = "Text4"
ArraySlump(4,2) = "URL4"

ArraySlump(5,0) = "Bild5"
ArraySlump(5,1) = "Text5"
ArraySlump(5,2) = "URL5"

ArraySlump(6,0) = "Bild6"
ArraySlump(6,1) = "Text6"
ArraySlump(6,2) = "URL6"

ArraySlump(7,0) = "Bild7"
ArraySlump(7,1) = "Text7"
ArraySlump(7,2) = "URL7"

ArraySlump(8,0) = "Bild8"
ArraySlump(8,1) = "Text8"
ArraySlump(8,2) = "URL8"

ArraySlump(9,0) = "Bild9"
ArraySlump(9,1) = "Text9"
ArraySlump(9,2) = "URL9"
'och så vidare tom 29 

dim choosen(4,2)
dim i,pictures,choice

randomize

for i = 0 to 4 
choice = int((ubound(ArraySlump,1)-i)*rnd())
choosen(i,0) = ArraySlump(choice,0)
choosen(i,1) = ArraySlump(choice,1)
choosen(i,2) = ArraySlump(choice,2)

ArraySlump(choice,0) = ArraySlump(ubound(ArraySlump,2)-i,0)
ArraySlump(choice,1) = ArraySlump(ubound(ArraySlump,2)-i,1)
ArraySlump(choice,2) = ArraySlump(ubound(ArraySlump,2)-i,2)
next

%>

------------------
essentitia preter non sans multiplicandum

erkaMedlem sedan dec. 19996 522 inlägg

4 sep. 2001 08:56#13

Lars G Tack!

ett par saker till om du har ork eller tid, eller kanske någon annan som har. Vad exakt gör denna kod.

For i = 0 to 4 
'här fattar jag, tills den har gått 5 ggr hehe

choice = int((ubound(ArraySlump,1)-i)*rnd())
choosen(i,0) = ArraySlump(choice,0)
choosen(i,1) = ArraySlump(choice,1)
choosen(i,2) = ArraySlump(choice,2)

ArraySlump(choice,0) = ArraySlump(ubound(ArraySlump,2)-i,0)
ArraySlump(choice,1) = ArraySlump(ubound(ArraySlump,2)-i,1)
ArraySlump(choice,2) = ArraySlump(ubound(ArraySlump,2)-i,2)
Next
'hoppa vidare tills nästa

sen får jag felmeddelandet "Subscript out of range: '[number: -1]'" på raden

ArraySlump(choice,0) = ArraySlump(ubound(ArraySlump,2)-i,0)

jag har gjort exakt som du skrev

------------------
Real mad hiphop flavaz kickin' it right from tha street without no FEAR, Yo !

LarsGMedlem sedan dec. 200012 464 inlägg

4 sep. 2001 09:04#14

ArraySlump(choice,0) = ArraySlump(ubound(ArraySlump,1)-i,0)
ArraySlump(choice,1) = ArraySlump(ubound(ArraySlump,1)-i,1)
ArraySlump(choice,2) = ArraySlump(ubound(ArraySlump,1)-i,2)

------------------
essentitia preter non sans multiplicandum

erkaMedlem sedan dec. 19996 522 inlägg

4 sep. 2001 09:17#15

LarsG och ni andra, nu har jag äntligen börjat förstå arrays lite bättre...Tack 1000 ggr!

------------------
Real mad hiphop flavaz kickin' it right from tha street without no FEAR, Yo !

BrimbaMedlem sedan dec. 19995 874 inlägg

4 sep. 2001 10:36#16

sorry för mitt missöde..

erkaMedlem sedan dec. 19996 522 inlägg

4 sep. 2001 11:09#17

Brimba, det är lugnt :)

, Yo !

[Redigerat av erka den 04 sep 2001]