Código Fonte - O melhor conteúdo para programadores

Este código tem nota

Autor

Rodrigo Araujo

membro deste abril de 2007

Compartilhe e guarde

Enquete

Você já está estudando HTML5 e CSS3?

Ainda não comecei a estudar
Já li um pouco sobre o assunto
Não tenho interesse agora
Estou estudando profundamente

Home Código Fonte ASP Banco de Dados

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:\servidor\agenda\classe.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.

<!-- #Include File="classe.asp" -->

'abaixo um formulário normal. Nenhum segredo.
<html>
<head>
<title>Form Incluir - Usando Classe</title>
</head>
<body>
<form name="FormIncluir" method="post">

<table width="42%" border="0" cellspacing="1" cellpadding="1" align="center">
<tr>
<td width="13%">Nome:</td>
<td width="87%">
<input type="tex" name="nome" size="50">
</td>
</tr>
<tr>
<td>Endere&ccedil;o:</td>
<td>
<input type="text" name="endereco" size="40">
</td>
</tr>
<tr>
<td>Telefone:</td>
<td>
<input type="text" name="telefone" size="20">
</td>
</tr>
<tr>
<td>E-mail:</td>
<td>
<input type="text" name="email" size="60">
</td>
</tr>
<tr>
<td colspan="2" align="center" height="40">
<input type="button" name="gravar" value=" Gravar " onClick="clicou();">&nbsp;&nbsp;
</td>
</tr>
</table>
<input type="hidden" name="bt">
</form>
</body>
</html>

'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.
<script>
function clicou()
{
FormIncluir.bt.value = 0;
FormIncluir.action = 'c_incluir.asp'
FormIncluir.submit();
}

</script>

<%
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("<div align=center>Dados incluido com sucesso....</div>")
end if
%>

<%
'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:\servidor\agenda\classe.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.
<html>
<head>
<title>Form Incluir - Usando Classe</title>
</head>
<body>
<form name="FormIncluir" method="post">

<table width="42%" border="0" cellspacing="1" cellpadding="1" align="center">
<tr>
<td width="13%">Nome:</td>
<td width="87%">
<input type="tex" name="nome" size="50">
</td>
</tr>
<tr>
<td>Endere&ccedil;o:</td>
<td>
<input type="text" name="endereco" size="40">
</td>
</tr>
<tr>
<td>Telefone:</td>
<td>
<input type="text" name="telefone" size="20">
</td>
</tr>
<tr>
<td>E-mail:</td>
<td>
<input type="text" name="email" size="60">
</td>
</tr>
<tr>
<td colspan="2" align="center" height="40">
<input type="button" name="gravar" value=" Gravar " onClick="clicou();">&nbsp;&nbsp;
</td>
</tr>
</table>
<input type="hidden" name="bt">
</form>
</body>
</html>

'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.
<script>
function clicou()
{
FormIncluir.bt.value = 0;
FormIncluir.action = 'c_incluir.asp'
FormIncluir.submit();
}

</script>

<%
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("<div align=center>Dados incluido com sucesso....</div>")
end if
%>

Este código foi útil para você?

Nota	Comentário
1	denunciar edsonaj comentou em 19/12/2008 PLÁGIO PURO. Esse artigo foi feito por mim e, publicado em PLUGMASTERS.com.br sinceramente, falta de ética profissional e capacidade mental Ao invés de pensar em algo próprio o autori desse artigo utiliza de trabalho alheio para se auto promover. LAMENTÁVEL.

Regras:
Os comentários seguem as seguintes regras:

Todos os comentários são enviados por membros cadastrados no site.
A pontuação de comentários de conteúdo do próprio membro não serão computados.
Os comentários serão pré-aprovados, porém a equipe do site revisará o conteúdo de todos os comentários podendo ser invalidados (inclusive a pontuação).
Os comentários precisam ter, obrigatóriamente, coerência sobre o conteúdo que será comentado.
O membro que atingir 5 comentários invalidados não poderá mais comentar dentro do site. Com isso o membro não poderá mais ganhar pontos com comentários.
Há um limite de 10 comentários por dia para cada membro.
Qualquer comentário após ter sido publicado poderá ser retirado através da opção ( denunciar)

Comente

Autenticação:	Apelido: Senha: (ainda não tem cadastro? clique aqui!)

Título:	Máximo de 30 caracteres
Comentário:	Máximo de 255 caracteres
Avaliação:

Equipe | Tabela de Pontos e Estrelas | Política de Privacidade | Mapa do Site | Fale Conosco