يدمج منتدى Discuz!NT رمز تنفيذ منتدى برنامج ASP. انسخ رمز الكود كما يلي:
سجل رمز صفحة ملفات تعريف الارتباط عند تسجيل الدخول
<!--#include file=md5.asp--> // يجب استدعاء الملف المشفر md5 ذو 32 بت. هذا الملف متاح في كل مكان، لذا لن أقدمه.
<%
اسم المستخدم، كلمة المرور، السؤال، الإجابة، انتهاء الصلاحية، التحقق
اسم المستخدم=replace(trim(Request.form(Username))),','') //اسم المستخدم
كلمة المرور=replace(trim(Request.form(Password))),','') // كلمة مرور المستخدم
Question=replace(trim(Request.form(Question))),','') // سؤال كلمة المرور
Answer=replace(trim(Request.form(Answer))),','') //إجابة كلمة المرور
Expires=replace(trim(Request.form(Expires))),','') // مدة تسجيل ملفات تعريف الارتباط
Verify=replace(trim(Request.form(Verify))),','') //رمز التحقق
// أضف التحقق من الإرسال هنا، مثل xxx لا يمكن أن يكون فارغًا أو طول الحقل، وما إلى ذلك.
sql=select * from [dnt_users] Where username='&Username' // للراحة، لن أضيف وظيفة التصفية هنا إذا كنت تستخدمها، فتأكد من إضافتها، وإلا فسيتم حقنها.
تعيين rs=conn.execute(sql)
إذا rs.eof بعد ذلك
Response.Write (<script>alert('Prompt!/n/nUser account error!');history.back();</script>)
الاستجابة. النهاية
آخر
إذا كان rs(password)<>md5(password) إذن
Response.Write (<script>alert('Prompt!/n/nUser كلمة المرور غير صحيحة!');history.back();</script>)
الاستجابة. النهاية
آخر
إذا rs(secques)<>أجب إذن
Response.Write (<script>alert('Prompt!/n/nSafe الإجابة خاطئة!');history.back();</script>)
الاستجابة. النهاية
آخر
خافت DES، DESCode
تعيين DES=Server.CreateObject(DiscuzNT.DES)
DESCode=DES.Encode(&rs(password),Z143D2VBML) //Z143D2VBML هو مفتاح تشفير DES الخاص بك. يرجى استخدام "المفكرة" لفتح ملف General.config في دليل CONFIG والعثور على السطر <Passwordkey>Z846D4VVZL</Passwordkey> المفتاح، قم بتغيير المفتاح إلى الملف الخاص بك
تعيين DES = لا شيء
Response.Cookies(dnt)(معرف المستخدم) = rs(uid)
Response.Cookies(dnt)(password) = DEScode
Response.Cookies(dnt)(tpp) = rs(tpp)
Response.Cookies(dnt)(ppp) = rs(ppp)
الاستجابة. ملفات تعريف الارتباط (dnt) (pmsound) = rs (pmsound)
Response.Cookies(dnt)(غير مرئية) = rs(غير مرئية)
Response.Cookies(dnt)(المرجع) = Index.aspx
Response.Cookies(dnt)(sigstatus) = rs(sigstatus)
Response.Cookies(dnt)(expires) = تنتهي صلاحيته
إذا تنتهي الصلاحية<>0 ثم
Response.Cookies(dnt).Expires = DateAdd(N، Expires، Now())
نهاية إذا
Response.Cookies(dnt).Domain = .xxx.com // قم بالتغيير إلى اسم المجال الخاص بك، ولاحظ (النقطة) الموجودة أمامه
Response.Cookies(dnt).Secure = خطأ
نهاية إذا
نهاية إذا
نهاية إذا
rs. Close
تعيين RS=لا شيء
// أضف هنا لإعادة التوجيه أو إجراء عمليات أخرى بعد تسجيل الدخول. القرار متروك لك.
%>
================================================================================================== ===============================================================================
رمز صفحة التسجيل (حالة تسجيل الدخول بعد التسجيل)
<!--#include file=md5.asp--> //32 هو ملف md5 المشفر، والذي يجب استدعاؤه. هذا الملف متاح في كل مكان، لذا لن أقدمه.
<%
اسم المستخدم، كلمة المرور، التحقق من كلمة المرور، البريد الإلكتروني، السؤال، الإجابة، التحقق
اسم المستخدم=replace(trim(Request.form(Username))),','') //اسم المستخدم
كلمة المرور=replace(trim(Request.form(Password))),','') // كلمة مرور المستخدم
CheckPassword=replace(trim(Request.form(CheckPassword))),','') // التحقق من كلمة المرور
Question=replace(trim(Request.form(Question))),','') // سؤال كلمة المرور
Answer=replace(trim(Request.form(Answer))),','') //إجابة كلمة المرور
Expires=replace(trim(Request.form(Expires))),','') // مدة تسجيل ملفات تعريف الارتباط
Verify=replace(trim(Request.form(Verify))),','') //رمز التحقق
// أضف التحقق من الإرسال هنا، مثل xxx لا يمكن أن يكون فارغًا أو طول الحقل، وما إلى ذلك.
sql=select * from [dnt_users] Where username='&Username' // للراحة، لن أضيف وظيفة التصفية هنا إذا كنت تستخدمها، فتأكد من إضافتها، وإلا فسيتم حقنها.
تعيين rs=conn.execute(sql)
إن لم يكن rs.eof ثم
Response.Write (<script>alert('مطالبة!/n/n تم تسجيل حساب المستخدم!');history.back();</script>)
الاستجابة. النهاية
نهاية إذا
rs. Close
تعيين RS=لا شيء
sql=select * from [dnt_users] Where Email='&Email' // للراحة، لن أضيف وظيفة التصفية هنا إذا كنت تستخدمها، فتأكد من إضافتها، وإلا فسيتم حقنها.
تعيين rs=conn.execute(sql)
إن لم يكن rs.eof ثم
Response.Write (<script>alert('تم تسجيل عنوان البريد الإلكتروني Prompt!/n/n!');history.back();</script>)
الاستجابة. النهاية
نهاية إذا
rs. Close
تعيين RS=لا شيء
IP = request.servervariables(http_x_forwarded_for)
إذا كان IP = ثم IP = request.servervariables(remote_addr)
sql=insert في [dnt_users] (اسم المستخدم، اللقب، كلمة المرور، ثانية، الجنس، المشرف، معرف المجموعة، انتهاء صلاحية المجموعة، معرفات المجموعات الخارجية، regip، joindate، lasttip، lastvisit، lastactivity، lastpost، lastpostid، lastposttitle،posts،digestposts،oltime،pageviews،credits،extcredits1، extcredits2،extcredits3،extcredits4،extcredits5،extcredits6،extcredits7،extcredits8،avatarshowid،email،bday،sigstatus،tpp،ppp،templateid،pmsound،showemail،newsletter،invisible،newpm،newpmcount،accessmasks،onlinestate) القيم ('&اسم المستخدم',' ','&MD5(كلمة المرور)','&الإجابة',0,0,10,0,' ','&ip','&now()','&ip','&now( )' ,'&الآن()','&الآن()',0,' ',0,0,0,0,0,'0.00','0.00','0.00','0.00','0.00','0.00','0.00','0.00',0,'&البريد الإلكتروني', ''،1،0،0،0،1،1،1،0،1،1،0،1)
تعيين rs=conn.execute(sql)
sql=select uid from [dnt_users] Where username='&Username' // للراحة، لن أقوم بإضافة وظيفة التصفية هنا. إذا كنت تستخدمها، فتأكد من إضافتها، وإلا فسيتم حقنها.
تعيين rs=conn.execute(sql)
معرف المستخدم = روبية (0)
sql=insert في قيم [dnt_userfields] (uid,avatar,avatarwidth,avatarheight,authtime,authflag) ('&Uid','avatars/common/0.gif',0,0,'&now()',0)
تعيين rs=conn.execute(sql)
sql=update [dnt_statistics] تعيين Totalusers=totalusers+1,lastusername='&Username',lastuserid='&Uid'
تعيين rs=conn.execute(sql)
sql=select * from [dnt_users] Where username='&Username' // للراحة، لن أضيف وظيفة التصفية هنا إذا كنت تستخدمها، فتأكد من إضافتها، وإلا فسيتم حقنها.
تعيين rs=conn.execute(sql)
إذا rs.eof بعد ذلك
Response.Write (<script>alert('Prompt!/n/nUser account error!');history.back();</script>)
الاستجابة. النهاية
آخر
إذا كان rs(password)<>md5(password) إذن
Response.Write (<script>alert('Prompt!/n/nUser كلمة المرور غير صحيحة!');history.back();</script>)
الاستجابة. النهاية
آخر
خافت DES، DESCode
تعيين DES=Server.CreateObject(DiscuzNT.DES)
DESCode=DES.Encode(&rs(password),Z143D2VBML) //Z143D2VBML هو مفتاح تشفير DES الخاص بك. يرجى استخدام "المفكرة" لفتح ملف General.config في دليل CONFIG والعثور على السطر <Passwordkey>Z846D4VVZL</Passwordkey> المفتاح، قم بتغيير المفتاح إلى الملف الخاص بك
تعيين DES = لا شيء
Response.Cookies(dnt)(معرف المستخدم) = rs(uid)
Response.Cookies(dnt)(password) = DEScode
Response.Cookies(dnt)(tpp) = rs(tpp)
Response.Cookies(dnt)(ppp) = rs(ppp)
الاستجابة. ملفات تعريف الارتباط (dnt) (pmsound) = rs (pmsound)
Response.Cookies(dnt)(غير مرئية) = rs(غير مرئية)
Response.Cookies(dnt)(المرجع) = Index.aspx
Response.Cookies(dnt)(sigstatus) = rs(sigstatus)
الاستجابة. ملفات تعريف الارتباط(dnt)(انتهاء الصلاحية) = 0
Response.Cookies(dnt).Domain = .xxx.com // قم بالتغيير إلى اسم المجال الخاص بك، ولاحظ (النقطة) الموجودة أمامه
Response.Cookies(dnt).Secure = خطأ
نهاية إذا
نهاية إذا
rs. Close
تعيين RS=لا شيء
// أضف إعادة التوجيه بعد التسجيل هنا أو أضف بيانات مستخدم متزامنة إلى جدول مستخدم آخر.
%>
================================================================================================== ===============================================================================
تحرير رمز الصفحة (لا حاجة لتسجيل الدخول مرة أخرى بعد تحرير كلمة المرور)
<!--#include file=md5.asp--> //32 هو ملف md5 المشفر، والذي يجب استدعاؤه. هذا الملف متاح في كل مكان، لذا لن أقدمه.
<%
اسم المستخدم، كلمة المرور، التحقق من كلمة المرور، البريد الإلكتروني، السؤال، الإجابة، التحقق
اسم المستخدم=replace(trim(Request.form(Username))),','') //اسم المستخدم
كلمة المرور=replace(trim(Request.form(Password))),','') // كلمة مرور المستخدم
CheckPassword=replace(trim(Request.form(CheckPassword))),','') // التحقق من كلمة المرور
Question=replace(trim(Request.form(Question))),','') // سؤال كلمة المرور
Answer=replace(trim(Request.form(Answer))),','') //إجابة كلمة المرور
Expires=replace(trim(Request.form(Expires))),','') // مدة تسجيل ملفات تعريف الارتباط
Verify=replace(trim(Request.form(Verify))),','') //رمز التحقق
// أضف التحقق من الإرسال هنا، مثل xxx لا يمكن أن يكون فارغًا أو طول الحقل، وما إلى ذلك.
إذا كانت كلمة المرور<> إذن
إذا كانت كلمة المرور<>تحقق من كلمة المرور بعد ذلك
Response.Write (<script>alert('Prompt!/n/nكلمة مرور التحقق تختلف عن كلمة مرور المستخدم!');history.back();</script>)
الاستجابة. النهاية
نهاية إذا
كلمة المرور=MD5(كلمة المرور)
آخر
كلمة المرور=U_Password //U_Password هي كلمة المرور المشفرة 32 بت MD5، والتي تتم قراءتها أثناء التحقق واستخدامها للتحقق هنا.
نهاية إذا
إذا كان الجواب صحيحا = صحيح ثم
إذا كان السؤال<>0 إذن
الإجابة=منتصف(MD5(إجابة+MD5(سؤال)),16,8)
آخر
الإجابة=
نهاية إذا
آخر
Answer=U_Secques //U_Secques هي إجابة كلمة المرور الخاصة بك، والتي تتم قراءتها أثناء التحقق واستخدامها للتحقق هنا.
نهاية إذا
IP = request.servervariables(http_x_forwarded_for)
إذا كان IP = ثم IP = request.servervariables(remote_addr)
sql=select * from [dnt_users] Where username='&Username' // للراحة، لن أضيف وظيفة التصفية هنا إذا كنت تستخدمها، فتأكد من إضافتها، وإلا فسيتم حقنها.
تعيين rs=Conn.execute(Sql)
إذا Rs.eof ذلك الحين
Response.Write (<script>alert('Prompt!/n/nUser account error!');history.back();</script>)
الاستجابة. النهاية
آخر
sql=select * from [dnt_users] Where email='&Email' and username<>'&Username' // للراحة، لن أقوم بإضافة وظيفة التصفية هنا. إذا كنت تستخدمها، فيجب عليك إضافتها، وإلا فسيتم إدخالها .
تعيين rs=conn.execute(sql)
إن لم يكن rs.eof ثم
Response.write (<script>alert('تذكير ودي!/n/n تم استخدام صندوق البريد!');history.back();</script>)
Response.end
آخر
sql=update [dnt_users] setpassword='&Password',secques='&Answer',email='&Email' Where username='&Username' //للتيسير، لن أضيف وظيفة التصفية هنا، إذا كنت تستخدمها، بالتأكيد زائد، وإلا حقنها
تعيين rs=conn.execute(sql)
تعيين DES=Server.CreateObject(DiscuzNT.DES)
DESCode=DES.Encode(&Password,Z143D2VBML) //Z143D2VBML هو مفتاح تشفير DES الخاص بك، يرجى استخدام المفكرة لفتح ملف General.config في دليل CONFIG والعثور على السطر <Passwordkey>Z846D4VVZL</Passwordkey>، <Passwordkey> اللغة الإنجليزية بين </Passwordkey> هي مفتاحك، قم بتغيير المفتاح إلى المفتاح الخاص بملفك
تعيين DES = لا شيء
Response.Cookies(dnt)(معرف المستخدم) = rs(uid)
Response.Cookies(dnt)(password) = DEScode
Response.Cookies(dnt)(tpp) = rs(tpp)
Response.Cookies(dnt)(ppp) = rs(ppp)
الاستجابة. ملفات تعريف الارتباط (dnt) (pmsound) = rs (pmsound)
Response.Cookies(dnt)(غير مرئية) = rs(غير مرئية)
Response.Cookies(dnt)(المرجع) = Index.aspx
Response.Cookies(dnt)(sigstatus) = rs(sigstatus)
الاستجابة. ملفات تعريف الارتباط(dnt)(انتهاء الصلاحية) = 0
Response.Cookies(dnt).Domain = .xxxx.com // قم بالتغيير إلى اسم المجال الخاص بك، وانتبه إلى الجزء الرئيسي (النقطة).
Response.Cookies(dnt).Secure = خطأ
نهاية إذا
نهاية إذا
rs. Close
تعيين RS=لا شيء
// أضف تعديلًا هنا ثم قم بإعادة توجيه أو إضافة بيانات المستخدم المتزامنة إلى جدول مستخدم آخر.
%>
================================================================================================== ===========================================================================================
الخروج من رمز صفحة ملفات تعريف الارتباط للتحقق
<%
Response.Cookies(dnt)(معرف المستخدم) =
Response.Cookies(dnt)(كلمة المرور) =
Response.Cookies(dnt)(tpp) =
Response.Cookies(dnt)(ppp) =
Response.Cookies(dnt)(pmsound) =
Response.Cookies(dnt)(غير مرئية) =
Response.Cookies(dnt)(المرجع) =
Response.Cookies(dnt)(sigstatus) =
Response.Cookies(dnt)(انتهاء الصلاحية) =
Response.Cookies(dnt).انتهاء الصلاحية =
Response.Cookies(dnt).النطاق = .xxx.com
Response.Cookies(dnt).Secure = خطأ
Response.Write (<script>alert('Prompt! لقد قام المستخدم/n/n بتسجيل الخروج وتسجيل الدخول!');self.opener.location.reload();window.إغلاق();</script>)
الاستجابة. النهاية
%>
================================================================================================== ===================================================================================
تحقق من رمز صفحة ملف تعريف الارتباط. هذا جزء من رمز التحقق الذي كتبته من أجل البساطة. يمكنك تعديله وفقًا لملف التحقق الخاص ببرنامج asp.
%>
خافت DES، DESCode
تعيين DES=Server.CreateObject(DiscuzNT.DES)
DESCode=DES.Decode(&request.cookies(dnt)(password),Z143D2VBML) //Z143D2VBML هو مفتاح تشفير DES الخاص بك. يرجى استخدام "المفكرة" لفتح ملف General.config في دليل CONFIG والعثور على السطر <Passwordkey>Z846D4VVZL</Passwordkey> المفتاح، قم بتغيير المفتاح إلى الملف الخاص بك
تعيين DES = لا شيء
// ما يلي هو قراءة قاعدة البيانات للتحقق من صحة ملفات تعريف الارتباط الخاصة بك
تعتيم U_UId،U_UserName،U_Password،U_Secques،U_Email
Sql=select uid,username,password,secques,email from [dnt_users] حيث uid='&request.cookies(dnt)(userid)' وpassword='&DESCode' // من أجل الراحة، لن أقوم بتصفية ملفات تعريف الارتباط للمستخدمين وكلمات المرور ، إذا كنت تستخدمه، فتأكد من إضافته، وإلا فسيتم إدراجه، ما عليك سوى تصفية بعض علامات الاقتباس الفردية وبعض علامات الاقتباس الأكثر حساسية.
تعيين Rs=Conn.execute(Sql)
إن لم يكن rs.eof ثم
Founduser = true
U_UId = روبية (0)
U_UserName = روبية (1)
U_Password = روبية(2)
U_Secques = روبية (3)
U_Email = روبية(4)
آخر
Founduser = false
نهاية إذا
rs. Close
تعيين RS=لا شيء
%>