<%
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'Класс операции с базой данных
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'Имя: Class_DBPerate
'Версия: 0.2
'Автор: qihangnet
'Обновление: 14 июня 2005 г.
'Функция: Упрощение процесса операций с базой данных.
'Авторизация: бесплатное использование
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Class Class_DBOperate
'************ * **************************
'Определение переменной
'************************************
'Conn ---------- объект подключения к базе данных
'Conn_Str ------ Строка подключения к базе данных
Private Conn,Conn_Str
'************************************ ** ***
'Инициализация/завершение экземпляра
'************************************
Частный подкласс_Initialize()
Set Conn = Server.CreateObject("ADODB.Connection")
Конец
частного подкласса Sub Class_Teriminate()
SetConn=Ничего
Завершить подписку
'************************************
'свойство
'************************************
'Выходная строка подключения к базе данных
'Тип возвращаемого значения: строка.
Свойство Get ConnectString
ConnectString = Conn_Str
End Property
'Установить строку подключения к базе данных (строка подключения к базе данных)
' Параметр: str --- string
Property Let ConnectString(str)
Conn_Str = ул
Конечный объект
'************************************
'событие
'************************************
'База данных открывается
Публичная подсистема DB_Open() .
Conn.ConnectionString = Conn_Str
Конн.Открыть
End Sub
'База данных закрыта
Публичная подписная база данных_Close()
Конн.Закрыть
Завершить подписку
'************************************
'метод
'************************************
'Запрос к базе данных (оператор sql)
'Параметры и категории: sql ---- строка
'Тип возвращаемого значения: набор записей
' Предварительное условие: статус базы данных открыт.
Public Function DB_Select(sql)
Установите DB_Select = Conn.Execute(sql)
Конечная функция
'Выполнение базы данных (оператор SQL)
'Параметры и категории: sql ---- строка
'Тип возвращаемого значения: целое число
'Возвращаемое значение означает: количество затронутых строк
' Предварительное условие: статус базы данных открыт.
Public Function DB_Excute(sql)
Тусклый rs_affected
Conn.Execute sql,rs_affected
DB_Excute = rs_affected
Конечная функция
Конечный класс
%>