Как программист, я считаю, что у каждого есть свои функции библиотеки и библиотеки классов. Работая над проектом, извлеките желаемые функции и классы из библиотеки. Это может повысить эффективность развития. Класс в библиотеке CJJ Special ASP Class
Кода -копия выглядит следующим образом:
'--- *********************
'Структура строки подключения к базе данных
Classtconnstring
Publicdbname, dbpath, dbserver, dbuser, dbpass, dbtype
Endclass
'--- *********************
'--- ************************
'Общий класс работы базы данных
Classtdboperate
PrivateCls_oconn, CLS_ORS 'Class Private Connection объект, объект записи
Privatecls_serrinfo, cls_sconn, cls_ssql, cls_surl, cls_sformaction
Privatecls_ipagesize 'количество страниц
Privatecls_ltotalpage, cls_ltotalrecord, cls_lpageno
'Инициализация класса
Privatesubclass_initialize ()
Заканчивая
'*******************************************
Тип: свойства
«Цель: создать подключение к базе данных на основе полученного ConnectionString
'Input: a_sconn: строка типа данных
'Return: нет
'*******************************************
Publicpropertyletsetconn (a_sconn)
DimSobjtype
sobjtype = lcase (typename (a_sconn))
Ifsobjtype <> "string" then
cls_serrinfo = cls_serrinfo & "<li> setConn: нелегальный параметр строки </li>" & chr (10)
ExitProperty
Эндиф
SetCls_oconn = createObject ("adodb.connection")
OnerRorResumenext
cls_oconn.opena_sconn