Criando Classe public no Asp

Question

Isso seria possível ?

Exemplo

'================Classes.???==================

<%
Class Teste
public function QualquerCoisa()
  response.write ("QualquerCoisaSemRetorno")
  end function
End Class
%>

===============Index.asp=====================

Dim oTeste
Set oTeste = New Teste
oTeste.QualquerCoisa()

Como fazer ele chamar o Classes.??? ou tornar as classes ativas.

Answer 1

No arquivo Classes você o salvaria normal como .asp ou seja Classes.asp

Já no arquivo Index.asp você o incrementaria em seu cabeçalho o include file ficando dessa forma :

<!-- Index.asp -->

<!-- #include file ="Classes.asp" -->
<%
Dim oTeste
Set oTeste = New Teste
oTeste.QualquerCoisa()
%>

Espero ter ajudado.

---

Davi Murilo Referência Principal : Jesus que ilumina minha mente.
Referência Profissonal : http://www.tidm.com.br

Answer 2

Só para completar e poder dar uma respostas mais completa.

Class Teste

private val1, val2, val3	'só é acessivel dentro da classe

public property let valor1(v1)
	valor1 = v1
end property
public property let valor2(v2)
	valor2 = v2
end property

sub display_Resultado
	val1 = valor1 + 200
	val2 = valor2 - 100
	Response.write "Resposta é.: " & val1 + val2
end sub
end class
'//chamando a classe
Dim Teste
Set Teste = new Teste
Teste.valor1 = 200
Teste.valor2 = year("date")


Teste.display_Resultado()

porém a vantagem de usar classe é realmente isolar e aproveitar ela diversas vezes. e por isso colocar em arquivo separado.

Outra vantagem da classe em relação a sub ou function
é que function se amanha vc mudar os parametros, adicionando ou removendo terá que mudar em todos locais que chamem.
Na classe se vc adicionar uma nova propriedade não faz diferença as chamadas já existente delas...


De resto o ASP Classic não tem suporte a polimorfismo, herança, etc