<%@ page language="vb" runat="server" %>
Public Class Book
Private _Title As String
Private _Isbn As Integer
Private _Price As Decimal
Public Sub New()
_Title = "title"
_Isbn = 999999999
End Sub
Public ReadOnly Property TitleInfo As String
Get
Return _Title & " (ISBN: " & _Isbn & ")"
End Get
End Property
Public ReadOnly Property Title As String
Get
Return _Title
End Get
End Property
Public ReadOnly Property Isbn As Integer
Get
Return _Isbn
End Get
End Property
Public Property Price As Decimal
Get
Return _Price
End Get
Set(value As Decimal)
_Price = value
End Set
End Property
End Class
Sub Page_Load()
Dim MyBook As New Book()
Response.Write("New book 'MyBook' created.")
MyBook.Price = "39.99"
Response.Write("
Title info: " & MyBook.TitleInfo)
Response.Write("
Price: $" & MyBook.Price & "
")
End Sub