Hjälp med ASP|Programmering / Grafisk formgivning|Forum|Nordichardware

Search
Forum Scope


Match



Forum Options



Minimum search word length is 3 characters - maximum search word length is 84 characters
Lost password?
The forums are currently locked and only available for read only access
sp_Feed sp_TopicIcon
Hjälp med ASP
GuldVixen
Almost a full-blooded keyboard-warrior
Medlem
Forum Posts: 166
Member Since:
November 4, 2002
sp_UserOfflineSmall Offline
1
April 15, 2004 - 11:42 pm
sp_Permalink sp_Print

Jag har gjort en sida som kollar om användaren finns, men den funkar bara på den som är först i databasen. Alltså alla andra vägrar den släppa in 🙁
kod:

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("dbprelusion.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM admin"
rs.Open Visa, Connect, adOpenStatic, adLockOptimistic
do until rs.eof
if request.form("namn") = rs("namn") and request.form("losenord") = rs("losenord") then
session("loggain") = "yes"
response.Redirect("admin.asp")
else
response.Redirect("loggain.asp?fel=1")
end if
rs.MoveNext
Loop
rs.Close
%>

teppas
Nu vet jag hur man gör inlägg!
Medlem
Forum Posts: 21
Member Since:
May 21, 2001
sp_UserOfflineSmall Offline
597783
April 16, 2004 - 9:01 am
sp_Permalink sp_Print

GuldVixen wrote: Jag har gjort en sida som kollar om användaren finns, men den funkar bara på den som är först i databasen. Alltså alla andra vägrar den släppa in 🙁
kod:

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("dbprelusion.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM admin"
rs.Open Visa, Connect, adOpenStatic, adLockOptimistic
do until rs.eof
if request.form("namn") = rs("namn") and request.form("losenord") = rs("losenord") then
session("loggain") = "yes"
response.Redirect("admin.asp")
else
response.Redirect("loggain.asp?fel=1")
end if
rs.MoveNext
Loop
rs.Close
%>

Uh, det är nog ingen jättebra idé att loopa sig igenom alla användarna i databasen, åtminstonde inte om du skall ha ganska många användare. Då blir det väldigt krävande för databasen.

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("dbprelusion.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM admin WHERE namn = request.form("namn") AND losenord = request.form("losenord")"
rs.Open Visa, Connect, adOpenStatic, adLockOptimistic
if rs.eof then
response.Redirect("loggain.asp?fel=1")
else
session("loggain") = "yes"
end if
rs.Close
%>

Ovanstående kod borde vara bättre, rent prestandamässigt.

GuldVixen
Almost a full-blooded keyboard-warrior
Medlem
Forum Posts: 166
Member Since:
November 4, 2002
sp_UserOfflineSmall Offline
597796
April 16, 2004 - 9:35 am
sp_Permalink sp_Print

Kompileringsfel i Microsoft VBScript fel '800a0401'

Slut på programsats förväntas.

/prelusion/koll.asp, rad 6

Visa = "SELECT * FROM admin WHERE namn = request.form("namn") AND losenord = request.form("losenord")"
------------------------------------------------------------------------------^
Jag är inte så bra på asp så jag vet inte vad som är fel nu. Jag ska inte ha så många användare, men jag förstår inte varför inte min kod funkar, om den inte hittar rätt namn så ska den ju kolla på nästa namn i databasen.. men den gör ju inte det :/
Tack på förhand 🙂

teppas
Nu vet jag hur man gör inlägg!
Medlem
Forum Posts: 21
Member Since:
May 21, 2001
sp_UserOfflineSmall Offline
597917
April 16, 2004 - 12:50 pm
sp_Permalink sp_Print

GuldVixen wrote: Kompileringsfel i Microsoft VBScript fel '800a0401'

Slut på programsats förväntas.

/prelusion/koll.asp, rad 6

Visa = "SELECT * FROM admin WHERE namn = request.form("namn") AND losenord = request.form("losenord")"
------------------------------------------------------------------------------^
Jag är inte så bra på asp så jag vet inte vad som är fel nu. Jag ska inte ha så många användare, men jag förstår inte varför inte min kod funkar, om den inte hittar rätt namn så ska den ju kolla på nästa namn i databasen.. men den gör ju inte det :/
Tack på förhand 🙂

Sorry det blev visst lite syntax fel, det var längesen jag programmerade ASP, kör PHP nuförtiden.

Kolla om detta hjälper:

Visa = "SELECT * FROM admin WHERE namn = '" & request.form("namn") &"' AND losenord = '" & request.form("losenord") & "'"

teppas
Nu vet jag hur man gör inlägg!
Medlem
Forum Posts: 21
Member Since:
May 21, 2001
sp_UserOfflineSmall Offline
597928
April 16, 2004 - 1:08 pm
sp_Permalink sp_Print

För att din kod skall fungera behöver den nog se ut ungefär som nedan, det är dock bättre om du använder den andra koden. Blir inte lika ansträngande för databasen.

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("dbprelusion.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM admin"
rs.Open Visa, Connect, adOpenStatic, adLockOptimistic
do until rs.eof
if request.form("namn") = rs("namn") and request.form("losenord") = rs("losenord") then
session("loggain") = "yes"
response.Redirect("admin.asp")
else
rs.MoveNext
Loop
end if
response.Redirect("loggain.asp?fel=1")
rs.Close
%>

GuldVixen
Almost a full-blooded keyboard-warrior
Medlem
Forum Posts: 166
Member Since:
November 4, 2002
sp_UserOfflineSmall Offline
598546
April 16, 2004 - 11:20 pm
sp_Permalink sp_Print

Tack för svaren! Men nu får jag följande fel: (har inget med login sidan att göra)
Microsoft OLE DB Provider for ODBC Drivers fel '80040e14'

[Microsoft][Drivrutin för ODBC Microsoft Access] Okänt

/prelusion/koll.asp, rad 7

Rad 7:
rs.Open Visa, Connect, adOpenStatic, adLockOptimistic

Har inte gjort ett skvatt! är så på alla mina asp sidor nu! 🙁

Forum Timezone: Europe/Stockholm
Most Users Ever Online: 694
Currently Online:
Guest(s) 35
Currently Browsing this Page:
1 Guest(s)
Top Posters:
Andreas Galistel: 16287
Jonas Klar: 15897
ilg@dd: 10810
Nyhet: 10607
Mind: 10550
Ctrl: 10355
Gueno: 9881
Guest: 9344
Snorch: 8881
Callister: 8468
Newest Members:
PetrbonFU PetrbonFU
Karine Bembry
Dolores Mcdaniels
Anibal McLeish
Francisca Alt
Alfie Everhart
Lester Huitt
Orlando Jorgensen
Mikki Lundgren
Dakota Kozlowski
Forum Stats:
Groups: 11
Forums: 59
Topics: 146630
Posts: 1300967

 

Member Stats:
Guest Posters: 2
Members: 79425
Moderators: 0
Admins: 11
Administrators: nordicadmin, Henrik Berntsson, Anton Karmehed, Carl Holmberg, Joel Oscarsson, Mikael Linnér, Mikael Schwartz, Andreas Paulsson, Nickebjrk, Mattias Pettersson, EmxL