سهل ربط asp بالقاعده في الموقع

---

أخبار
تقنية | أخبار منوعة | بحث
| سجل الزوار | إدارة
الموقع

---

<% Name=Request.form("Name")
Password=Request.form("Password")



If Name = "" Then
response.redirect ("admin.asp?error=Name_Null")

Else
If Password = "" Then
response.redirect ("admin.asp?error=Pass_Null")
Else


%>
<%
Dim ConnectionString
Dim ADO

ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("/db/project.mdb")
Set ADO=Server.CreateObject("ADODB.Connection")
ADO.ConnectionString =ConnectionString
ADO.Open

%>
<%

SelectSql="Select * from admin where name='"&Name&"'"
set rs=ADO.execute (SelectSql)

If rs.eof then '
response.Redirect ("admin.asp?error=Name_Entry")

Else
If rs("password") <> password Then
response.redirect ("admin.asp?error=Pass_Entry")

Else

Name_Cooky= request.cookies("Name")

If Name_Cooky <> Name then
response.cookies ("Name")=Name

End IF
response.Redirect ("adminsection.asp")

End If

End If

End If
End If
%>

---

أخبار
تقنية | أخبار منوعة | بحث
| سجل الزوار | إدارة
الموقع

جميع
الحقوق محفوظة 2001