البرنامج النصي للتحقق من تسجيل الدخول إلى المستخدم ، chkpwd.asp
<٪
'======== تسجيل تسجيل الدخول إلى المستخدم ========
إذا لم يتم تعريف الكائن الذي تم تمريره ، فإنه يعرّفه بأنه خطأ ، مما يشير إلى أنه لم يمر بالتحقق
إذا isempty (جلسة (تم تمريرها)) ثم
الجلسة (مرت) = خطأ
إنهاء إذا
'الجلسة (تم تمريرها) = خطأ ، مما يشير إلى أن معلومات التحقق من النموذج لم يتم إقرارها ، لم تمر بالتحقق
إذا كانت الجلسة (تم تمريرها) = خطأ ثم
اسم المستخدم = request.form (اسم المستخدم)
userpwd = request.form (userPWD)
إذا كان اسم المستخدم = إذن
errmsg = موجه: الرجاء إدخال اسم المستخدم وكلمة المرور
آخر
'=================== CONNECT DATABASE ==================
تعيين conn = server.createBject (adodb.connection)
Conn.ConnectionString = {SQL Server} ؛
Conn.Open
'=================== قراءة بيانات المستخدم ===================
حدد كائن مجموعة السجلات
تعيين rs = server.createObject (adodb.oldset)
قم بتعيين اتصال كائن الاتصال
تعيين Rs.ActiveConnection = conn
قم بتعيين نوع المؤشر
Rs.CursorType = 3
افتح مجموعة السجلات
RS.OUPEN حدد اسم المستخدم ، كلمة المرور من Erpuseer حيث اسم المستخدم = '& username &'
'=========================================
إذا rs.eof ثم
errmsg = نصيحة: لا وجود للمستخدمين أو أخطاء كلمة المرور
آخر
إذا كان userpwd <> rs.fields (كلمة المرور) ثم
errmsg = نصيحة: تسجيل الدخول!
آخر 'تسجيل الدخول ناجح
errmsg =
الجلسة (مرت) = صحيح
الجلسة (اسم المستخدم) = RS.Fields (اسم المستخدم)
"حدد جلسة أذونات المستخدم (userId) = Rs.Fields (userId)
إنهاء إذا
إنهاء إذا
إنهاء إذا
إنهاء إذا
"بعد أن يكون تسجيل الدخول غير ناجح ، يتم رسم نموذج تسجيل الدخول
إذا لم يكن الجلسة (مرت) = صحيح إذن
٪>
<html>
<head> <title> وثيقة غير متوفرة </title>
<نوع النمط = text/css>
<!-
.style1 {Font-Size: 12px ؛
->
</style>
<نوع النمط = text/css>
<!-
.style2 {Font-Size:
->
</style>
</head>
<body leftmargin = 0 topmargin = 0 marginheight = 0 marginWidth = 0 bgColor =#000000>
<div id = parent ckground- اللون: #ffffff>
Div id = Denglu Size = 12px ؛
<form action = <٪ = request.servervariables (path_info) ٪> method = post name = myform id = myform>
<p class = style1> اسم المستخدم: <input name = type type = text id = username size = 18 maxLength = 20>
</p>
<p class = style1> كلمة المرور: <input name = userPwd type = password id = userPwd size = 18 maxLength = 20>
</p>
<p align = center class = style2> <٪ = errmsg ٪> </p>
<p>
<نوع الإدخال = إرسال المحاذاة = اسم mide = إرسال قيمة = نظام تسجيل الدخول>
<اسم الإدخال = نوع Rege = button align = middle onck = location = 'register.asp' id = rege value = user user>
</p>
</form>
</div>
</body>
</html>
<٪
'<p class = style1> رمز التحقق: <input name = checkCode type = text id = checkcode size = 6 maxLength = 4>
'<emg style = margin-right: 40px alt = src = common/getCode.asp> </p>
استجابة
إنهاء إذا
٪>
صفحة ERP.asp ليتم زيارتها
<!-#تضمين ملف = chkpwd.asp->
<body>
<النمط المفرط = 'الحجم: 12 بكسل ؛
<٪
إذا كانت الجلسة (تم تمريرها) = صحيح إذن
الرد. write (جلسة (اسم المستخدم))
إنهاء إذا
٪> <a href = logout.asp> نظام الخروج </a>
</div>
</body>
في كل مرة تقوم فيها بفتح ERP.asp ، تقوم أولاً بتنفيذ chkpwd.asp () ، والتي يمكن أن تمنع المستخدمين غير المصرح لهم بشكل فعال من الوصول إلى صفحات ويب محددة.
خروج نظام logout.asp
<body>
<٪
الجلسة (مرت) = خطأ
الجلسة (اسم المستخدم) =
استجابة.
٪>
</body>
استخدم الصورة لتقديم النموذج
<name form = form1 method = post Action =>
<td align = right> <type type = صورة الصورة = إرسال اسم = إرسال src = صورة/loginin.gif width = 70 height = 21 alt = submit> </td>
</form>