หน้าแรก>ซอร์สโค้ด ASP>หมวดหมู่อื่นๆ
ดาวน์โหลด

#: การพัฒนาดำเนินต่อไป - การพัฒนาดำเนินต่อไป :#

ClassicASP-Helper

(TR) เป็นไลบรารียูทิลิตี้ Classic ASP ขนาดกะทัดรัดตัวแรกที่รู้จัก (ตามการวิจัยของฉัน) มีโครงสร้างที่ทำให้การดำเนินการที่คุณทำบ่อยสั้นลง ช่วยให้คุณเร่งงานฐานข้อมูลและขั้นตอนการพัฒนาซอฟต์แวร์ให้ใช้งานได้จริง และทำให้การพัฒนาของคุณง่ายขึ้น คุณสามารถรวมเข้ากับไลบรารีที่คุณมีอยู่ พัฒนา และแจกจ่ายได้ โปรดอย่าลืมให้ดาวและเพิ่มลงในรายการเฝ้าดูของคุณ

(EN) ยูทิลิตี้ตัวช่วยเขียนโค้ด ASP แบบคลาสสิกตัวแรก

การใช้งาน

(TR) ขั้นแรก รวมไฟล์จากพาธฟิสิคัลลงในไฟล์โปรเจ็กต์ของคุณ (TH) ... 

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

(TR) หากคุณต้องการเริ่มไลบรารีด้วยตนเอง ให้เพิ่มโค้ดด้านล่างลงในโปรเจ็กต์ของคุณเพื่อรันก่อน (EN) ... 

 < %
Set Query = New QueryManager
% >

(TR) ตอนนี้คุณเพียงแค่ต้องใช้ตัวแปร Query สำหรับการดำเนินการทั้งหมดของคุณ (TH) ... 

 < %
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 แบบสอบถาม SQL เราจำเป็นต้องรักษาค่าชื่ออินพุตแบบฟอร์มให้เหมือนกับชื่อคอลัมน์ของตารางที่เกี่ยวข้อง ห้องสมุดทำหน้าที่บางอย่างที่นี่

  • พารามิเตอร์ชื่อ FORM/POST ขาเข้าและชื่อคอลัมน์ตารางเป้าหมายตรงกันหรือไม่ หากไม่ตรงกัน ข้อมูลนอกฟิลด์จะไม่ถูกนำเข้า
  • ข้อมูลขาเข้าตรงกับประเภทข้อมูลคอลัมน์เป้าหมายหรือไม่ (INT, VARCHAR/ลองเท็กซ์, วันที่/วันที่และเวลา)
  • ข้อมูลขาเข้าว่างเปล่าหรือไม่?

เป็นผลให้มีการส่งคืนคำตอบสองประเภทจากห้องสมุด

  • หากการดำเนินการ INSERT สำเร็จ พารามิเตอร์ ID และหมายเลขบันทึกที่เพิ่มล่าสุด (INT) จะถูกส่งกลับ
  • หากการดำเนินการ UPDATE สำเร็จ จะคืนค่าเป็นจริง หากล้มเหลว จะส่งคืนค่าเท็จ (BOOLEAN)

- RunExtend (แทรก)

(TR) ฟังก์ชัน RunExtend เป็นฟังก์ชันส่งคืนอย่างง่าย และพารามิเตอร์ INSERT ส่งคืนค่า primaryKey (ID) (INT) ของแถวที่เพิ่มอันเป็นผลมาจากการดำเนินการ ผลลัพธ์นี้จะแจ้งให้ทราบว่าการดำเนินการ INSERT สำเร็จหรือไม่ (TH) ... 

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

(TR) สามารถใช้โครงสร้างต่อไปนี้เป็นตัวอย่างการใช้งาน (TH) ... 

 < %
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) โครงสร้างแบบฟอร์มควรเป็นดังนี้ (TH) ... 

 < 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 ส่งคืนค่า จริง หรือ เท็จ (บูลีน) อันเป็นผลมาจากการดำเนินการ ผลลัพธ์นี้จะแจ้งให้ทราบว่าการดำเนินการ UPDATE สำเร็จหรือไม่ (EN)... 

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

