CaseSensitive mot Access DB

4 svar · 209 visningar · startad av T_Codez 6 sep. 2001

T_CodezMedlem sedan juli 2001458 inlägg

Trådstart6 sep. 2001 13:55#1

Hej hopp!

Nice to back...

Jag håller på och försöker få ihop en liten CaseSensitive inloggning. Jag har använt mig av StrComp i diverse olika varianter. Och just nu befinner jag mig här:

Kodsnutt:

SQL = "SELECT * FROM users Where StrComp(username = '" &username &"',0) And StrComp(pwd = '" &password &"',0)"

Skulle vara tacksam för lite vägledning. När jag sökte forumet fann jag en del, men inte tillräckligt för att bli klockare. Kanske man ska använda "strstr" istället?

Tack för uppmärksamheten.
mvh / TT

T_CodezMedlem sedan juli 2001458 inlägg

7 sep. 2001 06:35#2

Det verkar vara en klurig historia det här. Efter en del knåpande nu så kanske det skulla vara lättare om man gjorde någonting typ så här:

dim uname, passw

SQL = "SELECT * FROM users Where username = '" &username &"' And pwd = '" &password &"'"

Set db = Server.CreateObject("ADODB.Connection")
db.Open ...

uname = rs("username")
passw = rs("pwd")

IF StrComp(uname, '" &username &"',0) And StrComp(passw = '" &password &"',0)" Then
response.redirect inne.asp
else
response.redirect login.asp

Vad tror ni om det? Tyvärr så fungerade inte denna variant. Men det kanske kan ge en snilleblix för er ?

Tack för uppmärksamheten

VideMedlem sedan dec. 19998 577 inlägg

7 sep. 2001 07:07#3

IF StrComp(uname, username, 0) > -1 Then
'Jepp, dom matchar..
End If

http://www.devguru.com/Technologies/vbscript/quickref/strcomp.html

LarsGMedlem sedan dec. 200012 464 inlägg

7 sep. 2001 09:37#4

SQL = "SELECT * FROM users Where username = '" &username &"' And pwd = '" &password &"'" 

Set db = Server.CreateObject("ADODB.Connection")
db.Open ...

uname = rs("username")
passw = rs("pwd")

valid = 0
do while not rs.eof
  if  cstr(uname) = cstr(username) _
  and cstr(passw) = cstr(password) then
      valid = 1
      exit do
  end if
  rs.movenext
loop
rs.close
db.close
if  valid = 1 then 
response.redirect inne.asp
else
response.redirect login.asp
end if

En vanlig jämförelse i VB-script är väl case-sensitive (skiftlägeskänslig )

T_CodezMedlem sedan juli 2001458 inlägg

7 sep. 2001 11:15#5

Thankz LarsG!

Fungerar fantastiskt bra.