在VBScript中使用类（二）[5]

class tvprogram

               public starttime

               public internal_programdate

               public property get programdate

                       programdate = day(internal_programdate) & _

                       " " & monthname(month(internal_programdate)) & _

                               " " & year(internal_programdate)

               end property

               public programtitle

        end class

        dim objtvshow

        set objtvshow = new tvprogram

        objtvshow.starttime = cdate("17:30")

        objtvshow.internal_programdate = dateserial(1999,9,17)

        objtvshow.programtitle = "the jerry springer show"

        response.write objtvshow.programtitle & " is on at " & _

              objtvshow.starttime & " on " & objtvshow.programdate & "."

程序的结果如下：