Primeiro de tudo, a classe ASP (VBScript) é composta por eventos e métodos (eles são membros de uma classe). e vendendo.
No bloco de classe, os membros são declarados pela declaração correspondente como privada (membros privados, só podem ser chamados dentro da classe) ou público (membros públicos, podem ser chamados dentro e fora da classe). O declarado como privado só será visível no bloco de classe. É declarado que o público não é apenas visível dentro do bloco de classe, mas também visível para o código que não seja blocos de classe. O padrão é público que não usou privado ou público para declarar claramente. O processo de ser declarado no bloco de classe como público se tornará um método de classe. As variáveis públicas se tornarão os atributos da classe, além de usar a propriedade Get, Property Let e Property Set. Os atributos e métodos padrão da classe são especificados nas palavras -chave padrão em sua instrução.
Por favor, leia a parte azul dentro, vamos dar uma olhada em um exemplo abaixo
<idioma de script = vbscript runat = servidor>
Classe myclass
'// ---- Declaração (Declaração é Definição) As variáveis internas (privadas [privadas]) da classe MyClass
Strauthor privado
Strversion privado
Estrexato privado
'// ----------------------------------------------- -------------------------------------------------------- -------------------------------------------------------- --- ----------------- //
'// ---- Class_initialize () é um evento de inicialização da classe. A tela no membro.
Sub -classe privado_initialize ()
Strauthor = Siyuan
strversion = 1.0
Response.write <br> MyClass começou <br>
final sub
'// ---- Class_termine () é um evento final da classe. A classe acabou
Sub -classe particular ()
Response.write <br> MyClass acabou <br>
final sub
'// ----------------------------------------------- -------------------------------------------------------- -------------------------------- ---------------- //
'// ---- Este método retorna uma informação de versão
Public Sub Information () ()
Response.Write <br> Codificação por <a href = 'Mailto: [email protegido]'> maxid_zen </a> </a>
final sub
'// ----------------------------------------------- -------------------------------------------------------- -------------------------------------------- ---------- ---------- //
'// ---- O atributo da classe fixa, este atributo é para permitir que os usuários
Propriedade pública Let setexapmle (byval strvar)
strexapmle = strvar
Propriedade final
'// ----------------------------------------------- -------------------------------------------------------- -------------------------------------------- ---------- ---------- //
'// ---- Defina os atributos da classe, este atributo é retornar um número de versão
Propriedade pública Get versão
Versão = strversion
Propriedade final
'// ---- Defina os atributos da classe, esse atributo é o número do autor retornado a esta classe
Propriedade pública Get Author
Autor = strauthor
Propriedade final
'// ---- Defina os atributos da classe, este atributo é retornar um número de versão
Propriedade pública Obtenha exapmle
exapmle = strexapmle
Propriedade final
Classe final
</script>
<%
'// ------- Este é um exemplo de usar esta classe
Dimnenewclass
Set OneNewclass = New MyClass
Autor da Response.Write: & onenewclass.author & <br>
Versão do Response.Write: & onenewclass.version & <br>
OneNewclass.setexapmle = Este é um exemplo de uma classe simples
Response.Write User Customized: & onenewclass.exapmle & <br>
OneNewclass.information
definido onenewclass = nada
%>