 Källkoden för /anders.enges/asp/exinc.asp
 Källkoden för /anders.enges/asp/exinc.asp 
<!--  #include file="../inc/navstuff.asp" -->
Om man använder en kombination av <b>include</b> och <b>Content Linking</b> kan man förenkla livet rätt mycket.<p>
För att se hur detta kan fungera så kan du prova följande<p>
Skapa en fil i din projektkatalog med namnet <b>links.txt</b>.<p>
Den skall innehålla följande<br>
<div class=code>
sid1.asp    Min första sida<br>
sid2.asp    Min andra sida<br>
sid3.asp    Min tredje sida<br>
sid4.asp    Min fjärde sida<br>
sid5.asp    Min femte sida<br>
</div><p>
Observera att det skall finnas <b>exakt EN tabulator</b> mellan första och andra kolumnen. 
Om du är lat och kopierar ovanstående text till din fil så måste du modifiera den 
genom att ta bort mellanslagen och sätta dit tabulatorer (det finns inga tab i HTML)<p>
Skapa sedan en ASP fil med namnet <b>navtop.asp</b>. Dess innehåll kommer nedan<br>
<!--  
Ifall ni funderar. 
Jo det är jäkligt jobbigt att formatera koden med färger och allt. 
-->
<div class=code>
<span class=asp><%<br>
Set navList = Server.CreateObject ( "MSWC.NextLink" )<br>
currInd = navList.GetListIndex ( listFile )<br>
lastInd = navList.GetListCount ( listFile )<br>
count = navList.GetListCount ( listFile )<br> 
%></span><br><br>
<font color="#8B008B">
<font color="#0000FF"><</font>HTML<font color="#0000FF">></font><br>
<font color="#0000FF"><</font>HEAD<font color="#0000FF">></font><br>
<font color="#0000FF"><</font>META <font color="#FF0000">HTTP-EQUIV</font><font color="#0000FF">="Content-Type"</font> <font color="#FF0000">content</font><font color="#0000FF">="text/html; charset=iso-8859-1"></font><br>
<FONT COLOR=#006400><!-- Modifiera vid behov men lämna kvar ASP koden någonstans --></font><br>
<font color="#0000FF"><</font>TITLE<font color="#0000FF">></font><font color="#000000">Anders sidor [<span class=asp><% =navList.GetNthDescription(listFile, currInd) %></span>]</font><font color="#0000FF"><</font>/TITLE<font color="#0000FF">></font><br>
<font color="#0000FF"><</font>/HEAD<font color="#0000FF">></font><br>
<font color="#0000FF"><</font>BODY <font color="#FF0000">bgcolor</font><font color="#0000FF">="#FFFFCC"</font><font color="#0000FF">></font><br>
<font color="#0000FF"><</font>table <font color="#FF0000">align</font><font color="#0000FF">="left"</font> <font color="#FF0000">border</font><font color="#0000FF">="0"</font> <font color="#FF0000">cellspacing</font><font color="#0000FF">="0"</font> <font color="#FF0000">cellpadding</font><font color="#0000FF">="0"</font> <font color="#FF0000">width</font><font color="#0000FF">="146"</font> <font color="#0000FF">></font><br>
<span class=asp><%<br>
For row = 1 to  count <br>
%></span>
<br>
    <font color="#0000FF"><</font>TR<font color="#0000FF">></font><br>
    <span class=asp><% if row = currInd Then %></span><br>
        <font color="#0000FF"><</font>TD<font color="#0000FF">></font><br>
        <span class=asp><% =navList.GetNthDescription ( listFile , row ) %></span><br>
        <font color="#0000FF"></</font>TD<font color="#0000FF">></font><br>
    <span class=asp><% Else %></span><br>
        <font color="#0000FF"><</font>TD<font color="#0000FF">></font><br>
        <font color="0000FF"><</font>a <font color="FF0000">href</font><font color="0000FF">="</font><span class=asp><% =navList.GetNthURL ( listFile , row ) %></span><font color="0000FF">"></font><br>
            <span class=asp><% =navList.GetNthDescription ( listFile , row ) %></span><br>
        <font color="#0000FF"></</font>A<font color="#0000FF">></font><br>
        <font color="#0000FF"></</font>TD<font color="#0000FF">></font><br>
    <span class=asp><% End If %></span><br>
