Uma classe simples de operação de banco de dados asp

<%
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'Classe de operação de banco de dados
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'Nome: Classe_DBPerate
'Versão: 0.2
'Autor: Qihangnet
'Atualização: 14 de junho de 2005
'Função: Simplificar o processo de operações de banco de dados
'Autorização: Gratuito para usar
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Classe Class_DBOperate

'************ * **************************
'Definição de variável
'************************************
'Conn ---------- objeto de conexão com o banco de dados
'Conn_Str ------ String de conexão do banco de dados

Private Conn,Conn_Str

'************************************* ** ***
'Inicialização/encerramento da instância
'************************************

Subclasse Privada_Initialize()
Definir Conexão = Server.CreateObject("ADODB.Connection")
Fim Sub

Privado Sub Class_Teriminate()
SetConn=Nada
Fim do sub

'************************************
'propriedade
'************************************

'String de conexão do banco de dados de saída
'Tipo de valor de retorno: string

Property Get ConnectString
ConnectString = Conn_Str
End Property

'Definir string de conexão do banco de dados (string de conexão do banco de dados)
' Parâmetro: str --- string

Propriedade Let ConnectString(str)
Conn_Str = str
Propriedade final

'************************************
'evento
'************************************

'Banco de dados abre
Sub público DB_Open() .
Conn.ConnectionString = Conn_Str
Conexão aberta
End Sub

'Banco de dados fechado
Sub público DB_Close()
Conexão Fechar
Fim do sub

'************************************
'método
'************************************

'Consulta ao banco de dados (instrução sql)
'Parâmetros e categorias: sql ---- string
'Tipo de valor de retorno: conjunto de registros
' Pré-requisito: O status do banco de dados é aberto

Public Function DB_Select(sql)
Definir DB_Select = Conn.Execute(sql)
End Function

'Execução do banco de dados (instrução SQL)
'Parâmetros e categorias: sql ---- string
'Tipo de valor de retorno: inteiro
'Valor de retorno significado: número de linhas afetadas
' Pré-requisito: O status do banco de dados é aberto

Public Function DB_Excute(sql)
Dim rs_affected
Conn.Execute sql,rs_affected
DB_Excute = rs_afetado
Função Final

Classe Final
%>