(TR) สามารถใช้โครงสร้างต่อไปนี้เป็นตัวอย่างการใช้งาน (TH) ... 

 < %
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) โครงสร้างแบบฟอร์มควรเป็นดังนี้ (TH) ... 

 < 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) การรวมกันของคำสั่ง Collector และ Run ในเวอร์ชันแรกของไลบรารีมีดังนี้ ฟังก์ชัน CollectForm รวบรวมพารามิเตอร์ Request.Form ที่มาพร้อมกับวิธีการ FORM Post และรวมเข้าด้วยกันสำหรับ INSERT หรือ UPDATE ไม่มีกลไกการควบคุม ข้อผิดพลาดของพารามิเตอร์ส่งกลับเป็น Error Raise (TH) ... 

 < %
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
% >

บันทึกที่มีอยู่(sql)

(TR) ส่งกลับผลลัพธ์ของการสืบค้น SQL เป็น จริง หรือ เท็จ มันถูกใช้แทน EOF ในวิธีการดั้งเดิม (TH) ... 

 < %
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
% >

MaxID

(TR) เปิดใช้งานค่า ID สูงสุด (PrimaryKey) ที่จะส่งคืนในตารางและเงื่อนไขใดๆ ไม่มีการตรวจสอบข้อผิดพลาด (TH) ... 

 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) (TH) ... 

 < %
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 " )
% >

คำขอและการตอบสนอง

- Request.Form/QueryString

(TR) หากคุณต้องการรับแบบฟอร์มหรือข้อมูลสตริงการสืบค้น คุณสามารถรับเป็น Query.Data("key") หรืออินไลน์เป็น {key} ซอฟต์แวร์ของคุณจะจับพารามิเตอร์ทั้งหมดแม้ในโครงสร้าง URL 404 สามารถใช้แทน Requet.Form(key) หรือ Request.QueryString(key) (TH) ... 

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

(TR) หากไม่พบข้อมูลที่มีอยู่ (Null, Empty) ผลลัพธ์สามารถส่งคืนได้ด้วย Empty เสมอ (TH) ... 

 /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" หลังจากเสร็จสิ้นธุรกรรมของคุณ คุณสามารถประมวลผลข้อมูลคำขอปัจจุบันได้ การอัปเดตพารามิเตอร์สามารถใช้เพื่อดึงข้อมูลแบบฟอร์มหรือพารามิเตอร์สตริงการสืบค้น (TH) ... 

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

- ตอบกลับเขียน

(TR) แทนที่จะใช้ Response.Write("test") มาตรฐาน สามารถใช้ Query.Echo("test") ได้ (TH) ... 

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

- การตอบสนองสิ้นสุด

(TR) Query.Kill() สามารถใช้แทน Response.End() มาตรฐานได้ (TH) ... 

 < %
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) ค้นหาข้อมูลสตริงในกลุ่มอาร์เรย์ จะทำการตรวจสอบการจับคู่แบบตรงทั้งหมดและใช้ Trim() อัตโนมัติ หากพบผลลัพธ์ หมายเลขดัชนีจะถูกส่งกลับ หากไม่พบผลลัพธ์ ผลลัพธ์ Null จะถูกส่งกลับ (TH) ... 

 < %
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
% >

- AllowedMethod (ชื่อเมธอด)

(TR) ในบางกรณี คุณสามารถจำกัดการเข้าถึงพื้นที่การทำธุรกรรมที่เกี่ยวข้องได้ด้วยวิธีบางอย่างเท่านั้น ตัวอย่างเช่น หากคุณใช้ Method="POST" สำหรับแบบฟอร์ม คุณสามารถยืนยันได้ในคำทักทายว่าวิธีการดังกล่าวคือ "POST" จริงๆ (TH) ... 

 < %
If Query.AllowedMethod( "POST" ) = False Then
    Query.Echo "Only POST Method Allowed"
    Query.Kill
End If
% >
ขยาย
ข้อมูลเพิ่มเติม
แอปที่เกี่ยวข้อง
แนะนำสำหรับคุณ
ข้อมูลที่เกี่ยวข้อง ทั้งหมด