بشكل عام، المشاكل الرئيسية التي يجب حلها عند كتابة برامج قواعد البيانات ليست أكثر من إضافة وحذف وتعديل واستعلام. هذا النوع من البرمجة بسيط للغاية. بعد ذلك، سأستخدم بعض وقت الفراغ لإنشاء دالة تحتوي على وظيفتي الإضافة والحذف. يمكن للبنية التجريبية استخدام قاعدة بيانات ACCESS لخادم IIS.5WEB. لا داعي للخوض في تفاصيل هذا الأمر، لأن الجميع يجب أن يعرفوا ذلك. سأقوم بنشر الوظيفة مباشرة. يمكن للجميع استخدامه مع تعديلات طفيفة فقط.
انسخ رمز الكود كما يلي:
<%
تحرير المشرف الفرعي ()
الإجراء الخافت، rsCheckAdd، rs، sql
الإجراء=request.QueryString(الإجراء)
إذا كان Action=SaveEdit، فاحفظ معلومات المسؤول المعدلة
مجموعة rs = server.createobject(adodb.recordset)
إذا كانت النتيجة = إضافة، ثم "إنشاء مسؤول موقع الويب".
اضبط rsCheckAdd = conn.execute(اختر AdminName من Ameav_Admin حيث AdminName=' & Trim(Request.Form(AdminName)) & ')
إذا لم يكن الأمر كذلك (rsCheckAdd.bof وrsCheckAdd.eof) ثم "تحديد ما إذا كان اسم المسؤول هذا موجودًا أم لا"
Response.write <لغة النص=javascript><!--
تنبيه(' & تقليم(Request.Form(AdminName)) & المسؤول موجود بالفعل، يرجى المحاولة مرة أخرى باستخدام اسم تسجيل دخول مختلف!');history.back(-1);
// --></script>
Response.end
نهاية إذا
sql=select * من Ameav_Admin
rs.open SQL، كون، 1،3
rs.addnew
إذا len(trim(Request.Form(AdminName)))<3 أو len(trim(Request.Form(Password)))>10 ثم
Response.write <لغة النص=javascript><!--
تنبيه ("اسم تسجيل دخول المسؤول مطلوب ويجب أن يتراوح عدد الأحرف من 3 إلى 10 أحرف!")؛history.back(-1);
// --></script>
Response.end
نهاية إذا
إذا len(trim(Request.Form(Password)))<6 أو len(trim(Request.Form(Password)))>16 ثم
Response.write <لغة النص=javascript><!--
تنبيه ("كلمة مرور المسؤول مطلوبة ويجب أن يتراوح عدد الأحرف من 6 إلى 16 حرفًا!")؛history.back(-1);
// --></script>
Response.end
نهاية إذا
إذا Request.Form(Password)<>Request.Form(vPassword) إذن
Response.write <لغة النص=javascript><!--
تنبيه('كلمات المرور التي تم إدخالها مرتين مختلفة!');history.back(-1);
// --></script>
Response.end
نهاية إذا
rs(AdminName)=trim(Request.Form(AdminName))
إذا Request.Form(Working)=1 إذن
rs(Working)=Request.Form(Working)
آخر
روبية (العمل) = 0
نهاية إذا
rs(كلمة المرور)=Md5(Request.Form(كلمة المرور))
rs(UserName)=trim(Request.Form(UserName))
rs(AdminPurview)=Request.Form(Purview111) & Request.Form(Purview112) & Request.Form(Purview113) &_
نموذج الطلب (Purview114) & نموذج الطلب (Purview115) & نموذج الطلب (Purview116) &_
نموذج الطلب (Purview117) & نموذج الطلب (Purview118) & نموذج الطلب (Purview119) &_
نموذج الطلب (Purview120) & نموذج الطلب (Purview121) & نموذج الطلب (Purview122) &_
نموذج الطلب (Purview123) & نموذج الطلب (Purview124) & نموذج الطلب (Purview125) &_
نموذج الطلب (Purview126) & نموذج الطلب (Purview127) & نموذج الطلب (Purview128) &_
نموذج الطلب (Purview129) & نموذج الطلب (Purview130) & نموذج الطلب (Purview131) &_
نموذج الطلب (Purview132) & نموذج الطلب (Purview133) & نموذج الطلب (Purview134) &_
نموذج الطلب (Purview135) & نموذج الطلب (Purview136) & نموذج الطلب (Purview137) &_
نموذج الطلب (Purview138) & نموذج الطلب (Purview139) & نموذج الطلب (Purview140) &_
نموذج الطلب (Purview141) & نموذج الطلب (Purview142) & نموذج الطلب (Purview143) &_
نموذج الطلب (Purview144) & نموذج الطلب (Purview145) & نموذج الطلب (Purview146) &_
نموذج الطلب (Purview147) & نموذج الطلب (Purview148) & نموذج الطلب (Purview149) &_
نموذج الطلب (Purview150) & نموذج الطلب (Purview151) & نموذج الطلب (Purview152) &_
نموذج الطلب(Purview153)
rs(شرح)=تريم(طلب.نموذج(شرح))
rs(AddTime)=الآن()
نهاية إذا
إذا كانت النتيجة = تعديل، ثم "تعديل مسؤول الموقع".
sql=select * من Ameav_Admin حيث المعرف=&ID
rs.open SQL، كون، 1،3
rs(AdminName)=trim(Request.Form(AdminName))
إذا Request.Form(Working)=1 إذن
rs(Working)=Request.Form(Working)
آخر
روبية (العمل) = 0
نهاية إذا
إذا تقليم (Request.Form (كلمة المرور))<> ثم
إذا len(trim(Request.Form(Password)))<6 أو len(trim(Request.Form(Password)))>20 إذن
Response.write <لغة النص=javascript><!--
تنبيه ("كلمة مرور المسؤول مطلوبة ويجب أن تتكون من 6 إلى 20 حرفًا!")؛
// --></script>
Response.end
نهاية إذا
إذا كان Request.Form(Password)<>Request.Form(vPassword) إذن
Response.write <لغة النص=javascript><!--
تنبيه('كلمات المرور التي تم إدخالها مرتين مختلفة!');history.back(-1);
// --></script>
Response.end
نهاية إذا
rs(كلمة المرور)=Md5(Request.Form(كلمة المرور))
نهاية إذا
rs(UserName)=trim(Request.Form(UserName))
rs(AdminPurview)=Request.Form(Purview111) & Request.Form(Purview112) & Request.Form(Purview113) &_
نموذج الطلب (Purview114) & نموذج الطلب (Purview115) & نموذج الطلب (Purview116) &_
نموذج الطلب (Purview117) & نموذج الطلب (Purview118) & نموذج الطلب (Purview119) &_
نموذج الطلب (Purview120) & نموذج الطلب (Purview121) & نموذج الطلب (Purview122) &_
نموذج الطلب (Purview123) & نموذج الطلب (Purview124) & نموذج الطلب (Purview125) &_
نموذج الطلب (Purview126) & نموذج الطلب (Purview127) & نموذج الطلب (Purview128) &_
نموذج الطلب (Purview129) & نموذج الطلب (Purview130) & نموذج الطلب (Purview131) &_
نموذج الطلب (Purview132) & نموذج الطلب (Purview133) & نموذج الطلب (Purview134) &_
نموذج الطلب (Purview135) & نموذج الطلب (Purview136) & نموذج الطلب (Purview137) &_
نموذج الطلب (Purview138) & نموذج الطلب (Purview139) & نموذج الطلب (Purview140) &_
نموذج الطلب (Purview141) & نموذج الطلب (Purview142) & نموذج الطلب (Purview143) &_
نموذج الطلب (Purview144) & نموذج الطلب (Purview145) & نموذج الطلب (Purview146) &_
نموذج الطلب (Purview147) & نموذج الطلب (Purview148) & نموذج الطلب (Purview149) &_
نموذج الطلب (Purview150) & نموذج الطلب (Purview151) & نموذج الطلب (Purview152) &_
نموذج الطلب(Purview153)
rs(شرح)=تريم(طلب.نموذج(شرح))
نهاية إذا
rs.update
rs. Close
تعيين RS=لا شيء
Response.write <لغة النص=javascript><!--
تنبيه ("تم تحرير مسؤول موقع الويب بنجاح!")changeAdminFlag('مسؤول موقع الويب');
// --></script>
آخر "استخراج معلومات المسؤول."
إذا كانت النتيجة = تعديل ثم
مجموعة rs = server.createobject(adodb.recordset)
sql=select * من Ameav_Admin حيث المعرف=& ID
rs.open SQL، كون، 1،1
اسم المشرف = rs(اسم المشرف)
العمل = روبية (العمل)
اسم المستخدم = rs (اسم المستخدم)
Purview=rs(AdminPurview)
اشرح = rs(اشرح)
rs. Close
تعيين RS=لا شيء
نهاية إذا
نهاية إذا
النهاية الفرعية
%>