<%@ Language=VBScript %> <% Session("ValidUser")=False 'Global Settings dim strAccessDB, strCon, adoCon, adoRec, varCount strAccessDB = "/fpdb/db" if request("submitted") = 1 then 'Create a connection odject Set adoCon = Server.CreateObject("ADODB.Connection") Set adoRec = Server.CreateObject("ADODB.Recordset") strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(strAccessDB) 'Open the recordset and do the operation adoCon.Open strCon adoRec.LockType = 3 adoRec.Open "select * FROM Users where UserID='" & request("txtUser") & "' and Password = '" & request("txtPass") & "'", adoCon if not adoRec.EOF then Session("ValidUser")=True Response.Redirect "/admin/main.asp" end if end if %>

إدارة موقع الأحسائي اسم المستخدم كلمة المرور دخول