الموضوع: لو سمحتوا مساعدة في برمجة صفحة asp لكلمة مرور

السلام عليكم
اذا امكن كيف اسوي صفحة باسورد بسيطه لموقع عن طريق asp
مثل هذا
http://www.gpyw.gov.sa/Ver1/_1/log.asp

صفحتين
صفحة التأكد من الباسوورد وهذي طريقتها سهله ان كان الباسورد خطأ لا توجه وأن كان صحيح خزن الماحيه في السيشن
الصفحه الأخرى تعتمد على فحص السيشن أن كانت قيمته صحيحه تفتح الصفحه وأن كانت خاطئه يعاد توجيهيه لصفحة الباسوورد

السلام عليكم ...

اختي الكريمة الموضوع بسيط و جميل ... و لغة asp جميلة من حيث تبسيط الامور

نقوم اولا بانشاء صفحة ادخال كلمة المرور و ارسالها الى صفحة التحقق ... يتم ارسال القيم عبر فورم

<%
'' هنا يتم طباعة الخطأ في حال ادخال باسورد خاطئ
if Session errorpas = true then
response.write " please enter a valid password"
end if
%>

<form name=formPassword method=post action="pass2.asp">
<tr><td>User Name&nbsp;</td><td>
<input name="user" size=20 maxlength=31></td></tr>
<tr><td>Password:</td><td>
<input type=password name=pass1 size=20 maxlength=31></td></tr>
<tr><td></td><td><input type=submit value="Enter" ></td></tr>
</form>


و ثانيا ننشئ صفحة التحقق :



<%

'' هنا تم تعريف البيانات القادمة من الفورم
usernameo = Request.Form("user")
password =Request.Form("pass1")

'' هنا تم تعريف القيم المتغيرة التي سيتم استخدامها

Dim CConn, sql, rs, ps, username
'' هنا تم انشاء الربط مع قاعدة البيانات
set CConn = server.createobject("adodb.connection")
constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("test.mdb")& ";"
CConn.open constr


'' هنا سيتم التأكد من البيانات و اجراء تنفيذ للجملة الشرطية
If Session( "continue" ) = True Then

sql = "SELECT * from table where username ='" &username & "'"
Set rs = Server.CreateObject( "ADODB.Recordset" )
rs.Open sql, CConn
rs.MoveFirst()
While Not rs.EOF
If password <> rs( "password" ) Then
Session errorpas = true
response.redirect "pass1.asp"
else
response.redirect "home.asp"
end if
%>