Главная страница>Исходный код ASP>Другие категории
Скачать

#: Разработка продолжается - Разработка продолжается :#

КлассическийASP-помощник

(TR) Это первая известная компактная библиотека утилит Classic ASP (согласно моим исследованиям). Он имеет структуру, которая сокращает часто выполняемые операции, помогает практично ускорить работу с базами данных и этапы разработки программного обеспечения, а также упрощает ваши разработки. Вы можете интегрировать его с существующими библиотеками, разрабатывать и распространять. Пожалуйста, не забудьте поставить ему звезду и добавить его в свой список наблюдения.

(EN) Первая классическая вспомогательная утилита для кодирования ASP

Использование

(TR) Сначала включите файл по его физическому пути в файл проекта. (РУ) ... 

 <!--#include file= "/{path}/casphelper.asp" -->

(TR) Если вы хотите запустить библиотеку самостоятельно, добавьте приведенный ниже код в свой проект для запуска первым (EN)... 

 < %
Set Query = New QueryManager
% >

(TR) Теперь вам просто нужно использовать переменную Query для всех ваших операций. (РУ) ... 

 < %
Dim Query
Set Query = New QueryManager
  Query.Debug          = False
  Query.Host           = "localhost"
  Query.Database       = "my_db_name"
  Query.User           = "my_db_username"
  Query.Password       = "MyS3c3tP4ssw0d"
  Query.Connect()
% >

SQL

Вставить/обновить

Если мы хотим ВСТАВИТЬ или ОБНОВИТЬ запрос SQL, нам нужно сохранить значения входных имен нашей формы такими же, как имена столбцов соответствующей таблицы. Библиотека здесь делает несколько вещей.

  • Совпадают ли входящие параметры имени FORM/POST и имена столбцов целевой таблицы? Если оно не совпадает, данные за пределами поля импортироваться не будут.
  • Соответствуют ли входящие данные типу данных целевого столбца? (INT, VARCHAR/ДЛИННЫЙ ТЕКСТ, ДАТА/ДАТАВРЕМЯ)
  • Входящие данные пусты?

В результате из библиотеки возвращаются два типа ответов.

  • Если операция INSERT прошла успешно, возвращаются параметр ID и номер последней добавленной записи (INT).
  • Если операция UPDATE прошла успешно, она возвращает true, в случае неудачи — false (BOOLEAN).

- ЗапуститьРасширить(ВСТАВИТЬ)

(TR) Функция RunExtend — это простая функция возврата, а параметр INSERT возвращает значение первичного ключа (ID) (INT) строки, добавленной в результате операции. Этот результат сообщает, была ли операция INSERT успешной или нет. (РУ) ... 

 Query.RunExtend( "INSERT" , "table_name" , Null)

(TR) В качестве примера можно использовать следующую структуру. (РУ) ... 

 < %
If Query.Data( "Cmd" ) = "InsertSample" Then 
    Dim QueryResult
    QueryResult = Query.RunExtend( "INSERT" , "tbl_users" , Null)
    If IsNumeric( QueryResult ) Then
        Response.Write "Başarılı / Success"
        Response.Write "ID: " & QueryResult
    Else 
        Response.Write "Başarısız / Failed"
    End If
End If
% >

(TR) Структура формы должна быть следующей. (РУ) ... 

 < form action =" /?Cmd=InsertSample " method =" post " >
    < input name =" NAME " value =" Anthony Burak " />
    < input name =" SURNAME " value =" Dursun " />
    < input name =" BIRTHDAY " value =" 24.07.1986 " />
    < button type =" submit " > Insert </ button >
</ form >

(TR) Структура базы данных следующая (EN)...

НАЗВАНИЕ ПОЛЯ ТИП
ИДЕНТИФИКАТОР (INT) Первичный ключ
ИМЯ (ВАРЧАР)
ФАМИЛИЯ (ВАРЧАР)
ДЕНЬ РОЖДЕНИЯ (ДАТА)

- RunExtend (ОБНОВЛЕНИЕ)

(TR) Функция RunExtend — это простая функция возврата, а параметр UPDATE возвращает true или false (логическое значение) в результате операции. Этот результат сообщает, была ли операция UPDATE успешной или нет (EN)... 

 Query.RunExtend( "UPDATE" , "table_name" , "ID={ID}" )

(TR) В качестве примера можно использовать следующую структуру. (РУ) ... 

 < %
If Query.Data( "Cmd" ) = "UpdateSample" Then 
    Dim QueryResult
    QueryResult = Query.RunExtend( "UPDATE" , "tbl_uyeler" , "ID={ID}" )
    If QueryResult = True Then 
        Response.Write "Başarılı / Success"
    Else 
        Response.Write "Başarısız / Failed"
    End If
End If
% >

(TR) Структура формы должна быть следующей. (РУ) ... 

 < form action =" /?Cmd=UpdateSample&ID=123 " method =" post " >
    < input name =" NAME " value =" Anthony Burak " />
    < input name =" SURNAME " value =" Dursun " />
    < input name =" BIRTHDAY " value =" 24.07.1986 " />
    < button type =" submit " > Update </ button >
</ form >

(TR) Структура базы данных следующая (EN)...

НАЗВАНИЕ ПОЛЯ ТИП
ИДЕНТИФИКАТОР (INT) Первичный ключ
ИМЯ (ВАРЧАР)
ФАМИЛИЯ (ВАРЧАР)
ДЕНЬ РОЖДЕНИЯ (ДАТА)

-CollectForm & Run (устарело)

