Discuz!NT 论坛整合ASP的方法复制代码代码如下:
<%@LANGUAGE=صفحة كود VBSCRIPT=65001%>
<!--#include virtual=/inc/MD5.asp-->
<!--#include virtual=/Inc/conn.asp -->
<%
'16 MD5 1234656789 323b453885f5181f
' القرص 25f9e794323b453885f5181f1b624d0b
'الاستجابة. الكتابة (Md5(123456789))
'Response.Write(Cookie:&Request.Cookies(dnt)(userid))
اسم المستخدم الخافت: اسم المستخدم = Request.Form(اسم المستخدم)
كلمة المرور المعتمة:passWord = Request.Form(passWord)
قم بتعيين objRs = conn.execute(اختر * من Member_User حيث UserName = '&userName')
إذا لم يكن objRs.Eof ثم
الاستجابة.الكتابة (objRs (كلمة مرور المستخدم))
تعيين conn2 = server.CreateObject(ADODB.Connection)
conn2.open Provider = Sqloledb; معرف المستخدم = سا؛ كلمة المرور = 123456؛ الكتالوج الأولي = dnt؛ مصدر البيانات = MWW/SQLEXPRESS؛
اضبط objRs2 = conn2.execute(اختر * من [dnt_users] حيث اسم المستخدم='&اسم المستخدم')
إذا لم يكن objRs2.Eof ثم
الاستجابة.الكتابة(<br />&objRs2(uid)<br />)
الاستجابة.الكتابة(objRs2(كلمة المرور)<br />)
الاستجابة.الكتابة(objRs2(tpp)<br />)
الاستجابة.الكتابة(objRs2(ppp)<br />)
الاستجابة.الكتابة(objRs2(pmsound)<br />)
الاستجابة.الكتابة(objRs2(غير مرئية)<br />)
الاستجابة.الكتابة(objRs2(sigstatus)<br />)
'userid=2&password=0P273vMb%2bonHszSw%2fTtGpb%2fz4pB7CbWl&avatar=avatars%5ccommon%5c0.gif&tpp=0&ppp=0&pmsound=1&invisible=0&referer=index.aspx&sigstatus=1&expires=-1
"ملف تعريف الارتباط."
Response.Cookies(dnt)(معرف المستخدم) = objRs2(uid)
Response.Cookies(dnt)(كلمة المرور) = objRs2(كلمة المرور)
Response.Cookies(dnt)(tpp) = objRs2(tpp)
Response.Cookies(dnt)(ppp) = objRs2(ppp)
Response.Cookies(dnt)(pmsound) = objRs2(pmsound)
Response.Cookies(dnt)(غير مرئية) = objRs2(غير مرئية)
Response.Cookies(dnt)(المرجع) = Index.aspx
Response.Cookies(dnt)(sigstatus) = objRs2(sigstatus)
'Response.Cookies(dnt)(انتهاء الصلاحية) = انتهاء الصلاحية
'إذا انتهت الصلاحية<>0 إذن
'Response.Cookies(dnt).Expires = DateAdd(N, Expires, Now())
'النهاية إذا
Response.Cookies(dnt).Domain = .ejia.com '修改为你的域名، 注意前面带.(点)
Response.Cookies(dnt).Secure = خطأ
نهاية إذا
objRs2.إغلاق
تعيين objRs2 = لا شيء
conn2.Close
تعيين conn2 = لا شيء
نهاية إذا
objRs.إغلاق
تعيين objRs = لا شيء
conn. Close
تعيين كون = لا شيء
%>
<إجراء النموذج=طريقة ملف تعريف الارتباط=النشر>
الاسم:<نوع الإدخال=اسم النص=اسم المستخدم /><br />
الاسم: <نوع الإدخال = اسم النص = كلمة المرور />
<نوع الإدخال = قيمة الإرسال = 登陆 />
</النموذج>
1.المنتج المشترك لـ md5 هو الحل الأمثل:
إرجاع System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(str, MD5).ToLower().Substring(8, 16); في هذه الحالة، يبلغ عدد مستخدمي ASP 16 شخصًا، ويبلغ 32 شخصًا، ويصل إلى 32 شخصًا.
2. يستخدم التشفير المشترك وفك التشفير.