Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

ruinas

Uso de Classes

Por , em ASP Clássico

Recommended Posts

ruinas    0

ruinas
Postado

:rolleyes: Olá Amigo, este é meu primeiro post no Laboratório de scripts (ASP).

 

Estava estudo mais sobre Classes... Acho que é uma forma fácil de trabalhar com ASP.. mesmo estando limitado a algumas funcionalidades...

 

Bom irei disponibilizar a classe que eu desenvolvi, no intuito ver melhorias nela... Abraços e aproveitem...

 

<%
	'Classe Categoria
	'Autor: Lucas Rodrigo - Dono da Web Desenvolvimento de Softwares LTDA
	'Web Site: www.donodaweb.com.br
	'Data: 31/01/2008

	Class ClassCategoria
		
		'Atributos
		Dim idCategoria, categoria, codDepartamento 'Campos do Banco de Dados
		Dim acao, cod, msg
		Private SQL

		'Metodos
		'******************************************************************
		Private Sub incluir()
			SQL = "insert into Categoria (categoria, codDepartamento) Values ('"& categoria &"','"& codDepartamento &"')"
			conexao.execute(SQL)
		End Sub

		'******************************************************************
		Private Sub alterar()
			SQL = "update Categoria set categoria = '"& categoria &"', codDepartamento = '"& codDepartamento &"' Where idCategoria = "& idCategoria
			conexao.execute(SQL)
		End Sub

		'******************************************************************
		Private Sub remover()
			SQL = "delete Categoria Where idCategoria = "& idCategoria
			conexao.execute(SQL)
		End Sub

		'******************************************************************
		Private Sub selecionar()
			SQL = "select * from Categoria where idCategoria = "& idCategoria
			Set RS = conexao.execute(sql)
			If Not RS.eof Then
				categoria		= Trim(rs("categoria"))
				codDepartamento = Trim(rs("codDepartamento"))
			End If
		End Sub

		'******************************************************************
		Private Sub selecionarTodos()
			SQL = "select * from Categoria"
			Set RS = conexao.execute(sql)
		End Sub

		'******************************************************************
		Private Sub Limpar()
			idCategoria = ""
			Categoria = ""
			codDepartamento = ""
		End Sub

		'******************************************************************
		Private Sub verificaErro()
			If Err.Number <> 0 Then
				cod = Err.Number
				msg = Err.Description
			End If
		End Sub
		
		'******************************************************************
		Private Sub validar()
			If Acao <> "incluir" And Acao <> "alterar" And Acao <> "remover" And Acao <> "selecionar" And Acao <> "selecionarTodos" Then
				cod = -1
				msg = "Acao: < "& acao &" > Desconhecida."
				Exit Sub
			End If

			If Acao = "SelecionarTodos" Then
				Exit Sub
			End If

			If IsNull(idCategoria) And Acao <> "incluir" Then
				cod = -1
				msg = "Atributo IdCategoira é de preenchimento Obrigatório!"
				Exit Sub
			End If
			
			If IsNull(categoira) And (Acao = "incluir" Or Acao = "alterar") Then
				cod = -1
				msg = "Atributo Categoria é de preenchimento Obrigatório!"
				Exit Sub
			End If
		End Sub

		'******************************************************************
		Public Sub Executar()
			On Error Resume Next

			validar

			If cod < 0 Then
				Exit Sub
			End If

			Select Case acao
				Case "incluir"
					incluir
					Limpar
					acao = "incluir"
				Case "alterar"
					alterar
					Limpar
					acao = "incluir"
				Case "remover"
					remover
					Limpar
					acao = "incluir"
				Case "selecionar"
					selecionar
					acao = "alterar"
				Case "selecionarTodos"
					selecionarTodos
			End Select

			verificaErro

		End Sub

	End Class

%>

Arquivo que irá chamar a classe...

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../includes/conecta.asp"-->
<!--#include file="../Classes/ClassCategoria.asp"-->
<%
	AbreConexao
	
	Dim cCategoria, acao, ok
	Set cCategoria = New ClassCategoria
	
	cCategoria.idCategoria = request("idCategoria")
	cCategoria.categoria = request("txtCategoria")
	cCategoria.codDepartamento = request("codDepartamento")
	cCategoria.acao = request("acao")
	
	if cCategoria.acao <> "" Then	
		cCategoria.executar
	Else
		cCategoria.acao = "incluir"
	End If
	
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Categorias</title>
</head>

