Прежде всего, класс ASP (VBScript) состоит из событий и методов (они являются членами класса). и продавать.
В блоке класса участники объявляются соответствующим заявлением как частное (частные члены, могут быть вызваны только внутри класса) или общественности (общественных членов, могут быть вызваны внутри и за пределами класса). Объявленные как частные будут видны только в классе. Объявлено, что публика не только видна внутри блока классов, но и виден для кода, кроме блоков классов. По умолчанию является публичная, которая не использовала частную или публичную для четко заявленного. Процесс объявления в блоке класса как публика станет методом класса. Общественные переменные станут атрибутами класса, а также используют свойство Get, Property Let и набор свойств. Атрибуты и методы класса по умолчанию указаны в ключевых словах по умолчанию в их операторе.
Пожалуйста, прочитайте синюю часть внутри, давайте посмотрим на пример ниже
<script language = vbscript runat = server>
Класс MyClass
'// ---- Декларация (объявление является определением) Внутренние (частные [частные]) переменные класса MyClass
Частный штраутор
Частная стрелка
Частный пример
'// ----------------------------------------------- ------------------------------------------------------ ------------------------------------------------------ --- --------------- //
'// ---- class_initialize ()-это событие инициализации класса. Экран в участнике.
Private sub class_initialize ()
Strauthor = siyuan
Стриверс = 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: [электронная почта защищена]'> maxid_zen </a> </ a>
Конец суб
'// ----------------------------------------------- ------------------------------------------------------ -------------------------------------------- ------ ---------- //
'// ---- Атрибут фиксированного класса, этот атрибут должен разрешить пользователям
Публичная собственность Let SetExapmle (Byval Strvar)
strexapmle = strvar
Конец собственности
'// ----------------------------------------------- ------------------------------------------------------ -------------------------------------------- ------ ---------- //
'// ---- Определите атрибуты класса, этот атрибут должен вернуть номер версии
Общедоступная версия
Версия = Стриверсия
Конец собственности
'// ---- Определите атрибуты класса, этот атрибут-номер автора, возвращенный в этот класс
Общественная собственность получить автора
Автор = Strauthor
Конец собственности
'// ---- Определите атрибуты класса, этот атрибут должен вернуть номер версии
Общественная недвижимость получает Exapmle
exapmle = strexapmle
Конец собственности
конечный класс
</script>
<%
'// ------- Это пример использования этого класса
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 = ничего
%>