DevTrain

Autor: Andreas Rauch

Content Linking oder Linking leicht gemacht

Wie kann man ohne größeren Aufwand dem Martyrium der Link Aktualisierung aus dem Wege gehen. Da gibt es die schöne Methode der content Linking Komponente. In einer kleinen Textdatei wird alles notwendige gespeichert. Idealerweise  eignet sich dies für eine Nachrichtenliste wie  bspw. in Foren.

Zunächst einmal konstruieren wir uns eine komfortable Navigation in unseren Sites. Für unser Besipiel reichen zunächast mal 2 Dateien. Eine ASP Seite für das Demo und eine Textdatei mit den Links.


Also zuerst einmal die Links in der Textdatei:

links.txt
seiteeins.asp Page 1
seite2.asp Page 2
seite3.asp Page 3

 


Der Aufruf geschieht dann folgendermassen:

demo.asp

<html>
<body>
<h1>
Willkommen bei Devtrain
</h1>
<%
Set nl=Server.CreateObject("MSWC.NextLink")
If (nl.GetListIndex("text/links.txt")>1) Then
%>
<a href="<%Response.Write(nl.GetPreviousURL("text/links.txt"))%>">Vorherige Seite</a>
<%End If%>
<a href="<%Response.Write(nl.GetNextURL("text/links.txt"))%>">Nächste Seite</a>
<p>Dieses Beispiel zeigt den Umgang mit der Content Linking Komponente</p>
</body>
</html>

 

Das nächste Anwendungsgebiet wäre so eine Art Seitenindex zu erstellen.

Zunächst mal wieder unser Textfile:

links.txt
seite1.asp Seite 1 CLC
seite2.asp Seite 2 CLC
seite3.asp Seite 3 CLC

ACHTUNG:

Jede Zeile enthält eine die Beschreig´bung und den Seitennamen für jede Site.
Die Beschreibung muß durch Tabulatoren getrennt sein.

Unsere Demo diesmal:

demo2.asp

<html>
<body>
<p>
Nun der Zusammenbau der Sitelinks
</p>
<%
dim count
dim i
set nl=server.createobject("MSWC.Nextlink")
c = nl.GetListCount("textlinks.txt")
i = 1
%>
<ul>
<%do while (i <= count) %>
<li><ahref="<%=nl.GetNthURL("textlinks.txt", i)%>">
<%=nl.GetNthDescription("textlinks.txt", i)%></a>
<%
i = (i + 1)
loop
%>
</ul>
<p>
Das sit die Seite mit den Links aus dem Textfile und Links Beschreibungen.
</p>
</body>
</html>


Und hier noch eine Übersicht der Methoden:

GetListCount(text_file) Anzahl der Links in dem Textfile
GetListIndex(text_file) Gibt den Index der aktuellen Seite zurück
GetNextDescription(text_file) Gibt die Beschreibung der nächsten Seite an       GetNextURL(text_file) Gibt die URL der nächsten Seite aus
GetNthDescription(text_file, number) gibt die Beschreibung der n-ten Seite aus
GetNthURL(text_file, number) gibt die URL der n-ten Seite aus 
GetPreviousDescription(text_file) gibt die Beschreibung der vorherigen Seite aus
GetPreviousURL(text_file) Gibt die URL der vorherigen Seiten an

 


Erfasst am: 04.02.2001 - Artikel-URL: http://www.devtrain.de/news.aspx?artnr=284
© Copyright 2003 ppedv AG - http://www.ppedv.de