1) Først opretter vi klassen
2) Dernæst erklærer vi tre variabler i "public" mode, dvs. variablerne kan ændres udefra
3) Så opretter vi tre "private" funktioner, som generer HTML output
4) Sidst laver vi en "public" funktion, der samler alle private funktioner i en teksstreng
<%
'Vi opretter klassen
Class GenererSide
'Vi sætter nogle variabler der kan sættes uden for klassen
Public blnVisBanner
Public blnVisMenu
Public blnVisNyheder
'Vi opretter en "privat" funktion
Private Function VisBanner()
If blnVisBanner Then
VisBanner = "<div id=banner>" &_
"<img src='http://www.eksperten.dk/ (...) &_
"[/div]"
Else
Exit Function
End If
End Function
Private Function VisMenu()
If blnVisMenu Then
VisMenu = "<div id=menu>[hjem - nyheder - læs her][/div]"
Else
Exit Function
End If
End Function
Private Function VisNyheder()
If blnVisNyheder Then
VisNyheder = "<div id=nyheder>Sørøverskib fundet nær....<br>Alle får tilbagebetalt hele skatte....<br>[/div]"
Else
Exit Function
End If
End Function
Public Function Side()
Side = VisBanner() & VisMenu() & VisNyheder()
End Function
End Class
%>
Nu skal vi oprette lidt html m.m.
<HTML>
<style type="text/css">
#banner {
position:absolute;
left:0px;
top:0px;
width:600px;
height: 100px;
background-color:yellow;
}
#menu {
position:absolute;
left:100px;
top:110px;
width:500px;
background-color:silver;
}
#nyheder {
position:absolute;
left:450px;
top:130px;
width:150px;
background-color:green;
}
</style>
Nu skal vi så lave en instans af klassen:
A) Vi erklærer en variabel
B) Vi tilskriver variablen med et nyt objekt af vores klasse
C) Vi sætter de "public" variabler i objektet
D) Vi udskriver siden
E) Vi slutter med at lukke vores objekt
<%
'Vi instansierer et objekt af klassen "GenererSide"
Dim objSide
Set objSide = New GenererSide
'Vi laver opsætningen for denne side
objSide.blnVisBanner = True
objSide.blnVisMenu = True
objSide.blnVisNyheder = True
'Nu udskriver vi siden
Response.Write objSide.Side
'Vi lukker og slukker
Set objSide = Nothing
%>
</HTML>