<span class=asp><% Next %></span><br>
<font color="#0000FF"></</font>TABLE<font color="#0000FF">></font><br>
<br>
<font color="#0000FF"><</font>TABLE <font color="#FF0000">border</font><font color="#0000FF">="0"</font> <font color="#FF0000">cellpadding</font><font color="#0000FF">="10"</font><font color="#0000FF">></font><font color="#0000FF"><</font>TR<font color="#0000FF">></font><font color="#0000FF"><</font>TD<font color="#0000FF">></font><br>
<font color="#0000FF"><</font>FONT 
<font color="#FF0000">size</font><font color="#0000FF">="7"</font> 
<font color="#FF0000">face</font><font color="#0000FF">="Arial,Helvetica"</font>
<font color="#0000FF">></font><br>
<span class=asp><% =navList.GetNthDescription ( listFile , currInd ) %></span><br>
<font color="#0000FF"></</font>FONT<font color="#0000FF">></font><br>
</font>
<font color="#0000FF"><</font>HR<font color="#0000FF">></font><br>
</div>
<p>
Skapa även en ASP fil med namnet<b>navbottom.asp</b>. Dess innehåll kommer nedan<br>
<div class=code>
<font color="#8B008B">
<font color="#0000FF"><</font>p<font color="#0000FF">></font><br>
<font color="#0000FF"><</font>hr<font color="#0000FF">></font><br>
<span class=asp><% if currInd > 1 Then %></span><br>
<font color="000000">Föregående sida: </font><br>
    <font color="0000FF"><</font>a <font color="FF0000">href</font><font color="0000FF">="</font><span class=asp><% =navList.GetNthURL ( listFile , currInd - 1 ) %></span><font color="0000FF">"></font><br>
    <span class=asp><% =navList.GetNthDescription ( listFile , currInd - 1 ) %></span><br>
    <font color="#0000FF"></</font>a<font color="#0000FF">></font><br>
<span class=asp><% End If %></span><br>
<font color="#FF0000"> </font><br>
<span class=asp><% if currInd < count Then %></span><br>
<font color="000000">Nästa sida: </font><br>
    <font color="0000FF"><</font>a <font color="FF0000">href</font><font color="0000FF">="</font><span class=asp><% =navList.GetNthURL ( listFile , currInd + 1 ) %></span><font color="0000FF">"></font><br>
    <span class=asp><% =navList.GetNthDescription ( listFile , currInd + 1 ) %></span><br>
    <font color="#0000FF"></</font>a<font color="#0000FF">></font><br>
<span class=asp><% End If %></span><br>
<font color="#0000FF"></</font>TD<font color="#0000FF">></font><br>
<font color="#0000FF"></</font>TR<font color="#0000FF">></font><br>
<font color="#0000FF"></</font>TABLE<font color="#0000FF">></font><br>
<font color="#0000FF"></</font>BODY<font color="#0000FF">></font><br>
<font color="#0000FF"></</font>HTML<font color="#0000FF">></font><br>
</font>
</div>
<p>
Skapa sedan filerna <b>sid1.asp</b> till och med <b>sid5.asp</b>. De skall 
samtliga ha samma utseende<br>
<div class=code>
<span class=asp><%@ LANGUAGE="VBSCRIPT"  LCID=2077 %></span><br>
<span class=asp><% listFile = "links.txt" %></span><br>
<FONT COLOR=#006400><!-- #include file="navtop.asp" --></font><br>
<br>
Här skriver du in någonting. Skriv lite olika saker i de fem sidorna så du ser skillnad på dem<br>
<br>
<FONT COLOR=#006400><!-- #include file="navbottom.asp" --></font><br>
</div><p>
<li><a href="sid1.asp"  target="_new">Är du riktigt LAT kan du klicka här för att se hur det börjar se ut</a><p>
OK, layouten på dessa sidor är väl inte så mycket att skryta över. Vitsen med denna metod är att om man
ändrar på <b>navtop.asp</b> eller <b>navbottom.asp</b> så kommer samtliga sidor 
att ändra. (Alla sidor i denna sajt är baserade på denna metod, lite mera layout bara)<p>
Har man en sida som riktar sig till "vatusvenskan" (rikssvenskar) så kan man se 
till att eventuell datering m.m. blir korrekt genom att byta ut
<div class=code>
<span class=asp><%@ LANGUAGE="VBSCRIPT"  LCID=2077 %></span><br>
</div>
till
<div class=code>
<span class=asp><%@ LANGUAGE="VBSCRIPT"  LCID=1053 %></span><br>
</div>
på den sidan (<a href="skriva4.asp#LCID">Se förklaringen till LCID</a>)<p>
Vill man ha en annan bakgrund på samtliga sidor ändrar man på denna rad i <b>navtop.asp</b>
<div class=code>
<font color="#8B008B">
<font color="#0000FF"><</font>BODY <font color="#FF0000">bgcolor</font><font color="#0000FF">="#FFFFCC"</font><font color="#0000FF">></font><br>
</font>
</div>
Kanske man sätter in en bakgrunsbild eller en annan färg...<p>
Vill man att navigeringen skall komma till höger istället för till vänster så ändrar man från
<div class=code>
<font color="#8B008B">
<font color="#0000FF"><</font>table <font color="#FF0000">align</font><font color="#0000FF">="<b>left</b>"</font> <font color="#FF0000">border</font><font color="#0000FF">="0"</font> <font color="#FF0000">cellspacing</font><font color="#0000FF">="0"</font> <font color="#FF0000">cellpadding</font><font color="#0000FF">="0"</font> <font color="#FF0000">width</font><font color="#0000FF">="146"</font> <font color="#0000FF">></font><br>
</font>
</div>
till
<div class=code>
<font color="#8B008B">
<font color="#0000FF"><</font>table <font color="#FF0000">align</font><font color="#0000FF">="<b>right</b>"</font> <font color="#FF0000">border</font><font color="#0000FF">="0"</font> <font color="#FF0000">cellspacing</font><font color="#0000FF">="0"</font> <font color="#FF0000">cellpadding</font><font color="#0000FF">="0"</font> <font color="#FF0000">width</font><font color="#0000FF">="146"</font> <font color="#0000FF">></font><br>
</font>
</div>
<p>
Vill man ha bilder istället för text i navigeringslistan kan man sätta in bildfilernas namn istället för förklaringar i listfilen. Sedan kan man ändra
<div class=code>
<font color="#8B008B">
<font color="0000FF"><</font>a <font color="FF0000">href</font><font color="0000FF">="</font><span class=asp><% =navList.GetNthURL ( listFile , row ) %></span><font color="0000FF">"></font><br>
    <span class=asp><% =navList.GetNthDescription ( listFile , row ) %></span><br>