<body>
<p align="center"><!--#include file="../includes/topoAdmin.asp"--><br>
<form name="frmCategoria">
	<table align="center" width="279" cellspacing="0" bordercolordark="white" bordercolorlight="black" cellpadding="0" style="border-width:1px; border-color:rgb(102,102,102); border-style:solid;">
		<tr>
			<td width="279" colspan="2" height="39">
				<p align="center"><b><span style="font-size:10pt;"><%=acao%> Categoria</span></b></p>
			</td>
		</tr>
		<tr>
			<td width="115" height="30">
				<p align="right"><span style="font-size:10pt;">ID Categoria:</span></p>
			</td>
			<td width="164" height="30">
				<p>
		<span style="font-size:10pt;"> <%= cCategoria.idCategoria%>
		<input type="hidden" name="idCategoria" value=<%=cCategoria.idCategoria%>>
		<input type="hidden" name="acao" value="<%=cCategoria.acao%>"></span>
		</p>
			</td>
		</tr>
		<tr>
			<td width="115" height="31">
				<p align="right"><span style="font-size:10pt;">Categoria: </span></p>
			</td>
			<td width="164" height="31">
				<p><span style="font-size:10pt;"> <input type="text" name="txtCategoria" value="<%=cCategoria.categoria%>"></span></p>
			</td>
		</tr>
		<tr>
			<td width="115" height="30">
				<p align="right"><span style="font-size:10pt;">Cód. Departamento:</span></p>
			</td>
			<td width="164" height="30">
				<p><span style="font-size:10pt;"> <input type="text" name="codDepartamento" value="<%=cCategoria.codDepartamento%>"></span></p>
			</td>
		</tr>
		<tr>
			<td width="115" height="32">
				<p><span style="font-size:10pt;"> </span></p>
			</td>
			<td width="164" height="32">
				<p><span style="font-size:10pt;"> <input type="submit" value="Salvar"></span></p>
			</td>
		</tr>
	</table>
</form>
<p align="center">
<font color="red"><b><% if cCategoria.cod > 0 And cCategoria.Acao <> "" Then
response.write "Comando executado!"
End if 

%></b></font></p>
<table align="center" border="1" width="450">
	<tr>
		<td width="42" height="16" bgcolor="#F6F6F6">
			<p align="center"><b>ID</b></p>
		</td>
		<td width="175" height="16" bgcolor="#F6F6F6">
			<p><b>CATEGORIA</b></p>
		</td>
		<td width="113" height="16" bgcolor="#F6F6F6">
			<p align="center"><b>COD. DEPART</b></p>
		</td>
		<td width="44" height="16" bgcolor="#F6F6F6">
			<p align="center"><b>ALT</b></p>
		</td>
		<td width="42" height="16" bgcolor="#F6F6F6">
			<p align="center"><b>DEL</b></p>
		</td>
	</tr>
	<%
		Dim rs
		cCategoria.acao = "selecionarTodos"
	cCategoria.executar
	If cCategoria.cod < 0 Then 
		response.write cCategoria.msg
		Response.End
	End If
	While not rs.eof
	%>
	<tr>
		<td width="42" height="9">
			<p><span style="font-size:10pt;"> <%=Trim(rs("idCategoria"))%></span></p>
		</td>
		<td width="175" height="9">
			<p><span style="font-size:10pt;"> <%=Trim(rs("categoria"))%></span></p>
		</td>
		<td width="113" height="9">
			<p><span style="font-size:10pt;"> <%=Trim(rs("codDepartamento"))%></span></p>
		</td>
		<td width="44" height="9">
			<p align="center"><span style="font-size:10pt;"> <a href='?acao=selecionar&idCategoria=<%=rs("idCategoria")%>'>ALT</a></span></p>
		</td>
		<td width="42" height="9">
			<p align="center"><span style="font-size:10pt;"><a href='?acao=remover&idCategoria=<%=rs("idCategoria")%>'>DEL</a></span></p>
		</td>
	</tr>
	<%
			Rs.moveNext
		Wend
		rs.close
	Set rs = Nothing
	FechaConexao
	%>
</table>
<p align="center"><font color="red"><b> </b></font></p>
</body>
</html>

Por favor.. peço que melhorem o código para assim podemos atingir um melhor conhecimento!!!

 

http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito