ClassicASP Helper
1.0.0
(TR) 이것은 (내 연구에 따르면) 최초로 알려진 컴팩트 클래식 ASP 유틸리티 라이브러리입니다. 자주 수행하는 작업을 단축하고, 데이터베이스 작업과 소프트웨어 개발 단계를 실용성 있게 가속화하며, 개발을 보다 쉽게 해주는 구조를 가지고 있습니다. 기존 라이브러리와 통합하여 개발 및 배포할 수 있습니다. 별표를 주고 관심 목록에 추가하는 것을 잊지 마세요.
(EN) 최초의 클래식 ASP 코딩 도우미 유틸리티
(TR) 먼저 실제 경로의 파일을 프로젝트 파일에 포함시킵니다. (KO) ...
<!--#include file= "/{path}/casphelper.asp" -->(TR) 라이브러리를 직접 시작하려면 프로젝트에 아래 코드를 추가하여 먼저 실행하세요. (EN)...
< %
Set Query = New QueryManager
% >(TR) 이제 모든 작업에 쿼리 변수를 사용하기만 하면 됩니다. (KO) ...
< %
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 쿼리를 INSERT 또는 UPDATE하려면 양식 입력 이름 값을 해당 테이블의 열 이름과 동일하게 유지해야 합니다. 도서관은 여기서 몇 가지 일을 합니다.
결과적으로 두 가지 유형의 응답이 라이브러리에서 반환됩니다.
(TR) RunExtend 함수는 단순 반환 함수이며 INSERT 매개변수는 연산 결과로 추가된 행의 PrimaryKey(ID) 값(INT)을 반환합니다. 이 결과는 INSERT 작업의 성공 여부를 알려줍니다. (KO) ...
Query.RunExtend( "INSERT" , "table_name" , Null)(TR) 예시 용도로 다음과 같은 구조를 사용할 수 있습니다. (KO) ...
< %
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) 양식구조는 다음과 같아야 한다. (KO) ...
< 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) ...
| 필드 이름 | 유형 |
|---|---|
| ID | (INT) 기본 키 |
| 이름 | (VARCHAR) |
| 성 | (VARCHAR) |
| 생일 | (날짜) |
(TR) RunExtend 함수는 단순 반환 함수이며 UPDATE 매개 변수는 작업 결과로 true 또는 false (부울)를 반환합니다. 이 결과는 UPDATE 작업의 성공 여부를 알려줍니다(EN).
Query.RunExtend( "UPDATE" , "table_name" , "ID={ID}" )(TR) 예시 용도로 다음과 같은 구조를 사용할 수 있습니다. (KO) ...
< %
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) 양식구조는 다음과 같아야 한다. (KO) ...
< 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) ...
| 필드 이름 | 유형 |
|---|---|
| ID | (INT) 기본 키 |
| 이름 | (VARCHAR) |
| 성 | (VARCHAR) |
| 생일 | (날짜) |
(TR) 라이브러리 첫 번째 버전의 Collector 및 Run 명령 조합은 다음과 같습니다. CollectForm 함수는 FORM Post 메서드와 함께 제공되는 Request.Form 매개 변수를 수집하고 INSERT 또는 UPDATE를 위해 이를 결합합니다. 제어 메커니즘이 없습니다. 매개변수 오류가 오류 발생으로 돌아갑니다. (KO) ...
< %
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
% > (TR) SQL 쿼리 결과를 true 또는 false 로 반환합니다. 이는 전통적인 방법에서 EOF 대체물로 사용됩니다. (KO) ...
< %
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) 모든 테이블 및 조건에서 반환될 최대 ID(PrimaryKey) 값을 활성화합니다. 오류 검사가 없습니다. (KO) ...
Query.MaxID( "tbl_tableName" )(TR) 조건부 상황의 경우 (EN) ...
Query.MaxID( "tbl_tableName WHERE EMAIL = '[email protected]'" ) (TR) 이 함수에 대한 유일한 사용자 정의는 Request.Querystring으로 수신할 데이터를 대체 할 수 있다는 것입니다. URL 구조가 /?Cmd=Update&ID=123인 경우 쿼리에서 {ID} 매개변수가 123 으로 업데이트됩니다. . 이는 표준 obj.Execute(sql) 매개변수를 구현합니다. (KO) ...
< %
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 " )
% >(TR) 양식이나 쿼리 문자열 데이터를 가져오려면 Query.Data("key") 로 가져오거나 {key} 로 인라인으로 가져올 수 있습니다. 귀하의 소프트웨어는 404 URL 구조에서도 모든 매개변수를 캡처합니다. Requet.Form(key) 또는 Request.QueryString(key) 대신 사용할 수 있습니다. (KO) ...
< %
Dim SampleValue
SampleValue = Query.Data( "ID" )
% >(TR) 데이터의 존재를 찾을 수 없는 경우(Null, 비어 있음) 결과는 항상 비어 있음으로 반환될 수 있습니다. (KO) ...
/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" 대신 사용할 수 있는 명령입니다. 현재 요청 데이터를 처리할 수 있습니다. 파라메트릭 업데이트를 사용하여 양식 또는 쿼리 문자열 매개변수를 검색할 수 있습니다. (KO) ...
< %
Query.Go( "url.asp?some=string" )
Query.Go( "url.asp?some={ID}" )
% > (TR) 표준 Response.Write("test") 를 사용하는 대신 Query.Echo("test") 를 사용할 수 있습니다. (KO) ...
< %
Query.Echo( "test" )
% > (TR) 표준 Response.End() 대신 Query.Kill()을 사용할 수 있습니다. (KO) ...
< %
Query.Kill()
% >(TR) 모든 변수의 존재 여부를 확인할 수 있습니다. IsNull, IsEmpty, Len()>0 검사를 수행하고 true 또는 false (부울) 결과(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
% > (TR) 배열 그룹에서 문자열 데이터를 검색합니다. 정확한 일치 확인을 수행하고 자동 Trim()을 적용합니다. 결과가 발견되면 인덱스 번호가 반환됩니다. 결과가 없으면 Null 결과가 반환됩니다. (KO) ...
< %
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) 경우에 따라 특정 방법에 의해서만 해당 거래 영역에 대한 접근을 제한할 수 있습니다. 예를 들어, 양식에 Method="POST"를 사용하면 인사말에서 해당 메서드가 실제로 "POST"인지 확인할 수 있습니다. (KO) ...
< %
If Query.AllowedMethod( "POST" ) = False Then
Query.Echo "Only POST Method Allowed"
Query.Kill
End If
% >
