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


Пример 1.2


<%@ Language=VBScript %> <HTML> <HEAD> </HEAD> <BODY> <% dim o

Response.Write("<p>start Test</p>")

'create the object since this is hard work set o = Server.CreateObject("ConfigSeat.clsChair")

'demonstrate that values were changing Response.Write("<p> color=" & o.color & "</p>") Response.Write("<p>change color to blue</p>") o.color = "blue" Response.Write("<p> color=" & o.color & "</p>")

'destroy object so it can be created again set o = nothing %> </BODY> </HTML>

Листинг 1.2. ASP DescribeChair.asp used to test the COM component ConfigSeat.DLL

Закрыть окно






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