Jednotlivé texty, v našem případě přísloví, budeme ukládat do pole. Co je to
pole? Pole je sada proměnných hodnot, které mají společné jméno. Na rozdíl od
deklarace proměnné obsahující jen jednu hodnotu se za jeho jméno při deklaraci
píší závorky. Začneme deklarací proměnných, které budeme potřebovat:
|
<%
Option Explicit
Dim arrPrislovi(3), intPocet
...
|
Předpona pro pole je "arr". Do závorek po jméně pole se píše počet
položek, které v poli budou. Počítá se od nuly, v našem případě máme čtyři přísloví.
Nyní do pole přidáme jednotlivé položky - přísloví:
arrPrislovi(0)= "Dvakrát měř, jednou řež."
arrPrislovi(1)= "Sůl nad zlato."
arrPrislovi(2)= "Kdo jinému jámu kopá, sám do ní padá."
arrPrislovi(3)= "Ranní ptáče dál doskáče." |
Hodnoty se přidávají jednoduše. Napíšete jméno pole, následně v závorkách index
položky v poli. Index představuje pozici položky v poli. Nezapomeňte, že první
položka pole má index 0, druhý 1, atd.
Pomocí funkce Ubound zjistíme, kolik je v poli položek. Tuto hodnotu
bude udržovat proměnná intPocet:
|
intPocet=Ubound(arrPrislovi)
|
Nyní stačí náhodně vybrat nějaké přísloví z pole a vypsat ho do kódu html:
Randomize
response.write arrPrislovi(intPocet * Rnd) |
Při náhodném vybírání jsme využili funkci Rnd a klíčové slovo Randomize.
V tomto případě nám vrátí jakékoliv číslo menší než 1, ale větší či rovno 0.
Stránka, která by vypisovala jenom přísloví, by tedy mohla vypadat například
takto:
<%
Option Explicit
Dim arrPrislovi(3), intPocet
arrPrislovi(0)= "Dvakrát měř, jednou řež."
arrPrislovi(1)= "Sůl nad zlato."
arrPrislovi(2)= "Kdo jinému jámu kopá, sám do ní padá."
arrPrislovi(3)= "Ranní ptáče dál doskáče."
intPocet=Ubound(arrPrislovi)
%>
<html>
<head>
<title>Přísloví</title>
</head>
<body>
<%
Randomize
response.write arrPrislovi(intPocet * Rnd)
%>
</body>
</html> |
V příštím díle popíši další možnosti užití ASP.
Liška Adam
|
