[bysheep] :: dica de asp

desde o ano passado sem postar nada vamos a primeira dica do ano. mesmo com muitos programadores achando que é uma linguagem ultrapassada.. eu uso e gosto muito dela… estou fazendo um trabalho novo (vou publicar até o fim do mês) e é todo em asp….

vamos a uma dica de asp

criando classe com asp….

a chamada…

em um arquivo comum de asp…

<%
   ‘ cria uma variável          
   dim oCadastro
   ‘ cria uma instância da classe (objeto)
   set oCadastro = new cadastroDuvidas
   ‘ chama o método da classe
   oCadastro.incluiCadastro
%>

a classe

    class cadastroDuvidas 
      ‘declaração dos parâmetros da classe
       dim pergunta, resposta, idDuvida, conexao
      private qqvar ‘ variável privada

   ‘ métodos
       public sub Class_Initialize()
         ‘ inicializa a classe
       end sub    
        ‘Abrir conexação – exclusiva da classe
       private sub abriConexao
           ‘ aponta para o objeto conexão
           set conexao=Server.CreateObject("ADODB.Connection")
            ‘ abre o objeto
            conexao.Open("DSN=sh7;Uid=Admin;Pwd=")
        end sub 
     
        ‘ método para incluir dados
        sub incluiCadastro
            ‘ chama a rotina  para abrir a conexão
            call abriConexao
           ‘cria a variável do sql
            comandoSqlCadastrar = "INSERT INTO tbDuvida (pergunta, resposta) values (‘"& pergunta &"’, ‘"& resposta &"’)"
           ‘executa a variável do sql
           set rsCadastra = conexao.Execute(comandoSqlCadastrar)
            ‘ chama a rotina  para fechar a conexão
            call fechaConexao
        end sub

        ‘fechar conexão com o banco
        private sub fechaConexao
            conexao.close
        end sub

        public sub Class_Terminate()
         ‘ finaliza a classe
       end sub    

    end Class

esta é só uma parte da classe.. o método insert.. mas da para ter uma idéia de como o asp trabalha com objetos

até o próximo post…