Я нашел его путем поиска информации в Интернете, но обнаружил некоторые проблемы при отладке. После некоторых доработок все еще есть некоторые проблемы, но его можно использовать для общего использования. Проблема с типом данных и разница между SQL Server и доступом не рассматривались. Я улучшу это, когда у меня будет время, и не знаю, насколько это будет эффективно. Если кто-нибудь улучшит его, пришлите мне копию.
Скопируйте код кода следующим образом:
<%
классSQLString
'************************************
'Определение переменной
'************************************
'sTableName ---- имя таблицы
'iSQLType ----Тип оператора SQL: 0-добавление, 1-обновление, 2-удаление, 3-запрос
'Где ---- условие
'sOrder ---- метод сортировки
'sSQL ---- значение
Частное имя таблицы, iSQLType, sWhere, sOrder, sSQL
'************************************
'Инициализация/завершение класса
'************************************
Частный подкласс_Initialize()
sTableName=""
iSQLType=0
sГде=""
сОрдер=""
sSQL=""
Конец субтитра
Частный подкласс_Terminate()
Конец субтитра
'************************************
'свойство
'************************************
'Установим свойства имени таблицы
Открытое свойство Let TableName(значение)
sTableName=значение
Конечная собственность
'Установить условия
Общественная собственность Let Где(значение)
sWhere=значение
Конечная собственность
'Установить метод сортировки
Порядок сдачи в аренду государственной собственности (стоимость)
sOrder=значение
Конечная собственность
'Установим тип запроса
Открытое свойство Let SQLType(значение)
iSQLType=значение
выберите регистр iSQLType
случай 0
sSQL="вставить в {&*#}0 ({&*#}1) значения ({&*#}2)"
случай 1
sSQL="обновить {&*#}0 set {&*#}1={&*#}2"
случай 2
sSQL="удалить из {&*#}0 "
случай 3
sSQL="выберите {&*#}1 из {&*#}0"
конец выбора
Конечная собственность
'************************************
'функция
'************************************
'Добавить поле (имя поля, значение поля)
Публичный дополнительный AddField(sFieldName,sValue)
выберите регистр iSQLType
случай 0
sSQL=replace(sSQL,"{&*#}1",sFieldName & ",{&*#}1")
sSQL=replace(sSQL,"{&*#}2","" & sValue & ",{&*#}2")
случай 1
sSQL=replace(sSQL,"{&*#}1",sFieldName)
sSQL=replace(sSQL,"{&*#}2","" & sValue & ",{&*#}1={&*#}2")
случай 3
sSQL=replace(sSQL,"{&*#}1",sFieldName & ",{&*#}1")
Конец выбора
Конец субтитра
'Модифицированная функция, которая возвращает строковое значение
'Возвращаем оператор SQL
Открытая функция ReturnSQL()
sSQL=replace(sSQL,"{&*#}0",sTableName)
выберите регистр iSQLType
случай 0
sSQL=replace(sSQL,",{&*#}1","")
sSQL=replace(sSQL,",{&*#}2","")
случай 1
sSQL=replace(sSQL,",{&*#}1={&*#}2","")
случай 3
sSQL=replace(sSQL,",{&*#}1","")
конец Выбрать
если sWhere<>"" и iSQLType<>0, то
sSQL=sSQL & "где" & sWhere
конец, если
если sOrder<>"" и iSQLType<>0, то
sSQL=sSQL & "упорядочить по" & sOrder
конец, если
ВозвратSQL=sSQL
Конечная функция
'Возвращаем оператор SQL
Открытая функция ReturnSQL1()
sSQL=replace(sSQL,"{&*#}0",sTableName)
выберите регистр iSQLType
случай 0
sSQL=replace(sSQL,",{&*#}1","")
sSQL=replace(sSQL,",{&*#}2","")
случай 1
sSQL=replace(sSQL,",{&*#}1={&*#}2","")
случай 3
sSQL=replace(sSQL,",{&*#}1","")
конец Выбрать
если sWhere<>"" и iSQLType<>0, то
sSQL=sSQL & "где" & sWhere
конец, если
если sOrder<>"" и iSQLType<>0, то
sSQL=sSQL & "упорядочить по" & sOrder
конец, если
ВозвратSQL=sSQL
Конечная функция
«Четкое заявление
Публичный SubClear()
sTableName=""
iSQLType=0
где=""
сОрдер=""
sSQL=""
Конец субтитра
Конец урока
%>
Пример звонка:
<%
set a =new SQLString 'Создать объект класса
a.TableName=" message " 'Установить имя таблицы message
'a.where=" issend =9"
'a.order="исправить описание"
a.SQLType=0 'Установите тип запроса для добавления записей
a.AddField "начало", "2"
a.AddField "отправитель", "'%3%'"
a.AddField " title ", "#"&now&"#"
a.AddField "отправитель", "5"
a.AddField "контент", "6"
a.AddField "время отправки", "7"
a.AddField "флаг", 8
a.AddField "issend", 9
Response.Write a.ReturnSQl
установить = ничего
%>
<%
set a =new SQLString 'Создать объект класса
a.TableName=" message " 'Установить имя таблицы message
'a.where=" issend =9"
'a.order="исправить описание"
a.SQLType=0 'Установите тип запроса для добавления записей
a.AddField "начало", "2"
a.AddField "отправитель", "'%3%'"
a.AddField " title ", "#"&now&"#"
a.AddField "отправитель", "5"
a.AddField "контент", "6"
a.AddField "время отправки", "7"
a.AddField "флаг", 8
a.AddField "issend", 9
Response.Write a.ReturnSQl
установить = ничего
%>
<%
set a =new SQLString 'Создать объект класса
a.TableName=" message " 'Установить имя таблицы message
'a.where=" issend =9"
'a.order="исправить описание"
a.SQLType=0 'Установите тип запроса для добавления записей
a.AddField "начало", "2"
a.AddField "отправитель", "'%3%'"
a.AddField " title ", "#"&now&"#"
a.AddField "отправитель", "5"
a.AddField "контент", "6"
a.AddField "время отправки", "7"
a.AddField "флаг", 8
a.AddField "issend", 9
Response.Write a.ReturnSQl
установить = ничего
%>