لقد وجدته من خلال البحث عن معلومات على الإنترنت، لكنني وجدت بعض المشكلات أثناء التصحيح، وبعد بعض التعديلات، لا تزال هناك بعض المشكلات، ولكن يمكن استخدامه للاستخدام العام. لم يتم أخذ مشكلة نوع البيانات والفرق بين SQL Server والوصول في الاعتبار، وسأقوم بتحسينها عندما يكون لدي الوقت في المستقبل. إذا قام أي شخص بتحسينه، من فضلك أرسل لي نسخة.
انسخ رمز الكود كما يلي:
<%
classSQLString
'***************************************
"تعريف متغير."
'***************************************
'sTableName ---- اسم الجدول
'iSQLType ---- نوع عبارة SQL: 0-إضافة، 1-تحديث، 2-حذف، 3-استعلام
'sWhere ---- الشرط
'sOrder ---- طريقة الفرز
'sSQL ---- القيمة
اسم sTableName الخاص، iSQLType، sWhere، sOrder، sSQL
'***************************************
"تهيئة/نهاية الفصل."
'***************************************
فئة فرعية خاصة_Initialize()
اسم الجدول = ""
iSQLType=0
أين =""
الطلب = ""
سSQL = ""
نهاية الفرعية
فئة فرعية خاصة_Terminate()
نهاية الفرعية
'***************************************
'ملكية
'***************************************
'قم بتعيين خصائص اسم الجدول
الملكية العامة اسم الجدول (القيمة)
sTableName=value
نهاية الملكية
"ضبط الشروط."
الملكية العامة للإيجار حيث(القيمة)
sWhere=value
نهاية الملكية
'ضبط طريقة الفرز
أمر تأجير الملكية العامة (القيمة)
sOrder=value
نهاية الملكية
'قم بتعيين نوع بيان الاستعلام
الملكية العامة دع SQLType (قيمة)
iSQLType=value
حدد حالة iSQLType
الحالة 0
sSQL="insert into {&*#}0 ({&*#}1) القيم ({&*#}2)"
الحالة 1
sSQL="update {&*#}0 مجموعة {&*#}1={&*#}2"
الحالة 2
sSQL = "حذف من {&*#}0 "
الحالة 3
sSQL="اختر {&*#}1 من {&*#}0 "
حدد النهاية
نهاية الملكية
'***************************************
'وظيفة
'***************************************
'إضافة حقل (اسم الحقل، قيمة الحقل)
الحقل الفرعي العام (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")
إنهاء التحديد
نهاية الفرعية
'وظيفة معدلة تقوم بإرجاع قيمة سلسلة
'إرجاع بيان SQL
إرجاع الوظيفة العامةSQL()
sSQL=replace(sSQL,"{&*#}0",sTableName)
حدد حالة iSQLType
الحالة 0
sSQL=replace(sSQL"،,{&*#}1"،")
sSQL=replace(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
وظيفة النهاية
'إرجاع بيان SQL
إرجاع الوظيفة العامةSQL1()
sSQL=replace(sSQL,"{&*#}0",sTableName)
حدد حالة iSQLType
الحالة 0
sSQL=replace(sSQL"،,{&*#}1"،")
sSQL=replace(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
وظيفة النهاية
"بيان واضح."
مسح فرعي عام ()
اسم الجدول = ""
iSQLType=0
أين =""
الطلب = ""
سSQL = ""
نهاية الفرعية
إنهاء الفصل
%>
مثال الاتصال:
<%
set a =new SQLString 'إنشاء كائن فئة
a.TableName=" message " 'قم بتعيين اسم الجدول للرسالة
'a.where=' إيسند =9"
'a.order = "إرسال تنازلي"
a.SQLType=0 'قم بتعيين نوع الاستعلام لإضافة السجلات
أ.AddField "incept"، "'2'"
أ.AddField " المرسل "، "'%3%' "
أ.AddField "العنوان"، "#"&الآن&"#"
أ.إضافة حقل "المرسل"، "5"
أ.أدفيلد "المحتوى"، " 6 "
أ.AddField "sendtime"، "7"
أ.AddField "العلم"، 8
أ.أدفيلد "إرسال"، 9
الاستجابة.اكتب a.ReturnSQl
تعيين = لا شيء
%>
<%
set a =new SQLString 'إنشاء كائن فئة
a.TableName=" message " 'قم بتعيين اسم الجدول للرسالة
'a.where=' إيسند =9"
'a.order = "إرسال تنازلي"
a.SQLType=0 'قم بتعيين نوع الاستعلام لإضافة السجلات
أ.AddField "incept"، "'2'"
أ.AddField " المرسل "، "'%3%' "
أ.AddField "العنوان"، "#"&الآن&"#"
أ.إضافة حقل "المرسل"، "5"
أ.أدفيلد "المحتوى"، " 6 "
أ.AddField "sendtime"، "7"
أ.AddField "العلم"، 8
أ.أدفيلد "إرسال"، 9
الاستجابة.اكتب a.ReturnSQl
تعيين = لا شيء
%>
<%
set a =new SQLString 'إنشاء كائن فئة
a.TableName=" message " 'قم بتعيين اسم الجدول للرسالة
'a.where=' إيسند =9"
'a.order = "إرسال تنازلي"
a.SQLType=0 'قم بتعيين نوع الاستعلام لإضافة السجلات
أ.AddField "incept"، "'2'"
أ.AddField " المرسل "، "'%3%' "
أ.AddField "العنوان"، "#"&الآن&"#"
أ.إضافة حقل "المرسل"، "5"
أ.أدفيلد "المحتوى"، " 6 "
أ.AddField "sendtime"، "7"
أ.AddField "العلم"، 8
أ.أدفيلد "إرسال"، 9
الاستجابة.اكتب a.ReturnSQl
تعيين = لا شيء
%>