My Little Scripts - directory-navigation-links.asp

Scripts.com - Get the best scripts NOW!
HotScripts.com - Over 10 web rings.
more links...

Index News Samples Downloads E-Mail me Forum Sign Up

DIRECTORY-NAVIGATION-LINKS.ASP

Do you have a website with a navigation system that follows its directory structure? If so, with these ASP and ASP.NET versions of directory-navigation-links.php, you can implement a navigation solution that requires very little maintenance.

see also : directory-navigation-links.php, directory-navigation-links.asp
javascript-navigation-links.js, hotlink-protection.php
link-words.php, link-words.asp

<%
function directory_navigation_links()
         directory_navigation_links = ""
         right_side_path = Request.ServerVariables("SCRIPT_NAME")
         left_side_path = ""

         do
            next_slash = instr(right_side_path, "/")

            if next_slash <> 0 then
               left_side_path = left_side_path & left(right_side_path, next_slash)
               right_side_path = right(right_side_path, len(right_side_path) - next_slash)

               if left_side_path = "/" then
                  dir_name = "home"
               else
                  dir_name = left(left_side_path, len(left_side_path) - 1)
                  dir_name = right(dir_name, len(dir_name) - inStrRev(dir_name, "/"))
               end if

               directory_navigation_links = directory_navigation_links & _
               "<a href=""" & left_side_path & """>" & dir_name & "</a> "
            end if

         loop while next_slash <> 0
end function
%>

<script language="VB" runat="server">
Function directory_navigation_links() As String
         directory_navigation_links = ""
         right_side_path = Request.ServerVariables("SCRIPT_NAME")
         left_side_path = ""

         Do
            next_slash = InStr(right_side_path, "/")

            If next_slash <> 0 Then
                left_side_path = left_side_path & Left(right_side_path, next_slash)
                right_side_path = Right(right_side_path, Len(right_side_path) - next_slash)

                If left_side_path = "/" Then
                    dir_name = "home"
                Else
                    dir_name = Left(left_side_path, Len(left_side_path) - 1)
                    dir_name = Right(dir_name, Len(dir_name) - InStrRev(dir_name, "/"))
                End If

                directory_navigation_links = directory_navigation_links & _
                "<a href=""" & left_side_path & """>" & dir_name & "</a> "
            End If

         Loop While next_slash <> 0
End Function
</script>