لقد وجدت ذلك من خلال البحث عن المعلومات عبر الإنترنت، ولكن وجدت بعض المشاكل أثناء تصحيح الأخطاء.
بعد بعض التعديلات، لا تزال هناك بعض المشاكل، ولكن يمكن استخدامه للاستخدام العام.
لم يتم أخذ مشكلة نوع البيانات والفرق بين SQL Server والوصول في الاعتبار، وسأقوم بتحسينها عندما يكون لدي الوقت في المستقبل.
إذا قام أي شخص بتحسينه، من فضلك أرسل لي نسخة.
<%
'الفئة التي تولد سلاسل SQL.
'العمل الأصلي: مجهول
'التحسين: ألوكسي
'البريد الإلكتروني: [email protected]
'OICQ:331622229
classSQLString
'***************************************
"تعريف متغير."
'***************************************
'sTableName ---- اسم الجدول
'iSQLType ---- نوع عبارة SQL: 0-إضافة، 1-تحديث، 2-حذف، 3-استعلام
'sWhere ---- الشرط
'sOrder ---- طريقة الفرز
'sSQL ----ValuePrivate
sTableName,iSQLType,sWhere,sOrder,sSQL
'******************************** * ***
"تهيئة/نهاية الفصل."
'***************************************
فئة فرعية خاصة_Initialize ()
اسم الجدول = ""
iSQLType=0
أين =""
الطلب = ""
سSQL = ""
End Sub
Private Sub Class_Terminate()
End Sub
'***************************************
'ملكية
'***************************************
'قم بتعيين خصائص اسم الجدول
الملكية العامة اسم الجدول (القيمة)
sTableName=value
نهاية الملكية
"ضبط الشروط."
الملكية العامة للإيجار حيث(القيمة)
sWhere=value
نهاية الملكية
'ضبط طريقة الفرز
أمر تأجير الملكية العامة (القيمة)
sOrder=value
نهاية الملكية
'قم بتعيين نوع بيان الاستعلام
الخاصية العامة Let SQLType(value)
iSQLType=value
حدد حالة iSQLType
الحالة 0
sSQL = "أدخل في القيم رقم 0 (#1) (#2)"
الحالة 1
sSQL = "تحديث #0 مجموعة #1=#2"
الحالة 2
sSQL = "حذف من #0"
الحالة 3
sSQL = "اختر #1 من #0 "
حدد النهاية
نهاية الخاصية
'************************************
'وظيفة
'***************************************
'إضافة حقل (اسم الحقل، قيمة الحقل)
Public Sub 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")
إنهاء التحديد
End Sub
'إرجاع بيان SQL
إرجاع الوظيفة العامةSQL()
sSQL=replace(sSQL،"#0"،sTableName)
حدد حالة iSQLType
الحالة 0
sSQL=replace(sSQL"،,#1"،"")
sSQL=استبدال(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
نهاية إذا
ReturnSQL=sSQL
وظيفة النهاية
"بيان واضحPublic
Sub Clear()"
اسم الجدول = ""
iSQLType=0
أين =""
الطلب = ""
سSQL = ""
نهاية الفرعية
إنهاء الفصل
%>
<%
'ما يلي هو مثال على الاتصال بمشكلات نوع البيانات، يرجى الاستمرار في تعديل التعريف في الفصل أعلاه. إذا كان لديك أي أسئلة، يمكنك طرحها علي.
set a =new SQLString 'إنشاء كائن فئة
a.TableName=" message " 'قم بتعيين اسم الجدول للرسالة
'a.where=' إيسند =9"
'a.order = "إرسال تنازلي"
a.SQLType=0 'قم بتعيين نوع الاستعلام لإضافة السجلات
أ.AddField "incept"، "2"
أ.إضافة حقل "المرسل"، "3"
أ.إضافة حقل "العنوان"، "4"
أ.إضافة حقل "المرسل"، "5"
أ.أدفيلد "المحتوى"، " 6 "
أ.AddField "sendtime"، "7"
أ.AddField "العلم"، 8
a.AddField "issend"، 9
Response.Write a.ReturnSQl
تعيين = لا شيء
%>