USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  ASP - Active Server Page    (Miscelâneas)

Título da Dica:  Usando Classes
Postada em 3/10/2003 por ^HEAVY-METAL^      Clique aqui para enviar email para o autor  manuel@sectron.com.br
Voce pode utilizar classes em ASP, o que pode melhorar a estruturação dos seus códigos e também diminuir consideravelmente a quantidade de linhas que seu código vai ter.
Além do fato de que vai contar com as vantagens que se tem em trabalhar com objetos, mesmo o asp não sendo totalmente orientado a objetos (não se pode ter herança e tal).

Vamos criar uma classe para gerenciar uma agenda telefonica simples

Class Agenda
Dim Nome, Telefone

Private Conex

Sub Incluir
Conex.Execute "Insert into Agenda (Nome, Telefone) values ('" & Nome & "', '" & Telefone & "')"
End Sub

Sub Excluir
Conex.Execute "Delete from Agenda Where nome = '" & Nome & "'"
End Sub

Sub Alterar
Conex.Execute "Update Agenda Set Nome = '" & Nome & "', Telefone = '" & Telefone & "' Where Nome = '" & Nome & "'"
End Sub

Private Sub AbrirConexao
Set Conex = CreateObject("ADODB.Connection")
Conex.Open "sua string de conexao"
End Sub

Private Sub FecharConexao
If Conex.State <> 0 Then Conex.Close
End Sub
End Class

Pronto, vamos utilizar a classe agora??

'::::::::::::::Incluir
dim ag
set ag = new agenda
ag.Nome = "Leandro"
ag.Telefone = "555-5555"
ag.incluir

'::::::::::::::Excluir
dim ag
set ag = new agenda
ag.Nome = "Leandro"
ag.excluir

'::::::::::::::Alterar
dim ag
set ag = new agenda
ag.Nome = "Leandro"
ag.Telefone = "666-6666"
ag.alterar


Bom, existem outras coisas que podem ser feitas com classes, é só utilizar a imaginação.

falow
 


CyberWEB Network Ltda.    © Copyright 2000-2019   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página