Pseudo-Objects in Active Server Pages
<%
' BasicObj.asp - Simple program to show pseudo-object called "Car".
' Force variables to be declared.
option explicit
' Declare variables.
dim objCar
' Create a Car pseudo-object.
set objCar = Car_New()
objCar("make") = "Toyota"
objCar("model") = "Corolla"
objCar("year") = 1991
' Show the car.
Response.Write "objCar: " & objCar("year") & " " & objCar("make") & " " & _
objCar("model") & vbCrLf
' -----------------------------------------------------------------------------
' Car_New(): Creates a new, empty Car object.
'
function Car_New()
dim objCar
' Create Dictionary object as base.
set objCar = Server.CreateObject("Scripting.Dictionary")
' Add fields.
objCar.Add "make", ""
objCar.Add "model", ""
objCar.Add "year", 0
' Return the new, empty Car.
set Car_New = objCar
end function
%>
Page 3 of 11
This article was originally published on October 14, 1999