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

<%

        dim objtvshow

        set objtvshow = new tvprogram

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

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

        objtvshow.programtitle = "the jerry springer show"

%>

<%= objtvshow.programtitle %> is on at <%= objtvshow.starttime %> on <%= objtvshow.programdate %>.