Trabalhando com classes em ASP

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

<%
'definição do nome da sua classe
Class Agenda

Dim Nome, Endereco, Telefone, Email 'definição de variáveis que serão utilizadas para guardar as informações que serão digitadas.
Private Conex 'variáel que fará a conexão com banco.
Private RS 'variável do recordset.
Private SQL 'variável que terá o retorno do que foi gravado.

'Criei variáveis privadas, porque só serão usadas aqui na classe.
Private Sub AbrirConexao 
Set Conex = CreateObject("ADODB.Connection") 
Set RS = CreateObject("ADODB.Recordset") 
Conex.Open "dbq=C:servidoragendaclasse.mdb;driver={Microsoft Access Driver (*.mdb)}" 'colque sua string de conexão
End Sub 

'função que chamarei para fazer a inclusão dos dados.
Sub Incluir
'chama a função que faz a conexão com banco. 
Call AbrirConexao
SQL = "Insert into Agenda (Nome, Endereco, Telefone, Email) values ('" & Nome & "', '" & Endereco & "', '" & Telefone & "', '" & Email & "')" 
set RS = Conex.Execute(SQL)


Call FecharConexao 
End Sub 

'função que fecha a conexão com o banco.
Private Sub FecharConexao 
If Conex.State <> 0 Then Conex.Close 
End Sub


End Class 
%>

Agora vamos criar o form, onde será chamada a classe e a função inlcuir. Crie um arquivo chamado c_incluir.asp.

Chamo a página que tem a classe para mais adiante poder usar a classe e a função.



'abaixo um formulário normal. Nenhum segredo.

'Criei esse script simplesmente para não submeter outra página, depois que clicar em gravar. Aí você pode fazer da forma que achar melhor.


<%
if request("bt") = "0" then
'Chamando a classe que possui a função incluir que grava no banco de dados
dim ag 
'INSTÂNCIA A CLASSE
set ag = new agenda

'atribui os valores digitados nos campos àquelas variáveis que criamos na classe. Lembra? 
ag.Nome = request("nome")
ag.Endereco = request("endereco") 
ag.Telefone = request("telefone")
ag.Email = request("email")
'Chama o nome da função
ag.incluir 

response.Write("

“) end if %>