<%@Language = vbscript codepage = 936%>
< % Вариант явно %>
< % Response.buffer = true %>
<%
'/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ////////////////////Gestingead ///////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////Glesle //////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////ggestlene as/////////////////////////// /////////////////////////gons
'///
'/// Имя файла: sqlbuilderforvbs
'/// Функция: Создайте несколько простых операторов SQL.
'/// Programmaker: Zeng Siyuan
'/// Описание: Простая конструкция предложения SQL «Класс класса», версия VBS, если вы сохраняете этот раздел аннотации, независимо от того, включает ли он бизнес, вы можете использовать его произвольно, перепечатать или цитату
'/// Дата: 2005-1-8
'/// _________________________________________________________________________________________________
'/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ////////////////////Gestingead ///////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////Glesle //////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////ggestlene as/////////////////////////// /////////////////////////gons
%>
<%
При ошибке резюме следующим
Класс QuestStringBuilder
Prive objfields
Частный StrtableName
Частный стрип
Частный стрпкисорт
Частная Strcondition
Private acate () ()
Частный стриперитор
Частный стрллог
Частный BLNState
'/----- Инициализация -----/
Private sub class_initialize ()
Установить objfields = server.createObject (scripting.dictionary)
strtablename = null
strpkey = null
strpkeysort = null
Strcondition = null
Redim Acontition (1)
Стратор = =
Strlogic = и
blnstate = false
Конец суб
Private sub class_terminate ()
установить objfields = ничего
strtablename = null
strpkey = null
strpkeysort = null
Strcondition = null
Стереть туалет
Стратор = NULL
Strlogic = null
blnstate = false
Конец суб
' /---- Имя поля обработка ----- /
Заказное полевое поле (Byval Sfield)
Processfield = [& sfield &]
конечная функция
' /----- Обработка значений поля ------ / /
Private Function ProcessValue (Byval Svalue)
Dim tmptype: tmptype = vartype (svalue)
Выберите Case tmptype
Случай 2,3,4,5,11 'Цифровой тип, логический тип
ProcessValue = SVALUE
Случай 8 'Тип символа
Processvalue = '& safe (svalue) &'
ДРУГИЕ ДРУГИЕ ТИПЫ
Processvalue = '& safe (svalue) &'
конец выбора
конечная функция
/----- Комплексное лечение ------ /
Процесс частной функции (Byref obj, Byval Strype)
Dim Keys: Keys = obj.keys
Dim Items: элементы = obj.items
dim intcount: intcount = obj.count
Dim tmp ()
Redim TMP (1)
Если intcount> 0, то
Dim tmparray (), я
Redim tmparay (Intcount-1)
для i = 0 к intcount -1
tmparray (i) = keys (i) & = & ements (i)
следующий
Выберите Case Ucase (trim (strtype))
обновление случая
Process = join (tmparray ,,)
Кейс Select
Process = join (ключи ,,)
Кейс вставка
TMP (0) = join (ключи ,,)
TMP (1) = Join (пункты ,,)
Процесс = tmp
Стереть TMP
конец выбора
Стереть tmparray
еще
Выберите Case Ucase (trim (strtype))
обновление случая
Процесс = false
Кейс Select
Процесс = *
Кейс вставка
Процесс = tmp
конец выбора
конец, если
конечная функция
' /----- Небольшой лечение безопасности ----- /
Частная функция сохранение (ов)
safe = reply (s, ',' ')
конечная функция
' /----- Параметры предыдущего ввода, но сохранение имени таблицы ------ / /
Public Sub Clear ()
objfields.removeall
'Strtableneame = null
strpkey = null
strpkeysort = null
Strcondition = null
Стереть туалет
Стратор = =
Strlogic = и
blnstate = false
Конец суб
' /---- Сгенерировать операторы запроса ---- /
Публичная функция getSelect ()
Dim Strsqltemplate: strsqltemplate = select {fields} из {таблицы} {условий} {orderby} {sort}
Strsqltemplate = reply (strsqltemplate, {fields}, process (objfields, select)))
Если masspe (strtableneame) = 1, то выход функции
Strsqltemplate = replace (strsqltemplate, {table}, strtableneame)
Если masspe (strcondition) <> 1 и strcondition <> then
strsqltemplate = reply (strsqltem