Una clase de operación de base de datos ASP simple

<%
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'Clase de operación de base de datos
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'Nombre: Class_DBPerate
'Versión: 0.2
'Autor: qihangnet
'Actualización: 14 de junio de 2005
'Función: Simplificar el proceso de operaciones de bases de datos.
'Autorización: uso gratuito
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Clase Class_DBOperate

'************ * ****************************
'Definición variable
'************************************
'Conn ---------- objeto de conexión de base de datos
'Conn_Str ------ Cadena de conexión de base de datos

Private Conn,Conn_Str

'************************************ ** ***
'Inicialización/terminación de instancia
'************************************

Subclase privada_Initialize()
Establecer conexión = Server.CreateObject ("ADODB.Connection")
Finalizar

subsubclase privada_Teriminate()
SetConn=Nada
Fin Sub

'************************************
'propiedad
'************************************

'Cadena de conexión de base de datos de salida
'Tipo de valor de retorno: cadena

Propiedad Obtener ConnectString
ConnectString = Conn_Str
Propiedad final

'Establecer cadena de conexión de base de datos (cadena de conexión de base de datos)
' Parámetro: str --- cadena

Propiedad Let ConnectString(str)
Conn_Str = cadena
Propiedad final

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

'Se abre la base de datos
Sub pública DB_Open().
Conn.ConnectionString = Conn_Str
Conexión abierta
End Sub

'La base de datos está cerrada
Sub pública DB_Close()
Conexión.Cerrar
Fin Sub

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

'Consulta de base de datos (instrucción SQL)
'Parámetros y categorías: sql ---- cadena
'Tipo de valor de retorno: conjunto de registros
'Requisito previo: el estado de la base de datos es abierto

Función pública DB_Select(sql)
Establecer DB_Select = Conn.Execute(sql)
Función final

'Ejecución de base de datos (declaración SQL)
'Parámetros y categorías: sql ---- cadena
'Tipo de valor de retorno: entero
'Significado del valor de retorno: número de filas afectadas
'Requisito previo: el estado de la base de datos es abierto

Función pública DB_Excute(sql)
Dim rs_affected
Conexión.Ejecutar sql,rs_affected
DB_Excute = rs_afectados

Clase final

de función final

%>