Hej,
Vil du lave et eksempel til mig? Hvad jeg skal skrive i billede.asp, og hvad der skal stå i includen og hvad jeg skal skrive på default.asp?
For det første lærer man bedst ved selv at prøve. Jeg giver dig her et generelt eksempel, som udvælge tre tilfældige billeder fra et bibliotek. Du skal selvfølgelig være opmærksom på at jeg her forudsætter at billederne ligger i en mappe "images" i roden af server mappen.
For lige at starte fra begyndelsen. Du har en rækker billeder til at ligge på en hjemmeside, jeg går ud fra disse billeder også ligger i en mappe lokalt. Hvis dette er tilfældet kan du gøre følgende:
Du starter med dynamisk at opbygge et array over de billeder du har til at ligge:
Dim objFSO
Dim objFolder
Dim arrFiles()
Dim file
Dim idx
Dim cnt
Set objFSO = Server.CreateObject("scripting.filesystemobject")
Set objFolder = objFSO.GetFolder(Server.Mappath("/images"))
cnt = objFolder.Files.Count
Redim arrFiles(cnt)
idx = 0
for each file in objFolder.Files
arrFiles(idx) = file.name
idx = idx + 1
next
Set objFolder = nothing
Set objFSO = nothing
Dim pnt
Randomize
for idx = 1 to 3
pnt = Int((cnt * Rnd) + 1)
Response.write "<p>Index : " & pnt & "<br>" & _
"<img src=""images/" & arrFiles(pnt) & """>" & _
"</p>"
next
Det der mangler er lidt pæn opsætning af resultatet, og en sikring imod at de tre tilfældigt udvalgte billeder ikke er ens. Det vil jeg overlade til dig, som en hjemme opgave
---
Thomas Due
Software developer
ASP redaktør
tdue@mail.dk