Назад

Процедура для показа картинок случайным образом из заданного каталога
http://www.relib.com

Приводимая ниже процедура DisplayRandomImage показывает как при помощи FileSystemObject и функции Randomize выводить на ASP-странице картинки случайным образом из заданного каталога. Данная процедура может быть просто включена в ваш скрипт вызовом формата DisplayRandomImage("/files/images/"), где в качестве параметра должен быть указан относительный путь к каталогу с изображениями.

Sub DisplayRandomImage( szImageFolder )

Dim szImagesFolderPath, szImageTag
Dim nRandom, nCounter, nFilesCount
Dim oFS, oFolder, oFileCollection, oFile

If Right(szImageFolder, 1) <> "/" Then szImageFolder = szImageFolder & "/"

' translate virtual folder into physical path
szImagesFolderPath = Server.MapPath (szImageFolder)

Set oFS = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFS.GetFolder(szImagesFolderPath)
Set oFileCollection = oFolder.Files
nFilesCount = oFileCollection.Count

if nFilesCount = 0 then
Response.Write "No image available" ' в каталоге нет картинок
Exit Sub
end if

Randomize(Cbyte(Left(Right(Time(),5),2)))
nRandom = int(nFilesCount * rnd) + 1

nCounter = 0
For Each oFile in oFileCollection
nCounter = nCounter + 1
if nCounter = nRandom then
szImageTag = "<img src=""" & szImageFolder & oFile.Name & """>"
Response.Write szImageTag
Exit For
end if
Next

Set oFileCollection = Nothing
Set oFolder = Nothing
Set oFS = Nothing

End Sub

Назад