יש לי את הקוד הבא איך אני משפר אותו שלא יפרצו
יש לי את הקוד הבא איך אני משפר אותו שלא יפרצו לי את המערכת עוד פעם? <% if Request("validate").count <> 0 then sUser = Request("sUser") sPass = Request("sPass") sql = "SELECT mgr_id, access_to_modules,fname, group_type_id,iuser" sql = sql & " FROM admin_users" sql = sql & " WHERE iUser = '" & sUser sql = sql & "' AND iPass = '" & sPass & "'" cmd.CommandText = sql Set adminRS = Server.CreateObject("ADODB.Recordset") adminRS.Open cmd , , adOpenForwardOnly,adLockReadOnly if not adminRS.EOF then Session.Timeout=50 Session("iuser") = adminRS("iuser") Session("mgr_id") = adminRS("mgr_id") Session("access_to_modules") = adminRS("access_to_modules") Session("fname") = adminRS("fname") Response.Redirect "xxx.asp" else iError = "<LI><font color=red> שם משתמש או סיסמא שגויים. אנא נסה שנית" end if adminRS.Close set adminRS = nothing end if %>
