[Resolvido] arquivos texto para criar a sua navegação

[xanburzum 169]

Este exemplo mostra como usar arquivos texto para criar a sua navegação em páginas. Primeiro crie um arquivo chamado nav.txt no seu editor preferido,sugiro o Dreamweaver ou VisualStudio, neste arquivo digite alguns links como este:

 

<a href="index.asp">home</a><br>
<a href="categorias.asp">categorias</a><br>
<a href="linguagens.asp">linguagens</a><br> 
<a href="códigos.asp">códigos</a><br>
<a href="tutoriais.asp">tutoriais</a><br>

Obviamente estes são links para este site, mas essa é a idéia.

 

Agora para o script.

 

<%
Dim objFSO , objFile , strURL
'criar uma instância do objeto FSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'abrir o arquivo de navegação nav.txt
Set objFile = objFSO.OpenTextFile(Server.MapPath("demonav.txt"))
'enquanto não for final do arquivo
While Not objFile.AtEndOfLine
strURL = objFile.ReadLine
'exibir navigation bars
response.write("<a href=' " & strURL & " '>" & strURL & "</a>") 
Wend
'fecha o arquivo
objFile.Close
'destruir os objetos
Set objFile = nothing
Set objFSO = Nothing
%>