在VB&#083;cript中使用類（四）

2024-07-21 02:15:28

字體：大中小

供稿：網(wǎng)友

菜鳥學(xué)堂：
現(xiàn)在的代碼離我們想要的還是有些不太實用，我們將在其他頁使用類tvprogram，因此最好將其獨立定義，以便所有也面都可以調(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)用我們定義的類了，語法如下：


<%

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)容！

上一篇：MicrosoftVB&#115;cript運行時錯誤（完整版）共121個

下一篇：在VB&#083;cript中使用類（三）