Программирование в IIS


Пример 1.2


<%@ Language=VBScript %>

<%

dim o

Response.Write("

start Test

")

'create the object since this is hard work

set o = Server.CreateObject("ConfigSeat.clsChair")

'demonstrate that values were changing

Response.Write("

color=" & o.color & "

")

Response.Write("

change color to blue

")

o.color = "blue"

Response.Write("

color=" & o.color & "

")

'destroy object so it can be created again

set o = nothing

%>




- Начало -  - Назад -  - Вперед -