From bdcd2e9b62a058f264ea8a5a62adf0e697af20fa Mon Sep 17 00:00:00 2001 From: Nano Date: Sun, 3 May 2026 06:30:09 -0400 Subject: [PATCH] Polish UI: navbar, homepage, and site CSS - Navbar: BrainOrdure branding, Posts/Categories links, active-link highlighting, fix VBScript comment bleed-through - Homepage: replace framework starter template with clean blog hero - site.css: custom stylesheet (dark brand, card shadows, readable typography) - Footer: year and site name Co-Authored-By: Claude Sonnet 4.6 --- app/views/Home/index.asp | 89 +++---------------------------------- app/views/shared/footer.asp | 9 +++- app/views/shared/header.asp | 77 +++++++++++++------------------- public/css/site.css | 81 +++++++++++++++++++++++++++++++++ 4 files changed, 126 insertions(+), 130 deletions(-) create mode 100644 public/css/site.css diff --git a/app/views/Home/index.asp b/app/views/Home/index.asp index 2874882..24e0562 100644 --- a/app/views/Home/index.asp +++ b/app/views/Home/index.asp @@ -1,85 +1,8 @@ - - -
-
-
-
-

Welcome to RouteKit Classic ASP

-

- Your lightweight, opinionated MVC-style framework for Classic ASP. -

-

- This Home.Index view is using the shared - Header.asp and Footer.asp layout files. -

-

- Start by wiring up your controllers, repositories, and views — this page is just a - friendly placeholder so you know everything is hooked up correctly. -

-
-
-
- -
-
-
-

Quick info

-
    -
  • - View: - app/Views/Home.Index.asp -
    • -
  • - Layout: - Shared/Header.asp & Shared/Footer.asp -
    • -
  • - Default route: - typically /Home/Index or / via the dispatcher. -
    • -
-
-
-
-
- -
-
-
-
-

Next step: Controllers

-

- Use your generateController.vbs script to scaffold new controllers. -

- 
cscript //nologo Scripts\generateController.vbs ^
-  Home "Index"
-
-
-
- -
-
-
-

POBO & Repository

-

- Generate strongly-typed POBOs and repositories from your Access/SQL schema. -

- 
cscript //nologo Scripts\GenerateRepo.vbs ^
-  /table:Users /pk:UserId
-
-
-
- -
-
-
-

Where to put stuff

-
    -
  • /core/ – framework libs (DAL, routing, helpers)
    • -
  • /app/Views/ – pages like this one
    • -
  • /public/ – IIS root (Default.asp, web.config)
    • -
-
-
+
+

BrainOrdure

+

Thoughts, notes, and things worth writing down.

+
+ Read Posts + Browse Categories
diff --git a/app/views/shared/footer.asp b/app/views/shared/footer.asp index 1966515..9a16095 100644 --- a/app/views/shared/footer.asp +++ b/app/views/shared/footer.asp @@ -1,7 +1,12 @@ -
+
- +
+
+

© <%= Year(Now()) %> BrainOrdure

+
+
+ diff --git a/app/views/shared/header.asp b/app/views/shared/header.asp index 03fce57..22226d6 100644 --- a/app/views/shared/header.asp +++ b/app/views/shared/header.asp @@ -3,81 +3,68 @@ Response.Charset = "utf-8" Response.CodePage = 65001 -' Safe title resolution Dim pageTitle If IsObject(CurrentController) Then On Error Resume Next pageTitle = CurrentController.Title If Err.Number <> 0 Then - pageTitle = "RouteKit Classic ASP" + pageTitle = "BrainOrdure" Err.Clear End If On Error GoTo 0 End If -If Len(pageTitle) = 0 Then pageTitle = "Classic ASP Starter Template" +If Len(pageTitle) = 0 Then pageTitle = "BrainOrdure" + +Dim currentPath +currentPath = LCase(Request.ServerVariables("HTTP_X_ORIGINAL_URL")) +If InStr(currentPath, "?") > 0 Then currentPath = Left(currentPath, InStr(currentPath, "?") - 1) + +Function NavClass(ByVal prefix) + If Left(currentPath, Len(prefix)) = prefix Then + NavClass = "nav-link active" + Else + NavClass = "nav-link" + End If +End Function %> - <%= pageTitle %> + <%= H(pageTitle) %> — BrainOrdure - - - - - - - - -