| |
[ 10. May 2000]
- Jany_Masaryk
VkladanΘ dynamickΘ menu pomocou ASP
Posledne som rieÜil problΘm dynamickΘho menu. Na skupine
strßnok sa malo
zobrazova¥ rovnakΘ menu s t²m, ₧e linka ved·ca na prßve
aktußlnu strßnku
mala by¥ pasφvna, t.j. miesto linky tam mal by¥ iba Φist²
text.
RieÜil som
to jednoduch²m vkladanφm menu. RieÜenie sa skladß minimßlne z
dvoch s·borov:
- DynamicMenu.asp .... vkladanΘ menu
- Stranka1.asp .... zobrazovanß strßnka
Tvorba DynamicMenu.asp
V s·bore DynamicMenu m⌠₧eme nßjs¥ tento k≤d :
<table WIDTH="95%" ALIGN="center" BORDER="0" CELLSPACING="0" CELLPADDING="3">
<tr>
<td>
<h2>Menu</h2>
<%=AddMenu(PageNumberForMenu)%>
</br>
<hr>
</td>
</tr>
</table>
<%
Function AddMenu(ActivLinkToPage)
Dim LinksActive, LinksPasive 'array of links
Dim iPointer
Const HowManyLinks = 2 'how many links in menu
LinksActive = Array("","<font size='-1'> <A
href='Stranka1.asp'>Stranka 1</a><//br></font>","<font
size='-1'> <A href='Stranka2.asp'>Stranka
2</a></br></font>")
LinksPasive = Array("","<font size=-1> Stranka
1<br></font>","<font size='-1'> Stranka
2<br></font>")
AddMenu = ""
For iPointer = 0 To HowManyLinks
If ActivLinkToPage = iPointer Then
AddMenu = AddMenu & LinksPasive(iPointer)
Else
'Response.Write(iPointer)
AddMenu = AddMenu & LinksActive(iPointer)
End If
Next
End Function
%>
V prvej Φasti definujeme samotn² v²zor menu a volßme funkciu
AddMenu. V
druhej Φasti nßjdeme samotn· funkciu AddMenu. V nej s· podstatne tieto
premmenΘ :
- HowManyLinks poΦet pou₧it²ch liniek
- LinkActive pole s aktivnymi linkami, t.j. normßlne linky
- LinkPasive pole s rovnak²mi premenn²mi ako LinkActive len
bez odkazov,
t.j. bez tagov <a href></a>
Ak s· sprßvne zaplnenΘ premennΘ, zbehne nßm cyklus, ktor²
vygeneruje menu.
VÜimnime si, ₧e to funkcie vstupuje premennß PageNumberForMenu.
Tß udßva Φφslo linky, ktorß sa mß zobrazi¥ pasφvne, teda iba
textovo. Ak sa
pozrieme na pole LinkActive vidφme tri prvky. Prv² prvok je
prßzdny. Druh²
tvorφ linka na "Stranku1.asp" a tretφ na "Stranka2.asp". Teda
pre linku na
strßnku "Stranka1.asp" platφ Φφslo 1, pre linku na strßnku
"Stranka2.asp"
platφ Φφslo 2, ..... liniek m⌠₧eme da¥ ko╛ko chceme.
Nezabudnime iba zmeni¥
premenn· HowManyLinks a p⌠jde to. V²hoda rieÜenia je jasnß :
administrßcia
liniek na jednom mieste.
SamotnΘ vlo₧enie menu.
<%@ Language=VBScript %>
<%Response.Expires = 0%>
<%
On error Resume Next
Err.Clear
Dim PageNumberForMenu
PageNumberForMenu = 1
%>
<html>
<head>
<meta content="text/html; charset=windows-1250"
http-equiv="Content-Type">
<title>Menu Example</title>
</head>
<body>
<!--</body>
</html>
Tu je uveden² prφklad strßnky "Stranka1.asp". Ako vidφme vlo₧enie menu
prebieha ve╛mi hladko. Pomocou premennej PageNumberForMenu
zadefinujeme
poradie linky a potom u₧ iba pomocou SSI direktφvy vlo₧φme s·bor s
dynamick²m menu.
|
|
| | |
|
| "VkladanΘ dynamickΘ menu pomocou ASP" | Login / vytvor konto | 0 Komentßrov | |
|
| Za obsah komentßrov je zodpovedn² u₧φvate╛, nie prevßdzkovate╛ t²chto strßnok. |
|
Homepage
