أسلوبي هو تسجيل الدخول مرة واحدة إلى نظام تسجيل الدخول الأصلي، وتسجيل اسم المستخدم وكلمة المرور، ثم إضافة مستخدم المنتدى إلى قاعدة البيانات (لاحظ أن كلمة المرور هي 32 بت MD5)، ثم استخدام طريقة Snowman لدمج ومزامنة تسجيل الدخول يمكن الرجوع إلى الوظائف:
انسخ رمز الكود كما يلي:
<%
'تسجيل مستخدم المنتدى، وصف المعلمة
'اسم المستخدم اسم تسجيل الدخول
'كلمة المرور لدى المستخدم كلمة مرور لتسجيل الدخول
'معرف مجموعة المستخدمين لكبار الأعضاء، معرف مجموعة المستخدمين هو 17 للأعضاء الرسميين، معرف مجموعة المستخدمين هو 18، معرف مجموعة المستخدمين هو 10؛
'البريد الإلكتروني، الاسم الحقيقي، الهاتف المحمول، البريد الإلكتروني للهاتف، الاسم الحقيقي، الهاتف المحمول، الهاتف
regbbsuser الفرعي (اسم المستخدم، كلمة المرور، معرف المجموعة، البريد الإلكتروني، الاسم الحقيقي، الهاتف المحمول، الهاتف)
'اتصال بقاعدة البيانات
MM_conn_bbs_STRING=Driver={SQL Server};server=SURUI;uid=sa;pwd=sa;database=ntylswbbs;
تعيين connbbs=Server.Createobject(ADODB.Connection)
connbbs.open MM_conn_bbs_STRING
"تحقق من وجود اسم المستخدم."
checkuser=select * from dnt_users حيث اسم المستخدم='&اسم المستخدم'
تعيين checkuserrs=connbbs.execute(checkuser)
إن لم يكن checkuserrs.eof بعد ذلك
hasuser=true
آخر
hasuser=false
نهاية إذا
'إذا كان المستخدم غير موجود، قم بإضافة مستخدم المنتدى
إذا كان لديك مستخدم = خطأ ثم
"تحديث جدول dnt_users (معلومات المستخدم)."
sql1=select * from dnt_users
تعيين rs1=server.createobject(ADODB.Recordset)
rs1.open sql1,connbbs,1,3
rs1.addnew
rs1(اسم المستخدم)=اسم المستخدم
rs1(كلمة المرور)=md532(كلمة المرور)
rs1(معرف المجموعة)=معرف المجموعة
rs1(email)=email
rs1.update
rs1.إغلاق
'اقرأ معرف المستخدم الذي تم إنشاؤه حديثًا
sql2=select * from dnt_users حيث اسم المستخدم='&اسم المستخدم'
تعيين rs2=server.createobject(ADODB.Recordset)
rs2.open sql2,connbbs,1,1
useruid=rs2(uid)
rs2.إغلاق
"تحديث جدول dnt_userfields (المعلومات المتعلقة بالمستخدم)."
sql3=select * from dnt_userfields
تعيين rs3=server.createobject(ADODB.Recordset)
rs3.open sql3,connbbs,1,3
rs3.addnew
rs3(uid)=useruid
إذا الاسم الحقيقي <> ثم
rs3(الاسم الحقيقي)=الاسم الحقيقي
نهاية إذا
إذا المحمول<> ثم
rs3(mobile)=mobile
نهاية إذا
إذا كان الهاتف<> إذن
rs3(هاتف)=phone
نهاية إذا
rs3.update
rs3.إغلاق
'تحديث جدول dnt_statistics (معلومات حالة المنتدى).
sql4=select * from dnt_statistics
تعيين rs4=server.createobject(ADODB.Recordset)
rs4.open sql4,connbbs,1,3
rs4(إجمالي المستخدمين)=rs4(إجمالي المستخدمين)+1
rs4(اسم المستخدم الأخير)=اسم المستخدم
rs4(lastuserid)=useruid
rs4.update
rs4.إغلاق
نهاية إذا
connbbs. Close
النهاية الفرعية
'وظيفة الاتصال
اتصل بـ regbbsuser(asp,123456789,18,[email protected],la la la,13580351626,0207235803)
%>