Прежде всего, класс ASP состоит из событий и методов (они являются членами категории композиции).
В блоке класса участники объявляются соответствующим заявлением как частное (частные члены, могут быть вызваны только внутри класса) или общественности (общественных членов, могут быть вызваны внутри и за пределами класса). Объявленные как частные будут видны только в классе. Объявлено, что публика не только видна внутри блока классов, но и виден для кода, кроме блоков классов. По умолчанию является публичная, которая не использовала частную или публичную для четко заявленного. Процесс объявления в блоке класса как публика станет методом класса. Общественные переменные станут атрибутами класса, а также атрибутами собственности GET, Property Let и Property Set. Атрибуты и методы класса по умолчанию указаны в ключевых словах по умолчанию в их операторе.
Пожалуйста, посмотрите вышеуказанную часть терпеливо, давайте посмотрим на пример ниже:
| Ниже приведено фрагмент кода: <% '// ----------------------------------------------- ---------------------------------------------- ---- ------------------ // Класс MyClass '// ---- Декларация (объявление является определением) Внутренние (частные [частные]) переменные класса MyClass Частный штраутор Частная стрелка Частный пример '// ----------------------------------------------- ------------------------------------------------------ ------------------------------------------------------ --- --------------- // '// ---- class_initialize ()-это событие инициализации класса. Экран в участнике. Private sub class_initialize () strauthor = "Coldstone" strversion = "1.0" Response.write "<br> myclass начал <br>" "" Конец суб '// ---- class_terminate () является конечным событием класса. класс закончился Private sub class_terminate () Response.write "<br> myclass выше <br>" "" Конец суб '// ----------------------------------------------- ------------------------------------------------------ ------------------------------ -------------------- // '// ---- Этот метод возвращает информацию об авторском праве Public Sub Information () () Response.write "<br> кодирование по <a href = 'mailto: [email protected]'> coldstone </a> @ <a href = 'http: //www.flash8.net' >>. <br> " Конец суб '// ----------------------------------------------- ------------------------------------------------------ -------------------------------------------- ------ ---------- // '// ---- Атрибут фиксированного класса, этот атрибут должен разрешить пользователям Публичная собственность Let SetExapmle (Byval Strvar) strexapmle = strvar Конец собственности '// ----------------------------------------------- ------------------------------------------------------ -------------------------------------------- ------ ---------- // '// ---- Определите атрибуты класса, этот атрибут должен вернуть номер версии Общедоступная версия Версия = Стриверсия Конец собственности '// ---- Определите атрибуты класса, этот атрибут-номер автора, возвращенный в этот класс Общественная собственность получить автора Автор = Strauthor Конец собственности '// ---- Определите атрибуты класса, этот атрибут должен вернуть номер версии Общественная недвижимость получает Exapmle Exapmle = strexapmle Конец собственности Конечный класс %> <% '// ------- Это пример использования этого класса Dim onenewclass SET ONENEWCLASS = новый MyClass Response.write "Автор:" & onenewclass.author & "<br>" Response.write "версия:" & onenewclass.version & "<br>" Onenewclass.setexapmle = "Это простой пример" Response.write "Пользователь пользователь:" & onenewclass.exapmle & "<br>" Onenewclass.information Установить onenewclass = ничего %> |