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


Пример 1.13


<%@ Language=VBScript %>

<%

dim i

dim o

dim oXML

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 & "

")

if o.CreateChair() then

Response.Write("

new id=" & o.ChairID & "

")

else

Response.Write("

possible error=" & o.ChairError & "

")

end if

set oXML = o.GetChairState()

Response.Write("

xml=" & oXML.XML & "

")

Response.Write("

open new chair

")

if not o.OpenChair("20021129095221") then

Response.Write("

possible error=" & o.ChairError & "

")

end if

Response.Write("

new chair color should be purple

")

Response.Write("

new chair color =" & o.color & "

")

'destroy object so it can be created again

set o = nothing

%>




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