Le fichier Texte

Exemple de fichier texte :

<Nomdufichier><Tab><Titre>

1.asp    page liée numéro1
2.asp    page liée numéro2
3.asp    page liée numéro3

note : le lien et son titre doivent être séparés d'un caractère de tabulation. Les références de type http://, et/ou \\ ne sont pas acceptées. Seuls les liens relatifs ou virtuel le sont.

Méthodes de l'objet

• Getlistcount (maliste) : Nombre d'éléments
• GetListIndex(maliste) : Index de la page en cours
• GetNextUrl(maliste) : index de la page suivante
• GetNextDescription(maliste) : titre de la page suivante
• GetPreviousUrl(maliste) : index de la page précédente
• GetPreviousDescription(maliste) : titre de la page pérécedente
• GetNthUrl(Maliste,n) : Url de la nième page
• GetNthDescription(Maliste,n) : Titre de la nième page

Afficher les titres des pages liées

<%
set Pageliees=Server.createobject("MSWC.NextLink")
' On récupère le nombre de menu
Nbpages=Pageliees.GetListCount("pageliees.txt")
for i=1 to Nbpages
'référence vers la page liées
%>
- <a href=<%=Pageliees.GetNthUrl("pageliees.txt",i)%>>
'On affiche le titre de la page liée
<%=Pageliees.GetNthDescription("pageliees.txt",i)%>
</a>
<% next %>

Afficher un bouton suivant et précédent

<% indexPage=pageliees.GetlistIndex("Pageliees.txt")%>
<%'Affiche le bouton suivant
if indexPage>1 then
%>
<input type="button" value="&lt;précédent"
Onclick="location.href='<%=pageliees.GetpreviousURL("pageliees.txt")%>'"><br>
<%=pageliees.GetpreviousDescription("pageliees.txt")%>
<% end if%>

<% 'Affiche le bouton précédent
if indexPage<nbpages then%>
<input type="button" value="suivant&gt;"
Onclick="location.href='<%=pageliees.GetnextURL("pageliees.txt")%>'"><br>
<%=pageliees.GetnextDescription("pageliees.txt")%>
<% end if%>
<% set pageliees=nothing%>