10 olika bilder - slumpas

3 svar · 166 visningar · startad av Lindström 29 maj 2003

LindströmMedlem sedan jan. 2003821 inlägg

Frågan29 maj 2003 15:47#1

Om jag vill ha 10 stycken olika bilder som ska slumpas varje gång man kommer in på en websida. Hur går man enklast till väga ? Dvs, har ett bildobjekt som ska slumpas med 10 stycken bilder för att komma upp på websidan.

Sen ska man kunna klicka på bildobjektet för att kunna ladda ner en zipfil. Så då blir det 10 stycken olika bildobjekt, med 10 olika zipfiler.

Format: ASP

Hoppas att ni förstår vad jag menar. :OO

icaaqMedlem sedan okt. 20005 273 inlägg

29 maj 2003 16:36#2

Ligger bilderna i en Mapp, så att du ska ta fram namnen på bilderna mha FSO eller har du bilderna i en databas?

Du borde ju kunna söka på Slump här på wF så får du säkert flera träffar

Mvh icaaq

LindströmMedlem sedan jan. 2003821 inlägg

29 maj 2003 16:44#3

Bildobjekten ligger i en enskild mapp.

SebbeMedlem sedan jan. 20032 285 inlägg

29 maj 2003 16:59#4

Jag känner mig alltför vänlig. ;)

<%
Dim objFSO, objFold, intCount, arrImages(), intSlump, strSlump, strFilename
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFold = objFSO.GetFolder(Server.MapPath("mappen"))

intCount = 0
For Each File In objFold.Files
  arrImages(intCount) = File.Name
  intCount = intCount + 1
Next

intCount = 0
Do Until intCount = 10
  Randomize
  intSlump = Int(Rnd * UBound(arrImages)) + 1
  If InStr(strSlump, intSlump & " ") = 0 Then
    strFilename = Left(arrImages(intSlump), Len(arrImages(intSlump)) - InStrRev(arrImages(intSlump), "."))
    Response.Write("<a href=""" & strFilename & ".zip""><img src=""" & arrImages(intSlump) & """></a><br>" & vbCrLf)
    If Len(strSlump) = 0 Then
      strSlump = intSlump & " "
    Else
      strSlump = strSlump & intCount & " "
    End If
    intCount = intCount + 1
  End If
Loop

Set objFold = Nothing : Set objFSO = Nothing
%>

Jag hoppas att det funkar, men eftersom den är otestad finns det säkert några fel.