Lite säkrare inloggning?

8 svar · 230 visningar · startad av Lukaspojken 12 maj 2001

LukaspojkenMedlem sedan maj 20011 312 inlägg

Trådstart12 maj 2001 09:15#1

Jag skrev om webstudios script lite...är denna bättre...och går det att göra det säkrare enklare?

Dim Username
Username = Request.Form("Username")

Visa = "SELECT \* FROM users WHERE Username='" & Username & "'
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic

X = FALSE

If RecSet("Password") = Request.Form("Password") AND RecSet("Access") = "B" Then
X = TRUE
End If

If X = FALSE

	Fel lösenord!

End If

If X = TRUE

Session("username") = Request.Form("username")
Session("password") = Request.Form("password") %\>

@ndersMedlem sedan juni 200032 967 inlägg

12 maj 2001 09:28#2

kika på brws script ganska långt ner i denna tråd, det är inte så dumt.
http://cgi.webforum.nu/wf/Forum11/HTML/003066.html

mvh,

ToonsterMedlem sedan feb. 20001 590 inlägg

12 maj 2001 09:31#3

Eller säkrast av allt, skapa ett inloggningskonto på servern. Har du inte direkt tillgång till den, kan det bli lite svårare dock...

LukaspojkenMedlem sedan maj 20011 312 inlägg

12 maj 2001 09:40#4

Hej @nders...jag förstår bara inte denna raden i brw:s-script

Connection.Open "driver={SQL Server};SERVER=servern;UID=login;PWD=password;Database=databas"

LukaspojkenMedlem sedan maj 20011 312 inlägg

12 maj 2001 09:42#5

Önskar jag hade direkt tillgång till det...:)

@ndersMedlem sedan juni 200032 967 inlägg

12 maj 2001 09:43#6

så ser en connection string ut om man använder SQL Server som dbms. använd bara samma connectionobjekt och connectionstring som du använt tidigare mot access.

LukaspojkenMedlem sedan maj 20011 312 inlägg

12 maj 2001 09:58#7

Ok...jag ska testa att göra om den till access...har tittat lite på scriptet och den verkar helt ok...tycker du detta ser bra ut:

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open ("driver={Microsoft Access Driver (\*.mdb)}; DBQ=" & Server.MapPath("\\bipride\\db\\users.mdb"))

Set RecSet = Server.CreateObject("ADODB.Recordset")

Visa = "SELECT \* FROM users WHERE Username='" & Request.Form("Username") & "' AND Password='" & Request.Form("Password") & "'"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic

If RS.EOF Then

Recset.Close
Connect.Close
Response.Redirect("default.asp")

Else

Session("Username") = RecSet("Username")
Session("Password") = RecSet("Password")
Recset.Close
Connect.Close
Response.Redirect("insidan.asp")

End If

@ndersMedlem sedan juni 200032 967 inlägg

12 maj 2001 10:02#8

jag tycker att det ser bra ut, och det ser ut att fungera som det ska.

jag hade dock gjort två små ändringar.

jag hade tagit bort den här raden:

Set RecSet = Server.CreateObject("ADODB.Recordset")

jag hade ändrat den här raden:

RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic

till

set RecSet = Connect.Execute(Visa)

det känns onödigt att öppna ett recordset på det sättet bara, när vi inte ens ska loopa igenom det.

mvh,

LukaspojkenMedlem sedan maj 20011 312 inlägg

12 maj 2001 10:31#9

Tack @nders...känns som det finns en hel del i min kod att optimera...jag trodde man alltid skulle använda recordset...:)