<%
' 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
www.ias-intl.org
ias-intl.org
Fundraising campaign
