Katalog ASP odkaz∙: Hledßte informace o ASP? Zkuste nßÜ nov² katalog odkaz∙ na ASP weby. Vφce zde...

VyÜlo: 22.12.2000 Rubrika: ASP - ZdrojovΘ k≤dy

RndImg: nßhodnΘ vlo₧enφ obrßzku do strßnky
Zkuste do sv²ch strßnek vlo₧it trochu nßhody. Vklßdejte nßhodnΘ obrßzky z urΦitΘho adresß°e! V Φlßnku naleznete zdrojovΘ k≤dy procedury RndImg, kterß zajistφ vybrßnφ nßhodnΘho obrßzku ze zadanΘho adresß°e. Vφce v Φlßnku...

P°i ka₧dodennφ tvorb∞ webovsk²ch strßnek jsem byl nucen vytvo°it proceduru, kterß zajistφ vygenerovßnφ nßhodn²ch obrßzk∙ z urΦitΘho adresß°e a zobrazenφ na monitoru nßvÜt∞vnφka.

Minuta dala minutu a v²sledek se dostavil na sv∞tlo monitoru.

Co procedura umφ?

Pomocφ RndImg lze vybrat nßhodn² obrßzek gif nebo jpg ze zadanΘho adresß°e a pomocφ znaΦky <IMG> jej zobrazit.

Syntaxe

RndImg(strAdresar)

strAdresar - string ve kterΘm je cesta k adresß°i s obrßzky.

Zdroj RndImg

<%
Sub RndImg(adresar)

'Vytvorime FileSystem.
Set objFILE = CreateObject("Scripting.FileSystemObject")
Set F = objFILE.GetFolder(Server.MapPath(Adresar))
Set FList = F.Files

'Vybereme vsechny soubory s koncovkou
'gif a jpg a ulozime si je do Vystup.

For Each Item In F.Files

If Right(Lcase(Item.Name),3) = "gif" Or Right(Lcase(Item.Name),3) = "jpg" then
Vystup = Vystup & Item.Name & VbCrlF
End If
Next

'Uklidime po sobe.
Set FList = Nothing
Set F = Nothing
Set objFILE = Nothing

Vystup = Split(Vystup,VbCrlF)

'Vygenerujeme nahodne cislo do promenne intCislo.
Randomize
intCislo = Int(Rnd*UBound(Vystup))

'Zapiseme vysledek do stranky.
Response.write("<Img Src=" & Adresar & "/" & Vystup(intCislo)&">")

'To je vse :)
End Sub
%>

Proceduru lze zavolat nßsledovn∞:

<%
RndImg("img")
%>
S tφm, ₧e adresß° s obrßzky je IMG.

VÜe si m∙₧ete otestovat na tΘto adrese nebo stßhnout zdrojovΘ k≤dy.

Za pßr dnφ se podφvßme na to, jak obrßzek "oblepit" odkazem s tφm, ₧e tak vznikne jednoduch² reklamnφ systΘm pro bannery libovolnΘ velikosti.

Zden∞k Cendra
ceskywap@ceskywap.cz

Souvisejφcφ Φlßnky

Vyhledßvßnφ
Text: