Forskel på store og små bogstaver

så kan du sætte din db op til at være case-sensitiv (i hvert fald ved sql-servere) :O)

http://www.netcoders.dk/sources.asp?mode=view_source&id=649

Så brug LCase(strTekst) eller UCase(strTekst) til at gøre brugerens indtastninger uafhængige af om der anvendes store/små bogstaver.

Mvh
Jonas

Jeg vil bare have det, så hvis ens brugernavn er Philip i databasen, får man fejl hvis man prøver at logge ind med philip

Så kig på mit link...

En funktion der omregner en streng til ASCII, og en anden der regner den tilbage til almindelig karakterer så man vil kunne benytte f.eks case sensitive password beskyttelse med en database.

>>> JEG FATTER JO IKKE HVAD MANDEN SKRIVER!

Hvad er ASCII ? ? ? ?

Så download den og kig på kildekoden, der skal jo nok være et eksempel med...

philip >> Ups, jeg vendte den lige på hovedet :-)

Prøv at poste koden til det system du benytter nu - jeg tror det er ret simpelt at lave om.

Jonas

<%
SET RS = Server.CreateObject(\"ADODB.Connection\")
rs.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"brugere.mdb\")

If Request(\"mode\") = \"Check\" then

Function unQuote(strTekst)
  strTekst = Trim(strTekst)
  unQuote = Replace(strTekst,\"%\",\"53\")
End Function

    \' Gemmer formfelterne i Variabler
        strUsername = unQuote(request(\"username\"))
        strPassword = unQuote(request(\"password\"))

  Sql = \"Select Count(*) as Found from brugerne where (username = \'\" & strUsername  & \"\') and (password =\'\" & strPassword  & \"\')\"
  Set LO = RS.Execute(Sql)
  if LO(\"Found\") = 0 then
    Session(\"login\") = 0
    error = \"Du blev ikke godkendt af systemet\"
  else
  strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"brugere.mdb\")
  Set myConn = Server.CreateObject(\"ADODB.Connection\")
  myConn.Open strDSN
  strSQL = \"SELECT * FROM brugerne where (username = \'\" & Request(\"username\") & \"\') and (password =\'\" & Request(\"password\") & \"\')\"
  Set ez = myConn.Execute(strSQL)
    Session(\"ID\") = \"1\"
    EZ.Close
    RS.Close
    Conn.Close
  end if
end if
%>

Arhhh - det var sgu ikke som jeg lige troede. Men her er koden i en lettere omskrevet form. Jeg har ikke testet det af - men det skulle gerne funke.

Alternativet er \"Option Compare Binary\" direkte i Access. I den forbindelse fandt jeg et relevant spm og svar fra en FAQ:

Q:Bryan Allen writes that he often uses phonetic fonts where upper case characters correspond to specific sounds, so he needs to do a case-sensitive search in Access.

A:The solution is to use Option Compare Binary in the Declarations section of the module, rather than the default Option Compare Database.  The Binary selection treats upper-case and lower-case letters as separate characters.

Og det skulle du så kunne gøre på denne måde:
http://2fix.bvu.edu/help/apps/access/EA46GZT7T.ASP
Ellers er min kode her:

<%
SET RS = Server.CreateObject(\"ADODB.Connection\")
rs.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"brugere.mdb\")

If Request(\"mode\") = \"Check\" then

Function unQuote(strTekst)
  strTekst = Trim(strTekst)
  unQuote = Replace(strTekst,\"%\",\"53\")
End Function

\' Gemmer formfelterne i Variabler
strUsername = unQuote(request(\"username\"))
strPassword = unQuote(request(\"password\"))

Session(\"login\") = 0
error = \"Du blev ikke godkendt af systemet\"

Sql = \"Select username, password from brugerne\"
Set LO = RS.Execute(Sql)

Set strDBUsername = LO(\"username\")
Set strDBPassword = LO(\"password\")

Do
  If (strDBUsername = strUsername) And (strDBPassword = strPassword)  Then
    Session(\"ID\") = \"1\"
    error = \"\"
    Exit Do
  End If
  LO.MoveNext
  Loop while not LO.eof

  RS.Close
End if
%>

Netrac > Den kan jeg ikke bruge!