ASP Classes

How it works

A VBScript Class groups private fields and public procedures. It does not provide the C# type system, interfaces or modern dependency injection. This class owns a small seat count and refuses an invalid decrement before changing the field. It is request-local memory, not shared durable storage.

Use the separate Windows lab

This is a legacy-maintenance course. Classic ASP uses IIS and VBScript; ASP.NET Web Pages uses .NET Framework and Razor. Neither runs in PHP, Apache or Bhylu’s browser playground. The reviewed baseline is 32-bit IIS Express 10.0.2001, .NET Framework 4.8, Web Pages / Razor 3.2.9 and the Windows VBScript engine. ADO database examples use the actual 32-bit Jet OLE DB 4.0 provider, not SQL Server or XAMPP MySQL.

Download download-lab.mjs into a separate empty learning folder. Run node download-lab.mjs to fetch hash-checked source files into a new bhylu-asp-lab folder, then cd bhylu-asp-lab and node run-lab.mjs --start. Before deployment, local preview uses node download-lab.mjs http://127.0.0.1:8000/examples/asp/. The source downloader refuses an existing destination. Review its source before running it.

The foreground launcher needs your own 32-bit IIS Express installation with Classic ASP, .NET Framework 4.8 and the VBScript engine available. It downloads the three pinned Web Pages packages from NuGet into its private cache, binds only localhost on port 8142 and stops when you press Ctrl+C. Keep its console open. Visit http://localhost:8142/classes.asp. It does not install IIS, enable Windows features, change Apache/PHP/MySQL, or publish any files. See the bundled README.txt for manual setup and test boundaries.

Each complete Classic ASP source requires the supplied Global.asa acknowledgement; Web Pages uses _PageStart.cshtml. Database and file examples create owned temporary files only under this private lab’s blocked App_Data folder. Sources are public text downloads; do not upload them as executable teaching endpoints on Bhylu.

Download classes.asp

Example

<%@ Language="VBScript" CodePage="65001" %>
<% Option Explicit
Response.Buffer = True
Response.ContentType = "text/plain"
Response.Charset = "utf-8"
If Application("BhyluLab") <> "YES" Then
    Response.Status = "403 Forbidden"
    Response.Write "Use the separate Bhylu learning lab."
    Response.End
End If
Class SeatCounter
    Private remaining
    Private Sub Class_Initialize()
        remaining = 3
    End Sub
    Public Function Reserve(ByVal quantity)
        Reserve = False
        If quantity < 1 Or quantity > remaining Then Exit Function
        remaining = remaining - quantity
        Reserve = True
    End Function
    Public Property Get Seats()
        Seats = remaining
    End Property
End Class
Dim counter
Set counter = New SeatCounter
Response.Write counter.Reserve(2) & ":" & counter.Seats & vbLf
Response.Write counter.Reserve(2) & ":" & counter.Seats
%>

Class SeatCounter
    Private remaining
    Private Sub Class_Initialize()
        remaining = 3
    End Sub
    Public Function Reserve(ByVal quantity)
        Reserve = False
        If quantity < 1 Or quantity > remaining Then Exit Function
        remaining = remaining - quantity
        Reserve = True
    End Function
    Public Property Get Seats()
        Seats = remaining
    End Property
End Class
Dim counter
Set counter = New SeatCounter
Response.Write counter.Reserve(2) & ":" & counter.Seats & vbLf
Response.Write counter.Reserve(2) & ":" & counter.Seats

Expected result

True:1
False:1

The failed second call leaves the state unchanged. That invariant is more useful than merely demonstrating New. Each request constructs a different counter; real shared bookings need a database transaction and concurrency policy.

Primary references

• Microsoft Classic ASP configuration
• Microsoft Web Pages documentation
• Microsoft ADO API reference