Automatiskt hämta slumpmässiga bilder ur mapp

Detta är ett mycket bra skript som automatiskt hämtar bilder ur förvald mapp. Där det står mapp skriver du dit vilken mapp du har dina bilder i så kommer scriptet hämta bilderna ur mappen. Där det är fetstil i koden anger du hur många bilder som ska visas.

<% Dim lngCount, lngPos, lngItems, strBilder, arrBilder

Set objFS = Server.CreateObject("Scripting.FileSystemObject")

For each objFile in objFS.GetFolder(Server.MapPath("mapp/"& Request.QueryString("mapp"))).Files

Select Case lCase(Mid(objFile.Name,InStrRev(objFile.Name,".")+1))

Case "gif","jpg","jpeg","png"

strBilder = strBilder & objFile.Name & ","

End Select

Next

arrBilder = Split(strBilder,",")



lngCount = 4 ' Anger hur många bilder som ska slumpas...



lngPos = 0 

lngItems = UBound(arrBilder)



Randomize



Do While lngCount > 0

If Rnd() < lngCount / lngItems Then

Response.Write "<img src=""mapp/" &  Request.QueryString("mapp") & "/" arrBilder(lngPos) & """ alt="""" class=""galleri""  title="""" width=""118"" height=""78"" />"

lngCount = lngCount - 1

End If

lngPos = lngPos + 1

lngItems = lngItems - 1

Loop 



If UBound(arrBilder) = 0 Then Response.Write "Det fanns inga bilder..."

%>

Detta script är gjort av Mctommy.

Detta tips skapades 2007-09-02 19:26:08 av Kallgard. Det har lästs 223 gånger. ||

Kommentarer

Ingen har kommenterat denna artikel än.