rastgele resim göstermek

bir dosyadaki resimleri restgele veya sırayla göstermek önceden kaydetmeden

<% limit=7
redim link(limit) redim image (limit)
link(1)="RESMİN LİNKİ"image(1)="ResimYolu.gif"l

randomizerandom=int(rnd*limit)+1%>

böyle diğil

bir dosyadaki resimleri rasgele göstericek

<%
Function RandomImage(strPath)
Randomize()

If Right(strPath, 1) <> Chr(47) Then strPath = strPath & Chr(47)
strPhysical = Server.MapPath("/Resimler")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPhysical)
Set objFiles = objFolder.Files

For Each objFile in objFiles
strFile = LCase(objFile.Name)
strFiles = strFiles & strFile & vbTab
Next

strImages = Split(strFiles, vbTab)

If UBound(strImages) > 1 Then
RandomImage = strPath & strImages(Int(Rnd(1)*UBound(strImages)))
End If
End Function
%>

Kulanımı

<IMG SRC="<%=RandomImage("/resim")%>">

Alındıtır.

Kaynak : http://www.kodmerkezi.com/?part=down...&id=113&cat=55

edit eksik kopyalamışşım

teşekkürler

İşinizi gördü mü acaba?

Yorum yaparsanız ihtiyacı olan diğer kullanıcılarada yol göstermiş olursunuz..

evet süper oldu yüzlerce resmi tek tek eklemekten kurtuldum

arkadaşım veritabanından çekiyorsan
select * from resimler order by rand() limit,20 veya istedeiğin limit koy yeter

Hayir konuda belirtilmis zaten.. FSO ile resimleri listeletmek istemis..

özür dilerim konuyu tam olarak okumamışım