現(xiàn)在的代碼離我們想要的還是有些不太實(shí)用，我們將在其他頁使用類tvprogram，因此最好將其獨(dú)立定義，以便所有也面都可以調(diào)用。創(chuàng)建一個asp頁面，并命名為tvprogramclass.asp，我們在其中定義類tvprogram。

--tvprogramclass.asp--

<%

class tvprogram

         private internal_starttime

         public property get starttime
                 starttime = hour(internal_starttime) & _
                      ":" & minute(internal_starttime)
         end property

         public property let starttime(byval vartimein)
                 if isdate(vartimein) then
                    internal_starttime = vartimein
                 end if
         end property

         private internal_programdate

         public property get programdate
               programdate = day(internal_programdate) & _
                      " " & monthname(month(internal_programdate)) & _
                      " " & year(internal_programdate)
         end property

         public property let programdate(byval vardatein)
               if isdate(vardatein) then
                      internal_programdate = vardatein
               end if
         end property

         public programtitle

end class

%>

    這樣就可以在任何asp中調(diào)用我們定義的類了，語法如下：

<!-- #include virtual="tvprogramclass.asp" -->
<%
        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 %>.

這里有一個建議。如果你重命名你的包含文件.asp，并保證所有重要代碼都在<code><% ... %>< code>中，那么就算有人猜到了你包含文件的文件名，也沒辦法看見里面的內(nèi)容！