Podemos definir classes como um objeto, com seus próprios métodos (funções que atuam sobre este objeto) e propriedades (variáveis do objeto). Assim, o comando MyClass.Build() chama o método Build do objeto MyClass e MyClass.Titulo = "xyz" define o valor da propriedade Titulo do mesmo objeto. Pra quem acha isso complicado, vale o lembrete que, quando criamos um objeto ADODB.Connection, facilmente trabalhamos com suas propriedades (CursorType, Provider, etc) e métodos (Execute(), Open(), etc).

Classes podem ser criadas facilmente no VBScript, mediante a utilização de alguns comandos não comumente usados. O uso de classes pode ser útil pela reutilização do mesmo código em diversas partes da aplicação e pela facilidade de atribuir seus valores.

Pense no exemplo de paginação: qtas páginas de seu site usam o recurso de paginação, com a alteração de apenas uma ou duas características ? Pense qto código pode ser economizado com a utilização de apenas um código genérico. E lembre-se que o ASP é interpretado; ou seja: qto menos código, mais rápido a aplicação roda.

O primeiro dos comandos necessários é o Class, que define o nome da Classe. Não tem muito o que dizer, exceto que ele deve ser terminado com End Class, que vai depois de todo o código da Classe, englobando-a. Após definir o nome da classe, vc precisa definir as propriedades. Vc pode simplesmente colocar Public Propriedade e então esta variável pode ser acessada externamente à ela. Caso coloque Private MyVar, esta variável terá escopo apenas dentro da classe. Muita gente usa o Propriety, que permite executar uma sequencia de comandos quando o valor da propriedade for atribuido, permitindo consistir os dados entrados.
Após a definição das propriedades, podemos definir os métodos. Assim, o comando Public Default Sub NomeMetodo define o método padrão para a Classe. Vc tbém pode definir o escopo para Private, fazendo com que a sub/function seja acessível apenas internamente à classe.
Pode parecer complicado, mas, com isso, vc já pode criar uma classe, como no exemplo abaixo:
<%
Class HelloWorld
Private Texto_a_ser_mostrado
Public Property Let Texto ( cString ) 'Isso declara a *variavel* pública "Texto"
Texto_a_ser_mostrado = iif( len( cString & "" ) = 0, "Hello world!", cString )
End Property
Private Function iif( condicao, valor1, valor2 )
if condicao then iif = valor1 else iif = valor2
End Function
Private Sub ChecarSeTudoOk()
if len( Texto_a_ser_mostrado & "" ) = 0 then Texto = ""
End Sub
Public Default Sub ShowMessage
ChecarSeTudoOk()
response.write Texto_a_ser_mostrado
End Sub
End Class
Dim oHelloWorld
Set oHelloWorld = New HelloWorld
With oHelloWorld
'.Texto = "Hi there!"
.ShowMessage()
End With
%>

Você pode pegar o trecho do Class (as linhas entre o "Class HelloWorld" e o "End Class", inclusive) e colocar em um arquivo chamado HelloWorldClass.asp e incluí-lo no seu script, com <!-- #include file="HelloWorldClass.asp" -->

Com certeza este tutorial nao esgota o assunto.

Autor: Rubens Farias

  Dica: Confira todo nosso conteúdo de ASP no site.