Random baggrund

Du skal bruge File System Object (scripting.FileSystemObject) til at finde dine billeder og antal og derefter lave en random til at vælge et tilfældigt

Og her er koden til det.

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set BG = Server.CreateObject("Scripting.dictionary")
Set Folder = fso.GetFolder("C:\") '<---- Kig i mappe
I = 0
For Each F In Folder.Files
    If lcase(Right(F.Name,3)) = "jpg" Or lcase(Right(F.Name,3)) = "gif" Then
        I = I + 1
        BG(CStr(I)) = F.name
    End If
Next
Randomize
r = CInt(Rnd * bg.Count) + 1
Randomfile =  BG(CStr(r))

Set fso = Nothing
Set BG = Nothing

jeg kan ikke få det til at virke så vil det være for meget at bede om at få sendt et eksempel?

Min mail: bd@shootingsport.dk

Jeg har dette:


<%
mappenavn = "mappepaadit/"    '<---- Angiv hvilekn folder billeder er i
Set fs = CreateObject("Scripting.FileSystemObject")
Set files = fs.GetFolder(server.mappath(mappenavn)).Files

For Each f in files
  if InStr(1,"gif,jpg,jpeg,bmp", LCase(fs.GetExtensionName(f.name))) > 0 then
    filList = filList & "," & f.name
  end if
next
filList = mid(filList,2)
billeder = Split(filList,",")
randomize
billedsrc = mappenavn & billeder(Int(rnd * (Ubound(billeder)+1)))

Response.Write "<img src=""" & billedsrc & """>"

Set fs = Nothing
Set files = Nothing
%>

Hvis billederne er i samme folder som ASP file: så ret:
mappenavn = "mappepaadit/"

Til:
mappenavn = "./"

Kom du vidre med dette spørgsmål?

hallo?