case sensitive per accedere ad area protetta

[Mr.Fabio]

Premesso che ho un'area riservata e che il nome utente e la password vengono registrate in un database access,
è possibile che durante l'accesso a questa area non sia importante se i dati vengono inseriti in maiuscolo o minuscolo?????
L'utente riesce ad accedere in entrambi i casi.
Come si puo (se è possibile) fare in modo che il tutto sia case sensitive????

[santino83]

è case sensitive per forza a meno che non hai cambiato qualcosa (magari avevi messo una funzione lcase/ucase) al momento dei confronti di username e password

[Mr.Fabio]

Originariamente inviato da santino83
è case sensitive per forza a meno che non hai cambiato qualcosa (magari avevi messo una funzione lcase/ucase) al momento dei confronti di username e password

NON HO NESSUNA FUNZIONE SCRITTA PRECEDENTEMENTE
e si accede uguamente se scrivo maiuscolo o miniscolo
giuroooooooooooo

[santino83]

non è possibile, a me non l'ha mai fatto

mi fai vedere il codice dove effetti il controllo di nome utente e password dopo il submit del form?

[weppos]

Originariamente inviato da Mr.Fabio
Premesso che ho un'area riservata e che il nome utente e la password vengono registrate in un database access,
è possibile che durante l'accesso a questa area non sia importante se i dati vengono inseriti in maiuscolo o minuscolo?????
L'utente riesce ad accedere in entrambi i casi.
Come si puo (se è possibile) fare in modo che il tutto sia case sensitive????

http://freeasp.html.it/script/view_script.asp?id=292

[Mr.Fabio]

Ho letto l'articolo suggerito da WEPPOS.
Come dovrei allora modificare il mio codice per fare in modo che il tutto diventi case sensitive??

Dim nome_ut
Dim pass
nome_ut = Replace(Request.Form("nome_utente"), "'", "''")
pass = Replace(Request.Form("password"), "'", "''")

Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("/mdb-database/utenti.mdb")
Dim sql
sql = "SELECT id FROM utenti WHERE nomeutente='" &nome_ut&_
       "' AND PASSWORD='" &pass& "'"
Dim rs
Set rs = cn.Execute(sql)

Dim autenticato
if rs.eof then
  autenticato = false
else
  autenticato = true
end if
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing

if autenticato = true then
  Session("Autenticato") = "OK"
  Response.Redirect("autenticato.asp")
else
  Response.Redirect("default.asp")
end if

[weppos]

Originariamente inviato da Mr.Fabio
Ho letto l'articolo suggerito da WEPPOS.
Come dovrei allora modificare il mio codice per fare in modo che il tutto diventi case sensitive??

Se lo hai letto sta tutto scritto lì.
Fai il controllo estrapolando i dati e comparandoli con strComp

[Shagrat]

però così come è strutturato lo script la finzione strComp non la utilizzi...dovresti prima estrarre i dati dal tatabase (anche questo è case INsensitive) e poi una volta estratti fai il confronto con la strComp

mi spiego meglio:

Set rs = cn.execute("SELECT id FROM utenti WHERE nomeutente='" &nome_ut&"' AND PASSWORD='" &pass& "'"

if rs.eof then
  'non autenticato
else
  if strComp(rs(nomeutente),nome_ut)=0 AND strComp(rs(password),pass)=0 then
    'autenticato
  else
    'non autenticato
  end if
end if

una cosa così