none
Criando Classe public no Asp RRS feed

  • Pergunta

  • 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.

    terça-feira, 25 de junho de 2013 00:17

Respostas

  • 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

    • Marcado como Resposta Celo e Nanda domingo, 21 de julho de 2013 14:36
    sexta-feira, 19 de julho de 2013 18:02

Todas as Respostas

  • 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

    • Marcado como Resposta Celo e Nanda domingo, 21 de julho de 2013 14:36
    sexta-feira, 19 de julho de 2013 18:02
  • 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
    • Sugerido como Resposta ASPX_BR terça-feira, 1 de outubro de 2013 18:09
    terça-feira, 1 de outubro de 2013 18:08