plaatjes ad random presenteren

[foppo]

Ik wil op de voorpagina van mijn site een kerstplaatje zetten maar dan op een wijze dat elke keer dat de pagina wordt opgevraagd er elke keer een ander plaatje verschijnt.

Een stuk of 5 verschillende.

Nu gebruik ik deze regel:

[color:"blue"] <img src="http://www.pimfoppen.nl/plaatje/sint.gif"> [/color]

Mijn site staat op een ander adres dan waar het plaatje staat maar dat maakt verder niet uit.

Hoe moet ik deze regel aanpassen zodat ik iedere keer een ander plaatje te zien krijg?

Uiteraard moet ik die plaatjes dan wel online zetten op dat adres.

Wie weet hoe zo'n scriptje eruit moet zien?

 

[DroomDoos]

kun je asp gebruiken op je server?

 

DroomDoos

[foppo]

Ik beheer de server zelf dus in principe kan ik alles instaleren. <img src="/ubbthreads/images/graemlins/smirk.gif" alt="" />

[DroomDoos]

dat is makkelijk, dan kun je de volgende asp code gebruiken:

 

============================

<%

Const NUMBER_OF_IMAGES = 4

 

Randomize

 

Dim intImageNumber

 

intImageNumber = Int((NUMBER_OF_IMAGES * Rnd) + 1)

 

%>

<h3>Nummer #1:</h3>

<img

src = "./rndimgs/ad<%= intImageNumber %>.jpg"

width = "150"

height = "75"

alt = "Random Image"

/>

<br />

 

<%

Dim intImageIdToShow

Dim arrImages(3, 3)

arrImages(0, 0) = "ad1.jpg"

arrImages(0, 1) = 150

arrImages(0, 2) = 75

arrImages(0, 3) = "Random Plaatje #1"

 

arrImages(1, 0) = "ad2.jpg"

arrImages(1, 1) = 150

arrImages(1, 2) = 75

arrImages(1, 3) = "Random Plaatje #2"

 

arrImages(2, 0) = "ad3.jpg"

arrImages(2, 1) = 150

arrImages(2, 2) = 75

arrImages(2, 3) = "Random Plaatje #3"

 

arrImages(3, 0) = "ad4.jpg "

arrImages(3, 1) = 150

arrImages(3, 2) = 75

arrImages(3, 3) = "Random Plaatje #4"

 

intImageIdToShow = Int((UBound(arrImages, 1) - _

LBound(arrImages, 1) + 1) * Rnd + LBound(arrImages, 1))

%>

<h3>Nummer #2:</h3>

<img

src = "./rndimgs/<%= arrImages(intImageIdToShow, 0) %>"

width = "<%= arrImages(intImageIdToShow, 1) %>"

height = "<%= arrImages(intImageIdToShow, 2) %>"

alt = "<%= arrImages(intImageIdToShow, 3) %>"

/>

<br />

 

<%

Const IMGS_DIR = "./rndimgs/"

Dim objFSO, objFolderObject, objFileCollection, objFile

Dim intFileNumberToUse, intFileLooper

Dim objImageFileToUse

Dim strImageSrcText

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

Set objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR))

Set objFSO = Nothing

Set objFileCollection = objFolderObject.Files

Set objFolderObject = Nothing

 

intFileNumberToUse = Int(objFileCollection.Count * Rnd) + 1

intFileLooper = 1

For Each objFile in objFileCollection

If intFileLooper = intFileNumberToUse Then

Set objImageFileToUse = objFile

Exit For

End If

intFileLooper = intFileLooper + 1

Next

 

Set objFileCollection = Nothing

strImageSrcText = IMGS_DIR & objImageFileToUse.Name

Set objImageFileToUse = Nothing

 

%>

<h3>Nummer #3:</h3>

<img

src = "<%= strImageSrcText %>"

width = "150"

height = "75"

alt = "Random Image"

/>

<br / >

============================

 

 

 

Ook te zien op http://www.robje.net/random.asp

 

 

Groetjes,

DroomDoos

[DroomDoos]

ps let op dat je een dir aanmaakt zoals die in je source staat zoals hier rndimgs zet daar je plaatjes in, noem ze dus ad1.jpg, ad2.jpg, ad3.jpg

 

Wil je er meer dan 4 geven verander dan Const NUMBER_OF_IMAGES = 4 even.

Ook de img verwijzingen aanpassen zoals

arrImages(4, 0) = "ad5.jpg "

arrImages(4, 1) = 150

arrImages(4, 2) = 75

arrImages(4, 3) = "Random Plaatje #5"

 

Etc... etc...

 

Groetjes,

Droomdoos

[foppo]

Bedankt, met deze en prive reacties kan ik voorlopig verder.

Kan zondag met slecht weer me in ieder geval niet vervelen.

Nogmaals bedankt.

[foppo]

Ik heb het voorelkaar middels een wel heel eenvoudig java scriptje wat ik heb gevonden.

Als je het wilt zien klik dan hier (plaatje links boven moet dan bij iedere reload wisselen.

 

[DroomDoos]

Die is nog makkelijker, maar met dat ASP scriptje kun je nog andere leuke dingen doen, zoals random pagina's, random nummers, random vanalles. Altijd makkelijk... Ik zou hem zeker wel bewaren <img src="/ubbthreads/images/graemlins/smile.gif" alt="" />

 

Succes met je site (is trouwens wel een leuke site)

 

DroomDoos

[SatDonkey]

Kun je dat javaschriptje in deze topic plakken??? Alvast bedankt!!

[DroomDoos]

<SCRIPT LANGUAGE="Javascript"><!--

 

// ***********************************************

// AUTHOR: www.CGISCRIPT.NET, LLC

// URL: http://www.cgiscript.net

// Use the script, just leave this message intact.

// Download your FREE CGI/Perl Scripts today!

// ( http://www.cgiscript.net/scripts.htm )

// ***********************************************

 

function image() {

};

 

image = new image();

number = 0;

 

// imageArray

image[number++] = "<img src='images/1.gif' border='0'>"

image[number++] = "<img src='images/2.gif' border='0'>"

image[number++] = "<img src='images/3.gif' border='0'>"

image[number++] = "<img src='images/4.gif' border='0'>"

image[number++] = "<img src='images/5.gif' border='0'>"

// keep adding items here...

 

increment = Math.floor(Math.random() * number);

 

document.write(image[increment]);

 

//--></SCRIPT>

 

 

DroomDoos

[foppo]

Ja dat is em inderdaad maar droomdoos was me voor.

Ik wilde in eerste instantie die link daar naar toe wel plaatsen maar ik dacht dat het een commerciele site was vandaar......

[SatDonkey]

Hee geweldig, ik ga er ook eens mee rommelen!!