Hoje em dia, o ASP é uma plataforma (não uma linguagem, onde a linguagem mais comum utilizada é o VB Script) ultrapassada e antiga, porém, há muitos sistemas que ainda rodam sobre ela. Mesmo assim, há algumas características pouco conhecidas por muitas pessoas que a utilizam e que um dia chegaram a utiliza-la. A idéia deste post é de ser um dos muitos que ajudarão a deixar os sistemas que rodam até hoje e que não há previsão de troca por outro, além de ser destinados aqueles que o objetivo é de atualização de linguagem (deixando o mais próximo possível, nunca igual, de linguagens atuais). Falo isto porque
por favor, não me criem sistemas novos a partir desta linguagem, a não ser em casos muito extremos, pois, o ASP já foi descontinuado pela Microsoft há muitos anos.
Uma destas características é a utilização de classes. Não estou falando de classes compiladas no VB e referenciadas pela linguagem e sim nas linguagens de script que rodam sobre ela. Porém, existem várias e várias limitações que mesmo trabalhando com classes e objetos,
nunca deixarão seus sistemas Orientados à Objetos, pois, não há nenhuma característica de orientação à objetos (herança, polimorfismo entre várias outras) na plataforma a não ser a possibilidade de aglomerar funções e manter o escopo de alguma variáveis limitados à necessidade de fazer referencia às classes que as possuem e da existência de um construtor e um destrutor para as classes . Resta ao desenvolvedor, utilizar esta característica ao seu favor, utilizando-a da maneira mais bem pensada o possível. Favor, lembrar de limitar as classes à escopos bem definidos, nunca fazer classes "faz-tudo".
Vamos deixar de teoria e começar a ver exemplos de classes na linguagem utilizando as características de
padronização de programação de um post anterior do blog só que com a adição de comentários para seu entendimento sobre as classes, vamos chama-la de Modelo.
Primeiro, vamos criar uma classe simples, vazia, que não serve para nada!
<%
'Início da classe Modelo
class Modelo
'Fim da classe Modelo
end class>Muito BOM!!! Com estas linhas, você definirá a sua classe inútil.
Agora, vamos colocar os construtores e destrutores na classe.
<%
'Início da classe Modelo.
class Modelo
'Construtor da classe.
private sub class_Initialize()
end sub
'Destrutor da classe.
private sub class_Terminate()
end sub
'Fim da classe Modelo.
end class>Não vou explicar o que é um construtor e destrutor de classes agora, mas, em breve, ou eu ou outra pessoa, publicará o que são estas facilidades. Mas, em algum momento deste post, posso aprofundar pouca coisa sobre eles.
Agora, vamos colocar alguns atributos na classe.
<%
'Início da classe Modelo.
class Modelo
'Atributos públicos da classe.
public strNome
public strDescricao
'Construtor da classe.
private sub class_Initialize()
end sub
'Destrutor da classe.
private sub class_Terminate()
end sub
'Fim da classe Modelo.
end class>Agora que colocamos atributos públicos na classe (o que raramente ou nunca deve ocorrer), vamos colocar propriedades na mesma.
<%
'Início da classe Modelo.
class Modelo
'Atributos públicos da classe.
private strNome
private strDescricao
'Construtor da classe.
private sub class_Initialize()
end sub
'#region Propriedade Nome
public property let Nome(strValue)
strNome = strValue
end property
public property get Nome()
Nome = strNome end property
'#endregion Propriedade Nome
'#region Propriedade Descrição
public property let Descricao(strValue)
strDescricao = strValue
end property
public property get Descricao()
Descricao = strDescricao end property
'#endregion Propriedade Descrição 'Destrutor da classe.
private sub class_Terminate()
end sub
'Fim da classe Modelo.
end class>Agora, temos uma classe quase decente, que pode ser utilizada para transporte de dados. Quase, pois falta o comentário. Porém, lembre-se, nunca deve-se fazer códigos sem comentário. Fiz isto neste post, para não criar tantas linhas no post e por haver comentários explicativos na classe que são coisas que não escrevo em classes, mas, deve-se sempre já colocar os comentários.
Porém, ainda não acabamos, vou colocar um procedimento (não tem retorno) e uma função (tem retorno) que são conceitos antigos de linguagens antigas, porém, tenho que colocar no exemplo por estar falando do ASP.
<%
'Início da classe Modelo.
class Modelo
'Atributos públicos da classe.
private strNome
private strDescricao
'Construtor da classe.
private sub class_Initialize()
end sub
'#region Propriedade Nome
public property let Nome(strValue)
strNome = strValue
end property
public property get Nome()
Nome = strNome end property
'#endregion Propriedade Nome
'#region Propriedade Descrição
public property let Descricao(strValue)
strDescricao = strValue
end property
public property get Descricao()
Descricao = strDescricao end property
'#endregion Propriedade Descrição 'Exemplo de Função public function QualquerCoisa() QualquerCoisa = "QualquerCoisa" end function
'Exemplo de Procedimento ou Sub public sub QualquerCoisaSemRetorno() response.write ("QualquerCoisaSemRetorno") end sub 'Destrutor da classe.
private sub class_Terminate()
end sub
'Fim da classe Modelo.
end class>Agora, temos todas as possibilidades que vislumbro neste momento que podem existir em uma classe.
Vamos fazer os comentários certos e retirar os que fiz para os leitores entenderem.
<%
'/**
'* @description Transporte de Modelo
'*
'* @author David B S Ribeiro
'* @access public
'* @package br.com.mdstecnologia.modelo.asp.modelo
'*/
class Modelo
private strNome
private strDescricao
'/**
'* @description Construtor padrão
'* @author David B S Ribeiro
'* @access private
'*/
private sub class_Initialize()
end sub
'#region Propriedade Nome
'/**
'* @description Configura o Nome do Modelo
'*
'* @author David B S Ribeiro
'* @access public
'*/
public property let Nome(strValue)
strNome = strValue
end property
'/**
'* @description Recupera o Nome do Modelo
'*
'* @author David B S Ribeiro
'* @package br.com.mdstecnologia.modelo.asp.modelo
'* @access public
'*/
public property get Nome()
Nome = strNome
end property
'#endregion Propriedade Nome
'#region Propriedade Descrição
'/**
'* @description Configura a Descrição do Modelo
'*
'* @author David B S Ribeiro
'* @access public
'*/
public property let Descricao(strValue)
strDescricao = strValue
end property
'/**
'* @description Recupera a Descrição do Modelo
'*
'* @author David B S Ribeiro
'* @access public
'*/
public property get Descricao()
Descricao = strDescricao
end property
'#endregion Propriedade Descrição
'/**
'* @description Retorna a string "QualquerCoisa"
'* @author David B S Ribeiro
'* @access public
'* @return A string "QualquerCoisa"
'*/
public function QualquerCoisa()
QualquerCoisa = "QualquerCoisa"
end function
'/**
'* @description Escreve no HTML "QualquerCoisaSemRetorno"
'* @author David B S Ribeiro
'* @access public
'*/
public sub QualquerCoisaSemRetorno()
response.write ("QualquerCoisaSemRetorno")
end sub
'/**
'* @description Destrutor
'* @author David B S Ribeiro
'* @access private
'*/
private sub class_Terminate()
end sub
'Fim da classe Modelo.
end class
>
Agora sim, podemos dizer que finalizamos nossa classe.
Mas, como referencia-la? Segue o exemplo abaixo:
<%dim objModelo set objModelo = new Modelo
objModelo.QualquerCoisaSemRetorno()%>Gostaria de mandar agradecimentos para Olavo Alexandrino por ter pesquisado estas informações uns anos atrás (classes em ASP) e para Leonardo Postachini e Mario Valentim por terem me ensinado um pouco mais de OO.
É isto pessoal. Bom estudo.
Postagens
