L'instruction Set permet d'affecter une référence d'objet à une variable ou à une propriété.
Set variable_objet = Expression | New Nom_Classe | Nothing
Expression correspond à un nom d'objet, à une variable comportant un type d'objet identique, ou bien une fonction ou une méthode retournant un même type d'objet.
New Nom_Class initialise une nouvelle classe.
Nothing libère l'espace mémoire de la variable en détruisant notamment, une classe précédemment initialisée.
L'instruction Set peut également associer une référence de procédure à un événement.
Set object.Nom_Evénement = GetRef(Nom_Fonction)
Nom.Evénement représente le nom de l'événement à associée.
Nom_Fonction peut être une fonction ou une procédure déclarée par respectivement Function ou Sub.
Exemple : [voir]<html>
<body>
<%
' Page hôte affichant les bannières aléatoires.
Dim objet
' Création de l'objet
Set objet = Server.CreateObject("MSWC.AdRotator")
Response.Write objet.GetAdvertisement("liste.txt")
' Destruction de l'objet
Set objet = Nothing
%>
</body>
</html>
' Fichier de redirection des liens : lien.asp
<%
Response.Redirect Request.QueryString("url")
%>
' Fichier présentant le liste des bannières et liens : liste.txt
REDIRECT lien.asp
WIDTH 468
HEIGHT 60
BORDER 0
*
http://www.laltruiste.com/coursasp/images/alapage.gif
http://www.alapage.com/
Visitez la librairie en ligne!
4
http://www.laltruiste.com/coursasp/images/blackorange.gif
http://www.blackorange.com/
Découvrez la logithèque en ligne !
3
http://www.laltruiste.com/coursasp/images/oreilly.gif
http://www.editions-oreilly.com/
Découvrez le célèbre éditeur de livres !
3 |