الصفحة الرئيسية>كود مصدر ASP>فئات أخرى
تنزيل

#: التطوير مستمر - التطوير مستمر :#

ClassicASP-Helper

(TR) إنها أول مكتبة أدوات مساعدة كلاسيكية مدمجة لـ ASP (وفقًا لبحثي). فهو يحتوي على هيكل يختصر العمليات التي تقوم بها بشكل متكرر، ويساعدك على تسريع عمل قاعدة البيانات الخاصة بك ومراحل تطوير البرامج بشكل عملي، ويجعل تطوراتك أسهل. يمكنك دمجها مع مكتباتك الموجودة وتطويرها وتوزيعها. من فضلك لا تنسى أن تعطيه نجمة وتضيفه إلى قائمة المشاهدة الخاصة بك.

(EN) الأداة المساعدة الأولى لمساعد ترميز ASP الكلاسيكي

الاستخدام

(TR) أولاً، قم بتضمين الملف من مساره الفعلي إلى ملف مشروعك. (بالإنكليزية)... 

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

(TR) إذا كنت تريد بدء المكتبة بنفسك، أضف الكود أدناه إلى مشروعك للتشغيل أولاً (EN) ... 

 < %
Set Query = New QueryManager
% >

(TR) الآن تحتاج فقط إلى استخدام متغير الاستعلام لجميع عملياتك. (بالإنكليزية)... 

 < %
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 أو تحديثه، فنحن بحاجة إلى الاحتفاظ بقيم اسم إدخال النموذج لدينا بنفس أسماء الأعمدة في الجدول ذي الصلة. تقوم المكتبة ببعض الأشياء هنا.

  • هل تتطابق معلمات اسم النموذج/المشاركة الواردة وأسماء أعمدة الجدول الهدف؟ إذا لم يكن متطابقًا، فلن يتم استيراد البيانات خارج الحقل.
  • هل تتطابق البيانات الواردة مع نوع بيانات العمود الهدف؟ (INT، VARCHAR/LONGTEXT، التاريخ/الوقت)
  • هل البيانات الواردة فارغة؟

ونتيجة لذلك، يتم إرجاع نوعين من الاستجابات من المكتبة.

  • إذا نجحت عملية INSERT، فسيتم إرجاع معلمة ID وآخر رقم سجل مضاف (INT).
  • إذا نجحت عملية UPDATE، فإنها تُرجع صحيحًا، وإذا فشلت، فإنها تُرجع خطأ (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) المفتاح الأساسي
اسم (فارتشار)
اسم العائلة (فارتشار)
عيد ميلاد (تاريخ)

- رونيكستيند (تحديث)

(TR) الدالة RunExtend هي دالة إرجاع بسيطة وترجع المعلمة 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) المفتاح الأساسي
اسم (فارتشار)
اسم العائلة (فارتشار)
عيد ميلاد (تاريخ)

-جمع النموذج والتشغيل (إهمال)

(TR) مجموعة أوامر Collector وRun في الإصدار الأول من المكتبة هي كما يلي. تقوم الدالة CollectForm بتجميع معلمات Request.Form التي تأتي مع أسلوب FORM Post ودمجها من أجل INSERT أو UPDATE. لا توجد آلية للتحكم. يعود خطأ المعلمة إلى خطأ رفع. (بالإنكليزية)... 

 < %
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 في الطرق التقليدية. (بالإنكليزية)... 

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

الطلب والرد

-Request.Form/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) يبحث عن أي بيانات سلسلة في مجموعة مصفوفة. يقوم بإجراء فحص المطابقة التامة ويطبق Trim() تلقائيًا. إذا تم العثور على نتيجة، يتم إرجاع رقم الفهرس. إذا لم يتم العثور على نتيجة، يتم إرجاع نتيجة فارغة . (بالإنكليزية)... 

 < %
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
% >
يوسع
معلومات إضافية
تطبيقات ذات صلة
نوصي لك
أخبار ذات صلة الكل