Bedømmelse af Cookie login

Godaften E

Nu har jeg så fået brugeren logget ind med en cookie, men er det fornuftigt det jeg har lavet? Det vil jeg gerne have jeres kommentarer til.

Al kode forløber i default.asp.
I starten af default.asp har jeg indsat følgende:

<% Option Explicit %>
<% Response.Buffer = True
'forbindelse osv.
If Len(Request.Cookies("deltawings")("Bid")) <> 0 Then
Bid = Request.Cookies("deltawings")("Bid")
nick = Request.Cookies("deltawings")("nick")
pass = Request.Cookies("deltawings")("password")
Set rs = Conn.Execute("SELECT * FROM bruger WHERE Bid=" & Bid)
    If rs("nick") = nick AND rs("BrugerKode") = pass Then
    Session("nick") = nick
    End if
    If rs("admin") = "True" Then
    Session("admin") = "True"
    End if
rs.Close
Set rs = Nothing
End if

Jeg er ikke helt klar over hvad LEN gør? En forklaring ønskes.


Senere har jeg en login kode hvor brugeren kan vælge autologin fremover (cookie login):
        Dim checked
        'Hvis brugeren har submittet login formen
        If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
            'Tjecker om felterner er udfydlt
            nick = Trim(Replace(Request.Form("nick"),"'","''" ))
            pass = Trim(Replace(Request.Form("adgangskode"),"'","''" ))
            checked = Request.Form("autologin")
                'har brugeren valgt at benytte autologin?
                If checked <> "" Then
                Response.Cookies("deltawings")("nick") = nick
                Response.Cookies("deltawings")("password") = pass
                Conn.Execute("UPDATE bruger SET autologin = True WHERE nick='" & nick & "' AND BrugerKode='" & pass & "'")
                End if
            If nick <> "" AND pass <> "" Then
                Set rs = Conn.Execute("SELECT * FROM bruger WHERE nick='" & nick & "' AND BrugerKode='" & pass & "'")
                    'Tjecker om brugeren eksisterer
                    If rs.Eof Or rs.Bof Then
                        Response.Write("<font color='red'><b>Brugernavnet eksisterer ikke</font></b><br>")
                    Else
                        'tjecker om passwordsne matcher hinanden
                        If rs("BrugerKode") = pass AND rs("nick") = nick Then
                            If checked <> "" Then
                            Response.Cookies("deltawings")("Bid") = rs("Bid")
                            Response.Cookies("deltawings").Expires = date() + 365
                            End if
                            Session("nick") = rs("nick")
                            Session("admin") = rs("admin")
                            Conn.Execute("UPDATE bruger SET BrugerOnline = True WHERE nick='" & nick & "'")
                            Conn.Execute("UPDATE bruger SET SID = " & Session.SessionID & " WHERE nick='" & nick & "'")
                            Conn.Execute("UPDATE bruger SET BrugerLogInd = Now() WHERE nick='" & nick & "'")
                            Conn.Execute("UPDATE bruger SET BrugerIP = '" & Request.ServerVariables("REMOTE_ADDR") & "' WHERE nick='" & nick & "'")
                            Sub AddOnlineUser()
                            If inStr(1,Application("OnlineUsers"),"," & Session("nick") &",")=0 Then
                            Application.Lock
                            Application("OnlineUsers") = Application("Onlineusers") & Session("nick") & ","
                            Application.UnLock
                            End if
                            End Sub
                            Call AddOnlineUser()
                            Response.Redirect("default.asp")
                        Else
                            Response.Write("<font color='red'><b>Adgangskoden er forkert<br></b></font>")
                        End if
                                Conn.Execute("UPDATE bruger SET autologin = True WHERE nick='" & nick & "'")
                    End if
                rs.Close
                Set rs = Nothing
                Conn.Close
                Set Conn = Nothing
            Else
                Response.Write("<font color='red'><b>Du har ikke udfyldt felterne</b></font><br>")
            End if
        End if
bla bla bla login form osv....
Der er lidt count antal brugere indblandet heri, men fokuser på cookie login til at starte med.
Hvad siger i? :)

/Skjold