|
Pour générer
l'affichage d'un texte aléatoire dans une page ASP, l'opération se déroule
en deux étapes simples.
1. On crée un
fichier texte (que l'on va dans notre exemple appeler citations.txt)
et que l'on va placer, par exemple, dans un sous-répertoire intitulé
citations.
Ce fichier comportera
une citation par ligne. Ce qui revient à dire que chaque renvoi à la
ligne sera interprété comme la fin d'une citation.
Inscrivons donc dans
ce fichier 5 citations à titre d'essai:
Tant va la cruche à
l'eau qu'à la fin elle se casse (La Fontaine)
Tout flatteur vit aux dépens de celui qui l'écoute (La Fontaine)
Si les femmes étaient bonnes, Dieu en aurait une (Coluche)
Les cons, ça ose tout. C'est d'ailleurs à cela qu'on les reconnaît
(Audiard)
Rien n'est plus semblable à l'identique que ce qui est pareil au même
(Pierre Dac)
Ensuite, dans la page
ASP qui va être chargée d'afficher la citation aléatoire, insérons
le code suivant.
En en-tête de la page
avant le code HTML de préférence:
<%
Set objFile = Server.CreateObject("Scripting.FileSystemObject")
Set objStream = objFile.OpenTextFile(Server.MapPath("/citations")
& "\citations.txt")
Randomize Timer
intCit = Int(Rnd * 5)
For i = 0 to intCit
objStream.SkipLine
Next
strCit = objStream.ReadLine
objStream.Close
Set objStream = Nothing
Set objFile = Nothing
%>
puis à l'endroit où
la citation doit s'afficher:
<%=strCit%>
A noter que le
chiffre 5 dans la ligne intCit =
Int(Rnd * 5) correspond au
nombre total de citations contenues dans le fichier texte. Précisons
également que plus votre fichier comportera de citations, et plus
l'effet sera spectaculaire. Dans la pratique, pour une réelle
efficacité de la chose, un minimum de 50 citations est souhaitable.
|
