|
<%@ Page Language="VB" %>
<script runat="server">
Class Clock
public Second as integer
public Minute as integer
public Hour as integer
sub SetTime(intSec as integer, intMin as integer, _
intHour as integer)
Second = intSec
Minute = intMin
Hour = intHour
end sub
End Class
sub Page_Load(Sender as object, e as EventArgs)
dim objClock as new Clock
objClock.Second = 60
Response.Write(objClock.Second)
end sub
</script>
<html><body>
</body></html>
|