ASP Classic blog framework - BrainOrdure
Você não pode selecionar mais de 25 tópicos Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.

71 linhas
2.3KB

  1. <!doctype html>
  2. <%
  3. Response.Charset = "utf-8"
  4. Response.CodePage = 65001
  5. Dim pageTitle
  6. If IsObject(CurrentController) Then
  7. On Error Resume Next
  8. pageTitle = CurrentController.Title
  9. If Err.Number <> 0 Then
  10. pageTitle = "BrainOrdure"
  11. Err.Clear
  12. End If
  13. On Error GoTo 0
  14. End If
  15. If Len(pageTitle) = 0 Then pageTitle = "BrainOrdure"
  16. Dim currentPath
  17. currentPath = LCase(Request.ServerVariables("HTTP_X_ORIGINAL_URL"))
  18. If InStr(currentPath, "?") > 0 Then currentPath = Left(currentPath, InStr(currentPath, "?") - 1)
  19. Function NavClass(ByVal prefix)
  20. If Left(currentPath, Len(prefix)) = prefix Then
  21. NavClass = "nav-link active"
  22. Else
  23. NavClass = "nav-link"
  24. End If
  25. End Function
  26. %>
  27. <html lang="en">
  28. <head>
  29. <meta charset="utf-8" />
  30. <title><%= H(pageTitle) %> &mdash; BrainOrdure</title>
  31. <meta name="viewport" content="width=device-width, initial-scale=1" />
  32. <link href="https://cdn.jsdelivr.net/npm/bootstrap@5.3.3/dist/css/bootstrap.min.css" rel="stylesheet" />
  33. <link href="https://cdn.jsdelivr.net/npm/bootstrap-icons@1.11.3/font/bootstrap-icons.css" rel="stylesheet" />
  34. <link href="/css/site.css" rel="stylesheet" />
  35. </head>
  36. <body>
  37. <nav class="navbar navbar-expand-lg navbar-dark bg-dark shadow-sm">
  38. <div class="container">
  39. <a class="navbar-brand brand" href="/">
  40. BrainOrdure<span class="brand-tagline">a blog</span>
  41. </a>
  42. <button class="navbar-toggler border-0" type="button" data-bs-toggle="collapse" data-bs-target="#mainNav" aria-controls="mainNav" aria-expanded="false" aria-label="Toggle navigation">
  43. <span class="navbar-toggler-icon"></span>
  44. </button>
  45. <div class="collapse navbar-collapse" id="mainNav">
  46. <ul class="navbar-nav ms-auto mb-2 mb-lg-0">
  47. <li class="nav-item">
  48. <a class="<%= NavClass("/") %>" href="/">Home</a>
  49. </li>
  50. <li class="nav-item">
  51. <a class="<%= NavClass("/posts") %>" href="/posts">Posts</a>
  52. </li>
  53. <li class="nav-item">
  54. <a class="<%= NavClass("/categories") %>" href="/categories">Categories</a>
  55. </li>
  56. </ul>
  57. </div>
  58. </div>
  59. </nav>
  60. <main class="site-main">
  61. <div class="container">
  62. <% Flash().ShowErrorsIfPresent : Flash().ShowSuccessIfPresent %>

Powered by TurnKey Linux.