(TR) Комбинация команд «Коллектор» и «Выполнить» в первой версии библиотеки следующая. Функция CollectForm собирает параметры Request.Form, которые входят в состав метода FORM Post, и объединяет их для INSERT или UPDATE. Механизма контроля нет. Ошибка параметра возвращается к Error Raise. (РУ) ... 

 < %
If Query.Data( "Cmd" ) = "UpdateSample" Then 
	Query.CollectForm( "INSERT" )
	Query.AppendRows    = "EKSTRA1, EKSTRA2"
	Query.AppendValues  = "'Manuel Eklenecek Veri 1', 'Manuel Eklenecek Veri 2'"
	Query.Run( "INSERT INTO tbl_tableName(" & Query.Rows & ") VALUES(" & Query.Values & ")" )
	Query.Go( "?Msg=Success" )
End If
% >

ЗаписьExist (sql)

(TR) Возвращает результат SQL-запроса как true или false . Он используется в качестве заменителя EOF в традиционных методах. (РУ) ... 

 < %
Dim QueryResult
QueryResult = Query.RecordExist( "SELECT ID FROM tbl_users WHERE ID = 1" )
If QueryResult = True Then
    Response.Write "Record Exist"
Else
    Response.Write "Record Not Exist"
End If
% >

МаксИД

(TR) Позволяет возвращать максимальное значение идентификатора (PrimaryKey) в любой таблице и условии. Проверка ошибок отсутствует. (РУ) ... 

 Query.MaxID( "tbl_tableName" )

(TR) Для условных ситуаций (EN)... 

 Query.MaxID( "tbl_tableName WHERE EMAIL = '[email protected]'" )

Выполнить SQL [conn.Execute(sqlQuery)]

(TR) Единственная настройка этой функции заключается в том, что данные, получаемые с помощью Request.Querystring, могут быть заменены . Если структура URL-адреса равна /?Cmd=Update&ID=123, параметр {ID} в запросе обновляется до 123 . . Он реализует стандартный параметр obj.Execute(sql). (РУ) ... 

 < %
Query.Run( "SELECT ID FROM tbl_tableName WHERE ID = {ID} " )
Query.Run( "SELECT ID FROM tbl_tableName WHERE ID = " & Query.Data( "ID" ) & " " )
Query.Run( "SELECT ID FROM tbl_tableName WHERE ID = 1 " )
% >

Запрос и ответ

- Запрос.Форма/QueryString

(TR) Если вы хотите получить данные формы или строки запроса, вы можете получить их как Query.Data("key") или встроенно как {key} . Ваше программное обеспечение будет фиксировать все параметры даже в структуре URL-адресов 404. Может использоваться вместо Requet.Form(key) или Request.QueryString(key). (РУ) ... 

 < %
Dim SampleValue
SampleValue = Query.Data( "ID" )
% >

(TR) Если существование данных не обнаружено (Null, Empty), результат всегда может быть возвращен с Empty. (РУ) ... 

 /script.asp?Cmd=Test&Data1=value&Data2=&Data3=value3
/ 404 url/params/?Cmd=Test&Data1=value&Data2=&Data3=value3

< %
Response.Write Query.Data( "Cmd" )    ' return Test (String)
Response.Write Query.Data( "Data1" )  ' return value (String)
Response.Write Query.Data( "Data2" )  ' return 
Response.Write Query.Data( "Data3" )  ' return value3 (String)
% >

- Ответ.Перенаправление

(TR) Response.Redirect — это команда, которую можно использовать вместо «url.asp?some=string» после завершения транзакции. Вы можете обрабатывать текущие данные запроса. Параметрические обновления можно использовать для получения параметров формы или строки запроса. (РУ) ... 

 < %
Query.Go( "url.asp?some=string" )
Query.Go( "url.asp?some={ID}" )
% >

- Ответ.Написать

(TR) Вместо использования стандартного Response.Write("test") можно использовать Query.Echo("test") . (РУ) ... 

 < %
Query.Echo( "test" )
% >

- Ответ.Конец

(TR) Query.Kill() можно использовать вместо стандартного Response.End() . (РУ) ... 

 < %
Query.Kill()
% >

Помощники

-Существовать()

(TR) Он может проверить существование любой переменной. Выполняет проверки IsNull, IsEmpty, Len()>0 и возвращает истинный или ложный (логический) результат (EN)... 

 < %
str_value1 = ""
str_value2 = 2
If Query.Exist(str_value1) = True Then
    ' return true
End If

If Query.Exist(str_value2) = False Then
    ' return false
End If
% >

- FindInArray(Строка, Массив)

(TR) Ищет любые строковые данные в группе массивов. Он выполняет проверку точного соответствия и применяет автоматическую обрезку(). Если результат найден, возвращается порядковый номер. Если результат не найден, возвращается нулевой результат. (РУ) ... 

 < %
Dim str_array
str_array = Array( "test" , "apple" , "fruit" , "banana" , "mercedes" )

Dim QueryResult
QueryResult = Query.FindInArray( "apple" , str_array)
If IsNull( QueryResult ) Then
    Query.Echo "Not Found"
Else
    Query.Echo "apple found in array index: " & QueryResult
End If
% >

- РазрешенныйМетод (Имя Метода)

(TR) В некоторых случаях вы можете ограничить доступ к соответствующей области транзакции только определенными методами. Например, если вы используете метод="POST" для формы, вы можете подтвердить в приветствии, что это действительно метод "POST". (РУ) ... 

 < %
If Query.AllowedMethod( "POST" ) = False Then
    Query.Echo "Only POST Method Allowed"
    Query.Kill
End If
% >
Расширять
Дополнительная информация
Связанные приложения
Рекомендуем вам
Связанные новости Все