forum.coppermine-gallery.net

Support => Older/other versions => cpg1.2 Standalone Support => Topic started by: John on October 20, 2003, 02:01:32 am

Title: A How To: Random album image with ASP
Post by: John on October 20, 2003, 02:01:32 am
snip..... old code. see below
Title: A How To: Random album image with ASP
Post by: John on October 20, 2003, 02:38:19 am
do we even need index.html file in the pic paths, its a blank file yes?
Title: A How To: Random album image with ASP
Post by: John on October 20, 2003, 02:51:53 am
Revised. Here is the ASP code that will display all images in a path, if anyone wants it i can modify to resize the pic on the fly instead of set it to 100x100 but it suits my needs .

in head:

Code: [Select]
<%

' Initialize the random number generator. love asp randomize :) .
Randomize

Dim intImageNumber ' A var to store our randomn number

' Set our random images pickup directory.
Const IMGS_DIR = "./coppermine/albums/userpics/YOUR_GALLERY/"

' Variables for our FileSystemObject objects
Dim objFSO, objFolderObject, objFileCollection, objFile

' A pair of integers for our random image selection
Dim intFileNumberToUse, intFileLooper

' A "handle" to the file we choose to use
Dim objImageFileToUse

' A variable to build our image tag
Dim strImageSrcText

' Lets see what's in the directory:
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR))
Set objFSO = Nothing

Set objFileCollection = objFolderObject.Files
Set objFolderObject = Nothing

' Get a count of files and use it to generate a random
' number from 1 to the count.
intFileNumberToUse = Int(objFileCollection.Count * Rnd) + 1

' Set up loop control so we exit when we get to the random
' file number we just picked.
intFileLooper = 1
For Each objFile in objFileCollection
        If intFileLooper = intFileNumberToUse Then
                ' Get a "handle" on the appropriate file
                Set objImageFileToUse = objFile
                Exit For
        End If
        intFileLooper = intFileLooper + 1
Next

Set objFileCollection = Nothing

' Build our img src tag text
strImageSrcText = IMGS_DIR & objImageFileToUse.Name

Set objImageFileToUse = Nothing
%>


in body wherever:

Code: [Select]
<img src= "<%= strImageSrcText %>" width ="100" height="100" alt= "Random Gallery Image"/>

John