أولا أعمل صفحة دخول ، صفحة فيها فورم و لفورم فيه حقل نصي أسمه
PassWord
الفورم يرسل البيانات الى login.asp
عدك في قيمة sql
MyTable=أسم الجدول الي فيه كلمة السر
Password =أسم الحقل الي فيه كلمة السر
في ConnectionString ضع اسم قاعدة البيانات الصحيح
كود:
<%@ Language=VBScript %>
<%Session.CodePage=1256%>
<%Response.Buffer=True%>
<OBJECT RUNAT=server PROGID=ADODB.Connection id=ADO> </OBJECT>
<OBJECT RUNAT=server PROGID=ADODB.Recordset id=RS> </OBJECT>
<%
ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("MyDb.mdb")
sql="select Password From MyTable"
Ado.Open ConnectionString
Rs.open sql,ado
Pws=rs("Password")
Rs.close
Ado.close
Pws_Form=Request.Form("PassWord")
If CStr(Pws_Form) =CStr(Pws) Then
Session("Login")=True
Response.redirect "Protected_Page.asp"
else
Session("Login")=False
Response.redirect "login.asp"
end if
%>