رمز تسجيل الدخول إلى مستخدم ASP+ASP ، والذي
huiyuan.mdb اسم قاعدة البيانات
PUSER213 اسم الجدول
قائمة مستخدم y_username ، حقل كلمة مرور Y_Password.
صفحة login.htm
<head>
<metahttp-equiv = content-typecontent = text/html ؛
<title> تسجيل الدخول </title>
</head>
<body>
<p> </p>
<formName = form1method = postaction = loginnew.asp>
<tablewidth = 200border = 1align = centercellpadding = 0cellspacing = 0>
<tr>
<tdcolspan = 2> <fivalign = center> تسجيل الدخول </div> </td>
</r>
<tr>
<tdwidth = 57> <fivalign = center> اسم المستخدم </div> </td>
<tdwidth = 137valign = TOP> <PUNTINGNAME = USERNAMETYPE = TEXT
id = usernamesize = 25> </td>
</r>
<tr>
<td> <fivalign = center> كلمة المرور </div> </td>
<tdvalign = top> <provessname = passwordtype = كلمة المرور
المعرف = كلمات المرور = 25> </td>
</r>
<tr>
<tdcolspan = 2> <fivalign = المركز>
<inpectType = submitName = submitValue = submit>
</viv> </td>
</r>
</table>
</form>
</body>
</html>
loginnew.asp صفحة الويب
<٪
DimuserName ، كلمة المرور
اسم المستخدم = request.form (اسم المستخدم)
كلمة المرور = الطلب. الشكل (كلمة المرور)
setRs = server.createBject (adodb.oldset)
conn = dbq =+server.mappath (huiyuan.mdb)+؛
Driver = {MicrosoftAccessDriver (*. MDB)} ؛
sql = select*fromBuser213wherey_Username = '& username &'
Rs.Opensql ، Conn ، 1،1
ifrs.eofthen
Response.write <Script> ALERT ('تسجيل الدخول إلى تسجيل الدخول "
استجابة
آخر
IFRS (y_password) <> passwordthen
Response.write <Script> ALERT ('تسجيل الدخول إلى تسجيل الدخول "
استجابة
Endif
الجلسة (المسؤول) = اسم المستخدم
Response.write <Script> ALERT ("تسجيل الدخول الناجح") ؛
Endif
٪>