|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Usando Classes
|
 |
|
|
|
Postada em 3/10/2003 por ^HEAVY-METAL^
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
|
|
|
|
|
