IAS - International Aid Services

<% ' förbereder för en omdirigering om inte redirekt default ' är satt till ON. Oftast på IIS4, IIS5 är default ON. response.buffer = true ' ansluter till min datakälla set con = server.createObject("ADODB.Connection") conStr = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/sample.mdb") con.open conStr %> <% ' vill användaren logga in? action = Lcase(Request("action")) Select Case Action Case "login" ' hämtar inmatade värden. Garderar mig även för ' SQL Injection. strUser = Replace(Request("username"),"'","''") strPass = Replace(Request("password"),"'","''") sql = "select * from tblUsers where " & _ "username = '" & strUser & "' and " & _ "password = '" & strPass & "' " ' kör frågan mot tabellen set rst=con.execute(sql) ' fick vi någon träff? If Not (Rst.Eof or Rst.BOF) Then ' träff LoginFlag = True Else ' inga träffar LoginFlag = False End If End Select Set rst = Nothing Set con = Nothing %> <% If action = "login" And LoginFlag = True Then ' korrekt inloggning, gå till startsidan Session("login") = "true" Response.Redirect "staff_files.php" Else Session("login") = "false" ' felaktig - då visar vi detta för användaren End If %> IAS - International Aid Services