|
Use of Let
Get Properties With ASP
Class User
Private mLastName
Private mFastName
Private dTelephones
Private Sub Class_Initialize()
Set dTelephones=Server.CreateObject("Scripting.Dictionary")
End Sub
Private Sub Class_terminate()
Set dTelephones=Nothing
End Sub
Public Property Let LastName(s)
mLastName = s
End Property
Public Property Get LastName()
LastName = mLastName
End Property
Public Property Let FirstName(s)
mFirstName = s
End Property
Public Property Get FirstName()
FirstName = mFirstName
End Property
Public Sub addTelephone(atype, anumber)
If dTelephones.Exists(atype) Then
Response.Write "This person already has " &
"a phone of type " & atype & _ "<br>"
Response.end
Else
dTelephones.Add atype, anumber
Response.Write "Added telephone " & atype & ", "
& anumber & "<br>"
End If
End Sub
Public Property Get PhoneInfo()
Dim V
Dim s
For Each V In dTelephones.keys
s = s & V & "=" & dTelephones(V) & "<br>"
Next
PhoneInfo = s
End Property
Public Property Get PhoneCount()
PhoneCount = dTelephones.Count
End Property
End Class
|