<font color="#0000FF"></</font>a<font color="#0000FF">></font><br>
</font>
</div>
till
<div class=code>
<font color="#8B008B">
<font color="0000FF"><</font>a <font color="FF0000">href</font><font color="0000FF">="</font><span class=asp><% =navList.GetNthURL ( listFile , row ) %></span><font color="0000FF">"></font><br>
<font color="0000FF"><</font>img <font color="FF0000">src</font><font color="0000FF">="</font><span class=asp><% =navList.GetNthDescription  ( listFile , row ) %></span><font color="0000FF">"></font><br>
<font color="#0000FF"></</font>a<font color="#0000FF">></font><br>
</font>
</div>
<p>
Vill jag ändra på ordningsföljden eller ändra på rubriktexterna så ändrar jag bara på <b>links.txt</b>
<div class=code>
sid4.asp    En sida med stil<br>
sid1.asp    Min första sida<br>
sid3.asp    Min tredje sida<br>
sid5.asp    Min femte sida<br>
sid2.asp    Min andra sida<br>
</div><p>
Vill jag sätta in en ny fil så skriver jag bara in dess namn i <b>links.txt</b>
<div class=code>
ny.asp     En ny första sida<br>
sid4.asp    Min fjärde sida<br>
sid1.asp    Min första sida<br>
sid3.asp    Min tredje sida<br>
sid5.asp    Min femte sida<br>
sid2.asp    Min andra sida<br>
</div><p>
Har man många sidor (som i denna applikation) så kan jag ha många länkfiler. 
Eftersom varje sida "vet" vilken länkfil som skall användas så kommer 
den automatiskt att ladda rätt lista.<p>
Nu är det säkert någon som funderar på hur detta koncept fungerar med <b>Frames</b> och
svaret är att det går att tillämpa samma metoder med frames. Jag ORKAR dock inte 
förklara hur man gör detta (det är lite omständigt)<p>
Vill någon verkligen veta hur man gör så tag kontakt... <p>
Jag har några testsidor på nätet under adressen 
<a href="http://bet.puv.fi/proto/">http://bet.puv.fi/proto/</a> där 
jag arbetar verkligen dynamiskt med länkfiler. Ni kan ju se om ni kan 
lista ut hur jag gör.<P>
Ni kan även se om ni lyckas nästa upp alla frames på 
<a href="http://www.osuuspankki.fi">http://www.osuuspankki.fi</a> 
där ni kan se en antydan till en annan metod för frameshantering<p>
Nackdelen med denna metod är att man inte kan använda FrontPage97 för att 
konstruera sidorna men vem bryr sig... <p>
<font size="5" color="CCCCCC" face="Comic Sans MS,Arial,Verdana,Helvetica">
<i>Real programmers write their own code. <br>
Wannabe's use code generators...
</i>
</font>
<p>
<!--#include file="../inc/footer.asp" -->