موصى به: مناقشة موجزة حول مبدأ برنامج الاستحواذ على ASP الخطوات الرئيسية لبرنامج التجميع هي كما يلي: 1. الحصول على محتوى الصفحة 2. استخراج جميع البيانات من رمز الاستحواذ 1. الحصول على محتوى الصفحة التي تم جمعها حاليًا عن أساليب ASP شائعة الاستخدام للحصول على الصفحة التي تم جمعها: 1.
البرنامج النصي للتحقق من تسجيل الدخول إلى المستخدم ، chkpwd.asp
ما يلي هو المحتوى المقتبس:
<٪
'========= سجل تسجيل الدخول إلى المستخدم ========
إذا لم يتم تعريف الكائن الذي تم تمريره ، يتم تعريفه على أنه خطأ ، مما يشير إلى أنه لم يمر بالتحقق
إذا isempty (جلسة (تم تمريرها)) ثم
الجلسة (مرت) = خطأ
إنهاء إذا
"الجلسة (تم تمريرها) = خطأ ، مما يعني أن معلومات التحقق التي تم تمريرها من النموذج لم يتم تمريرها بعد.
إذا الجلسة (مرت) = خطأ ثم
اسم المستخدم = request.form (اسم المستخدم)
userpwd = request.form (userPWD)
إذا اسم المستخدم = ثم
errmsg = نصيحة: الرجاء إدخال اسم المستخدم وكلمة المرور الخاصة بك
آخر
'==================================================
تعيين conn = server.createBject (adodb.connection)
conn.ConnectionString = driver = {sql server} ؛ server = 192.168.1.3 ؛ uid = sa ؛ pwd = ؛ database = zcmrs
Conn.Open
'============================= قراءة بيانات المستخدم من سجل الجدول ==========================
حدد كائن مجموعة السجلات
تعيين rs = server.createBject (adodb.recordset)
قم بتعيين ConnectionString من كائن الاتصال
تعيين Rs.ActiveConnection = conn
"تعيين نوع المؤشر
Rs.CursorType = 3
مجموعة سجلات مفتوحة
RS.Open حدد اسم المستخدم ، كلمة المرور من Erpuser حيث اسم المستخدم = '& username &'
'==================================================
إذا rs.eof ثم
errmsg = نصيحة: المستخدم غير موجود أو كلمة المرور خاطئة
آخر
إذا كان userpwd <> rs.fields (كلمة المرور) ثم
errmsg = نصيحة: فشل تسجيل الدخول! خطأ كلمة المرور؟
آخر 'تسجيل الدخول بنجاح
errmsg =
الجلسة (مرت) = صواب
الجلسة (اسم المستخدم) = RS.Fields (اسم المستخدم)
"تحديد جلسة أذونات المستخدم (UserD) = Rs.Fields (UserD)
إنهاء إذا
إنهاء إذا
إنهاء إذا
إنهاء إذا
بعد فشل تسجيل الدخول ، سيتم رسم نموذج تسجيل الدخول
إذا لم يكن الجلسة (مرت) = صحيح إذن
٪>
<html>
<Head> <title> Unded Document </title>
<نوع النمط = text/css>
<!-
.style1 {font-size: 12px ؛ font-weight: Bold ؛ Margin-Left: 120px ؛ Outline: double}
->
</style>
<نوع النمط = text/css>
<!-
.style2 {font-size: 12px ؛ font-weight: Bold ؛ Outline: double ؛ color:#ff333}
->
</style>
</head>
<body leftmargin = 0 topmargin = 0 marginheight = 0 marginWidth = 0 bgColor =#000000>
<div id = النمط الأصل = الارتفاع: 300 ؛ العرض: 450 ؛ على الطراز الحدود: الصلبة ؛ اللون الحدودي: #fffff ؛ الهامش: 80px ؛ الهامش اليساري: 25 ٪ ؛ الهامش اليمين: 25 ٪ ؛ لون الخلفية: #fffff>
<div id = denglu style = font-size: 12px ؛ font-weight: bold ؛ bolde-color:#0099ff ؛ text-align: center ؛ height: 40px ؛> <br> login system login </div>
<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>
<نوع الإدخال = إرسال محاذاة = الاسم الأوسط = إرسال قيمة = تسجيل الدخول إلى النظام>
<اسم الإدخال = نوع Rege = button align = middle onClick = 'register.asp' id = rege value = Record 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>
<div style = 'font-size: 12px ؛ font-weight: bold ؛ الحدود: 1px solid #001 ؛ padding: 4px ؛ الخلفية: #ffccff ؛ margin-top: 0 ؛'>
<٪
إذا كانت الجلسة (مرت) = صواب ثم
الرد. 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>
مشاركة: ASP ورابط الوصول توضح هذه المقالة طريقتين لربط ASP والوصول في أمثلة ASP. ما يلي هو المحتوى المشار إليه: ٪ dim dd ، connstrdd = data.mdbconnstr = & q