موصى به: رمز قالب ASP قالب الفئة الخاص m_filename ، m_root ، m_unknowns ، m_lasterror ، m_haltonerr private m_valuelist ، m_blocklist private m_regexp subs_initialize set m_valuelist = createObject (scripting.dictionary) set m_block
عند كتابة برنامج قاعدة بيانات ASP ، عادة ما نستخدم عبارات SQL ، وعند إضافة البيانات وتحديثها ، نستخدم عادة الطريقة التالية: إدراج في رسالة (incept ، المرسل ، العنوان ، المحتوى ، إرسال وقت ، العلم ، الإصدار) ('& incep مزعجة لتعديل وإيجاد الأخطاء. بعد استخدام فئة SQL هذه ، يمكن تبسيطها ومن الأسهل التحقق من الأخطاء. يمكن لإضافة أسماء الحقول وقيم الحقل من خلال وظيفة AddField للفئة إدراج أسماء الحقل وقيم الحقل بسهولة في عبارات SQL ثم إرجاع عبارة SQL.
لنلقي نظرة على رمز هذه الفئة:
< ٪
فئة sqlstring
'***************************************
تعريف متغير
'***************************************
'stablename --- اسم الجدول
'isqltype --- نوع بيان SQL: 0-add ، update ، 2-delete ، 3-Query
'swhere --- الظروف
'Sorder --- فرز بواسطة
'ssql ---- القيمة
stablename الخاص ، isqltype ، swhere ، sorder ، ssql
'***************************************
تهيئة الفئة/النهاية
'***************************************
sub sub class_initialize ()
stablename =
isQlType = 0
swhere =
SORDER =
SSQL =
نهاية الفرعية
sub sub class_terminate ()
نهاية الفرعية
'***************************************
'ملكية
'***************************************
قم بتعيين خصائص اسم الجدول
الممتلكات العامة دع Tablename (القيمة)
stablename = القيمة
نهاية الملكية
"اضبط الظروف
الممتلكات العامة تدعها (القيمة)
swhere = القيمة
نهاية الملكية
قم بتعيين طريقة الفرز
الممتلكات العامة دع الأمر (القيمة)
SORDER = القيمة
نهاية الملكية
قم بتعيين نوع بيان الاستعلام
الممتلكات العامة دع sqltype (القيمة)
isQlType = القيمة
حدد CASE ISQLTYPE
الحالة 0
ssql = insert في قيم#0 (#1) (#2)
الحالة 1
SSQL = تحديث #0 SET #1 = #2
الحالة 2
SSQL = حذف من #0
الحالة 3
SSQL = حدد #1 من #0
نهاية الاختيار
نهاية الملكية
'***************************************
'وظيفة
'***************************************
إضافة حقل (اسم الحقل ، قيمة الحقل)
عام Addfield (SfieldName ، Svalue)
حدد CASE ISQLTYPE
الحالة 0
SSQL = استبدال (SSQL ،#1 ، SfieldName & ،#1)
SSQL = استبدال (SSQL ،#2 ، '& SfieldName &' ،#2)
الحالة 1
SSQL = استبدال (SSQL ،#1 ، SfieldName)
ssql = استبدال (ssql ،#2 ، '& sfieldname &' ،#1 =#2)
الحالة 3
SSQL = استبدال (SSQL ،#1 ، SfieldName & ،#1)
نهاية الاختيار
نهاية الفرعية
إعادة بيان SQL
الوظيفة العامة returnsql ()
SSQL = استبدال (SSQL ،#0 ، stablename)
حدد CASE ISQLTYPE
الحالة 0
SSQL = استبدال (SSQL ،،#1 ،)
SSQL = استبدال (SSQL ،،#2 ،)
الحالة 1
SSQL = استبدال (SSQL ،،#1 =#2 ،)
الحالة 3
SSQL = استبدال (SSQL ،،#1 ،)
نهاية الاختيار
إذا كان هناك <> ثم
SSQL = SSQL وأين وينفد
إنهاء إذا
إذا كان Sorder <> ثم
SSQL = SSQL & Order by & Sorder
إنهاء إذا
returnsql = ssql
وظيفة نهاية
بيان واضح
واضحة فرعية عامة ()
stablename =
isQlType = 0
swhere =
SORDER =
SSQL =
نهاية الفرعية
الطبقة النهائية
٪ >
كيفية استخدام:
مثال: إدراج في رسالة (incept ، المرسل ، العنوان ، المحتوى ، الإرسال ، العلم ، ISSEND) القيم ('& incept (i) &' ، '& membername &' ، '& title &' ، '& message &' ، now () ، 0،1)
قم بتعيين A = SQLString جديد "إنشاء كائن فئة
A.Tablename = Message "قم بتعيين اسم الجدول كرسالة
a.sqltype = 0 'اضبط نوع الاستعلام لإضافة سجل
A.Addfield incept ، incept (i)
A.Addfield Sender ، MemberName
لقب A.Addfield ، MemberName
مرسل A.Addfield ، العنوان
A.Addfield محتوى ، رسالة
A.Addfield SendTime ، SendTime ()
A.Addfield Flag ، 0
A.Addfield ISSEND ، 1
استجابة
اضبط A = لا شيء
مشاركة: برنامج التقويم الذي أنتجته ASP يمكن لبرنامج التقويم النقي الذي تم إنشاؤه من ASP أن يقوم بتجميله بنفسه ، ولا يتوفر سوى أبسط نمط CSS هنا. . . نمط الجسم {font-size: 12px ؛ الهامش: 20px 0 0 20px ؛ الحشو: 0} tr ، td {text-align: center ؛} /style ٪ '======================================================================= ========================================================================= ========================================================================= =========================================================================