The current code is still not practical from what we want, we will use class TVProgram in other pages, so it is best to independently define it so that all face can be called. Create an ASP page and name TVProgramClass.asp, we define the class 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
Programdate = day (internal_programdate) & _
"" & Monthname (Month (Internal_ProgramDate) &_
"" & Year (internal_programdate)
End Property
Public property let progradate (byval vardatein)
If isdate (Vardatein) THEN
INTERNAL_PROGRAMDATE = VARDATEIN
END IF
End Property
Public ProgramTITE
END CLASS
%>
This allows you to call our defined classes in any ASP, the syntax is as follows:
<%
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%>.
Here has a suggestion. If you rename your included file .asp, and ensure that all important code is in <% ...%> , even if someone guesses you, there is no way to see the file name. Content!
