Рекомендуется: код шаблона ASP Шаблон класса Private M_FILENAME, M_ROOT, M_UNKNOWNS, M_LASTERROR, M_HALTONERR Private M_VALUELIST, M_BLOCKLILLET Private M_REGEXP Private Sub Class_Initialize SET M_Valuelist = createObject (scripting.dictionar
При написании программы базы данных ASP мы обычно используем операторы SQL, и при добавлении и обновлении данных мы обычно используем следующий метод: вставьте значения Message (Incept, Sender, Title, Senttime, Flag, Issend) ('& incept (i) &', '& membername &', '& title &', '& message &' owd (i), 0,1). изменить и найти ошибки. После использования этого класса SQL он может быть упрощен, и проще проверять ошибки. Добавление имен поля и значения поля через функцию Addfield класса может легко вставить имена поля и значения поля в операторы SQL, а затем вернуть оператор SQL.
Давайте посмотрим на код этого класса:
＜%
Класс SQLString
'*************************************
'Переменная определение
'*************************************
'stablename --- имя таблицы
'ISQLTYPE --- SQL оператора Тип: 0-ADD, 1-Update, 2-Delete, 3-Query
'Шепь --- Условия
'Sorder --- Сортировать
'ssql ---- Значение
Частное становое имя, isQltype, Swhere, Sorder, SSQL
'*************************************
'Инициализация/конец класса
'*************************************
Private sub class_initialize ()
stableName =
isqltype = 0
Swhere =
Сордер =
SSQL =
Конец суб
Private sub class_terminate ()
Конец суб
'*************************************
'свойство
'*************************************
'Установите свойства названия таблицы
Общественная недвижимость пусть табличка (стоимость)
stableName = значение
Конец собственности
'Установите условия
Публичная собственность пусть (стоимость)
Swhere = значение
Конец собственности
'Установите метод сортировки
Публичная собственность пусть заказ (стоимость)
Sorder = значение
Конец собственности
'Установите тип оператора запроса
Общественная собственность Let SQLTYPE (значение)
isqltype = значение
Выберите случай isqltype
Случай 0
ssql = вставьте в#0 (#1) значения (#2)
Случай 1
ssql = update #0 Установите #1 = #2
Случай 2
ssql = удалить из #0
Случай 3
ssql = select #1 из #0
конец выбора
Конец собственности
'*************************************
'функция
'*************************************
'Добавить поле (имя поля, значение поля)
Public Sub Addfield (SfieldName, Svalue)
Выберите случай isqltype
Случай 0
ssql = reply (ssql,#1, sfieldname &,#1)
ssql = reply (ssql,#2, '& sfieldname &',#2)
Случай 1
ssql = reply (ssql,#1, sfieldname)
ssql = reply (ssql,#2, '& sfieldname &',#1 =#2)
Случай 3
ssql = reply (ssql,#1, sfieldname &,#1)
Конец выбора
Конец суб
'Return SQL -оператор
Публичная функция returnsql ()
ssql = reply (ssql,#0, stablename)
Выберите случай isqltype
Случай 0
SSQL = Заменить (SSQL ,,#1,)
SSQL = Заменить (SSQL ,,#2,)
Случай 1
ssql = reply (ssql ,,#1 =#2,)
Случай 3
SSQL = Заменить (SSQL ,,#1,)
конец выбора
Если штупь ＜＞ то
ssql = ssql и где и швы
конец, если
Если сордер ＜＞ то
ssql = ssql & order by & sorder
конец, если
Returnsql = ssql
Конечная функция
'Четкое утверждение
Public Sub Clear ()
stableName =
isqltype = 0
Swhere =
Сордер =
SSQL =
Конец суб
конечный класс
%＞
Как использовать:
Пример: вставьте в сообщение (Incept, Sender, Title, Content, Sendtime, Flag, Issend) Values ('& inept (i) &', '& membername &', '& title &', '& message &', now (), 0,1)
Установите A = новый SQLString 'Create Class объект
a.tablename = Сообщение 'Установите имя таблицы в качестве сообщения
a.sqltype = 0 'Установите тип запроса, чтобы добавить запись
A.Addfield Incept, Incept (I)
A.Addfield Sender, MemberName
A.Addfield Title, MemberName
A.Addfield Sender, заголовок
A.Addfield Content, сообщение
A.Addfield Sendtime, Sendtime ()
Флаг А.Аддфилда, 0
A.Addfield Issend, 1
Response.Write A.ReturnSQL
Установите A = ничего
Поделиться: календарная программа, произведенная ASP Чистая календарная программа, созданная ASP, может быть украшена сама по себе, и здесь доступен только самый простой стиль CSS. Полем Полем Стиль корпус {размер шрифта: 12px; Полевая: 20px 0 0 20px; Подкладка: 0} tr, td {text-align: center;} /style % '=============================================================================== ================================================================================= ================================================================================= =================================================================================