strSQL = "SELECT * FROM Users WHERE (Username = '" & strUID & "') AND (Password = '" & strPWD & "')"
Set rs = myConn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then intUID = rs("Username") Else strERR = "<h2><font color='#FF0000'><b>Du blev ikke godkendt af systemet..</b></font></h2><h4>Hvis du mener dette er en fejl bedes du kontakte Administrator</h4>" End If
myConn.Close Set myConn = Nothing
If Len(intUID) Then Session("Username") = intUID %> <% Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("./DB/esupport.mdb")
strSQL = "SELECT * FROM Users WHERE (Username = '" & Session("username") & "')" if Admin = True then Session("username") = "Admin" else if if Supporter = True then Session("username") = "supporter" else Session("username") = "user" end if
myConn.Close Set myConn = Nothing %> <% Response.Redirect("default.asp") End If Else strErr = "<h2><font color='#FF0000'><b>Du skal skrive både brugernavn og adgangskode</b></font></h2>" End If
If Len(strErr) > 0 Then strErr = "<p><font color=red>" & strErr & "</font></p>" End If End If
Session.Abandon %>
-- Det, denne kode skulle gøre var at tjekke at bruger eksisterer. Hvis ja, så skal den efterfølgende tjekke på om "Admin" = True og hvis den er det skal den lave en session"Username"=Admin hvis ikke det er en admin, skal den tjekke om bruger er supporter og hvis bruger er det, skal session"username"=supporter - Hvis ingen af de to er tjekket af som true i databasen, skal den sætte session"Username"=user
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
strSQL = "SELECT * FROM Users WHERE (Username = '" & strUID & "') AND (Password = '" & strPWD & "')"
Set rs = myConn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then intUID = rs("Username") Else strERR = "<h2><font color='#FF0000'><b>Du blev ikke godkendt af systemet..</b></font></h2><h4>Hvis du mener dette er en fejl bedes du kontakte Administrator</h4>" End If
myConn.Close Set myConn = Nothing
If Len(intUID) Then Session("Username") = intUID %> <% Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("./DB/esupport.mdb")
strSQL = "SELECT * FROM Users WHERE (Username = '" & Session("username") & "')" if Admin = True then Session("username") = "Admin" else if if Supporter = True then Session("username") = "supporter" else Session("username") = "user" end if
myConn.Close Set myConn = Nothing %> <% Response.Redirect("default.asp") End If Else strErr = "<h2><font color='#FF0000'><b>Du skal skrive både brugernavn og adgangskode</b></font></h2>" End If
If Len(strErr) > 0 Then strErr = "<p><font color=red>" & strErr & "</font></p>" End If End If
nope - men det er vist ligemeget - for jeg skulle egentlig bruge session-navnet til at sortere opgaver ... det havde jeg lige glemt :o¤ Så jeg må gå en anden vej rundt om problemet - vi deler point, som tak for din hjælpevilje
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.