webForumDet fria alternativet
Logga in

The else from hell!

29 svar · 258 visningar · startad av Hallgren

HallgrenMedlem sedan dec. 19991 606 inlägg
#1

Mmm, har försökta att få in denna kod:

if request.Form("uid") ="admin" And request.Form("pws") = "admin" Then response.redirect("admin.asp")

i denna:

<%
set dbcon = Server.CreateObject("ADODB.Connection")
dbcon.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.Mappath("restauranger.mdb")
if RequestCookies("lunchguiden")("uid") = "" Or RequestCookies("lunchguiden")("pwd") = "" then
	set UID = dbcon.execute("SELECT * FROM rest WHERE rest_uid = '" & request.Form("uid") & "' And rest_pwd = '" & request.Form("pwd") & "'")
	if UID.EOF then
		%>Felaktigt lösenord<br><br><a href="inloggning.asp">Försök igen</a><%
		ResponseCookies("lunchguiden")("uid") = ""
		ResponseCookies("lunchguiden")("pwd") = ""
		ResponseCookies("lunchguiden").Expires = Date + 365
	else
		Session("login_id") = UID("rest_id")
		Response.Redirect("meny.asp")
		if Request.Form("spara_losenord") = "ja" then
			ResponseCookies("lunchguiden")("uid") = UID("rest_uid")
			ResponseCookies("lunchguiden")("pwd") = UID("rest_pwd")
			ResponseCookies("lunchguiden").Expires = Date + 365
		end if
	end if
else
	set UID = dbcon.execute("SELECT * FROM rest WHERE rest_uid = '" & RequestCookies("lunchguiden")("uid") & "' And rest_pwd = '" & RequestCookies("lunchguiden")("pwd") & "'")
	if UID.EOF then
		%>Felaktigt lösenord<br><br><a href="login.asp">Försök igen</a><%
		ResponseCookies("lunchguiden")("uid") = ""
		ResponseCookies("lunchguiden")("pwd") = ""
		ResponseCookies("lunchguiden").Expires = Date + 365
	else
		Session("login_id") = UID("rest_id")
		Response.Redirect("meny.asp")

	end if
end if

%>

genom att använde else sattsen men får alltid syntax. :( Vart skall jag lägga den!!??

PS. Jag vet att ResponseCookies är fel men var tvungen för att kunna göra detta inlägg DS.

------------------
Forumledare, webForum

[Redigerat av Hallgren den 20 jul 2001]

LarsGMedlem sedan dec. 200012 464 inlägg
#2

Din else i mitten där hänger inte ihop med någon if.

set dbcon = Server.CreateObject("ADODB.Connection")
dbcon.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.Mappath("restauranger.mdb")
if RequestCookies("lunchguiden")("uid") = "" Or RequestCookies("lunchguiden")("pwd") = "" then
set UID = dbcon.execute("SELECT * FROM rest WHERE rest_uid = '" & request.Form("uid") & "' And rest_pwd = '" & request.Form("pwd") & "'")
if UID.EOF then
%>Felaktigt lösenord<br><br><a href="inloggning.asp">Försök igen</a><%
ResponseCookies("lunchguiden")("uid") = ""
ResponseCookies("lunchguiden")("pwd") = ""
ResponseCookies("lunchguiden").Expires = Date + 365
else
Session("login_id") = UID("rest_id")
Response.Redirect("meny.asp")
if Request.Form("spara_losenord") = "ja" then
ResponseCookies("lunchguiden")("uid") = UID("rest_uid")
ResponseCookies("lunchguiden")("pwd") = UID("rest_pwd")
ResponseCookies("lunchguiden").Expires = Date + 365
end if
end if
[b]
if request.Form("uid") ="admin" And request.Form("pws") = "admin" Then
uid.close
dbcon.close
 response.redirect("admin.asp")
end if
[/b]

set UID = dbcon.execute("SELECT * FROM rest WHERE rest_uid = '" & RequestCookies("lunchguiden")("uid") & "' And rest_pwd = '" & RequestCookies("lunchguiden")("pwd") & "'")
if UID.EOF then
%>Felaktigt lösenord<br><br><a href="login.asp">Försök igen</a><%
ResponseCookies("lunchguiden")("uid") = ""
ResponseCookies("lunchguiden")("pwd") = ""
ResponseCookies("lunchguiden").Expires = Date + 365
else
Session("login_id") = UID("rest_id")
Response.Redirect("meny.asp")
end if
end if

%>

är det något sådant du är ute efter?

------------------
essentitia preter non sans multiplicandum

@ndersMedlem sedan juni 200032 969 inlägg
#3

ett bra sätt att lära sig är att indentera sin kod, så problem som detta är lättare att hitta.

if blah=true then
     response.write "jamen!"
     if blah2=false then
          response.write "nämen!"
     else
          if blah3=true then
               response.write "jomenvisst!"
          end if
     end if
end if

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
can i borrow your goat?
</A>

PaceMedlem sedan juni 20019 024 inlägg
#4

ett bra sätt att lära sig är att indentera sin kod, så problem som detta är lättare att hitta.

Om forumet tillät flera mellanslag i rad ja (bortsett från tabb).

------------------
Peter D

@ndersMedlem sedan juni 200032 969 inlägg
#5

du skriver väl inte din egen kod i forumet?

använder man perl-taggar som jag gjort ovan så visas mina fem mellanslag jag använt för att indentera.

mvh,

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
can i borrow your goat?
</A>

PaceMedlem sedan juni 20019 024 inlägg
#6

... fast texten blir mindre då. Svårare att läsa.

------------------
Peter D

@ndersMedlem sedan juni 200032 969 inlägg
#7

ja.

men indenteringarna finns med, så för att demonstrera hur jag tycker att man borde skriva i sin editor när man utvecklar så använder jag perl-taggarna.

fast aldrig annars, eftersom man inte ser vad där står... ;)

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
can i borrow your goat?
</A>

PaceMedlem sedan juni 20019 024 inlägg
#8

He he ... exakt! ;)

------------------
Peter D

PaceMedlem sedan juni 20019 024 inlägg
#9

Det borde man ju egentligen klaga på!

------------------
Peter D

@ndersMedlem sedan juni 200032 969 inlägg
#10

Pace, http://staff.webforum.nu/wf/Forum11/HTML/000038.html

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
can i borrow your goat?
</A>

PaceMedlem sedan juni 20019 024 inlägg
#11

Du är en ängel @nders!!

------------------
Peter D

HallgrenMedlem sedan dec. 19991 606 inlägg
#12

ÖÖhh, mmmm...hur som helst så fungerar det inte. Det verkar inte läsa av

if request.Form("uid") ="admin" And request.Form("pws") = "admin" Then
uid.close
dbcon.close
response.redirect("admin.asp")
end if

Får fram "fel lösen" typ. :l

Liten tanke bara. Är det inte mer logiskt att använda den "admin" koden först och sedan om det inte stämmer läser den av id/pws från mdb:n?....kankse. :)

------------------
Forumledare, webForum

HallgrenMedlem sedan dec. 19991 606 inlägg
#13

Vart har ni försvunnit?

------------------
Forumledare, webForum

LarsGMedlem sedan dec. 200012 464 inlägg
#14

Jo, det är väl lämpligt att kolla admin först.

Kan den misslyckade inloggningen bero på något problem med små kontra stora bokstäver?

------------------
essentitia preter non sans multiplicandum

@ndersMedlem sedan juni 200032 969 inlägg
#15

vi har inte försvunnit, din tråd hade nog bara ramlat ner.

var får du "fel lösen typ"? vilken sida?

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
can i borrow your goat?
</A>

HallgrenMedlem sedan dec. 19991 606 inlägg
#16

@nders, jaf får upp: Felaktigt lösenord Den funktionen finns med på rad 7 i skriptet.

LarsG, är det bara att trycka in:

if request.Form("uid") ="admin" And request.Form("pws") = "admin" Then
uid.close
dbcon.close
response.redirect("admin.asp")
end if

innan

set dbcon = Server.CreateObject etc.

------------------
Forumledare, webForum

@ndersMedlem sedan juni 200032 969 inlägg
#17

ligger användaren admin/admin i db?

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
can i borrow your goat?
</A>

HallgrenMedlem sedan dec. 19991 606 inlägg
#18

Nix.

------------------
Forumledare, webForum

LarsGMedlem sedan dec. 200012 464 inlägg
#19

Ja, om du lägger det först så får du ta bort koden som stänger databaskopplingen och recordsetet

if lcase(request.Form("uid")) ="admin" And lcase(request.Form("pws")) = "admin" Then
response.redirect("admin.asp")
end if

Du kan ju lägga in en debug-utskrift på värdena i request.Form("uid") och request.Form("pws") för att se att du får över värdena ordentligt.

------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 23 jul 2001]

HallgrenMedlem sedan dec. 19991 606 inlägg
#20

Typ:

<%

if lcase(request.Form("uid")) ="admin" And lcase(request.Form("pws")) = "admin" Then
response.redirect("admin.asp")
end if
else
set dbcon = Server.CreateObject("ADODB.Connection")
dbcon.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.Mappath("restauranger.mdb")
if RequestCookies("lunchguiden")("uid") = "" Or RequestCookies("lunchguiden")("pwd") = "" then
set UID = dbcon.execute("SELECT * FROM rest WHERE rest_uid = '" & request.Form("uid") & "' And rest_pwd = '" & request.Form("pwd") & "'")
if UID.EOF then
%>Felaktigt lösenord<br><br><a href="inloggning.asp">Försök igen</a><%
ResponseCookies("lunchguiden")("uid") = ""
ResponseCookies("lunchguiden")("pwd") = ""
ResponseCookies("lunchguiden").Expires = Date + 365
else
Session("login_id") = UID("rest_id")
Response.Redirect("meny.asp")
if Request.Form("spara_losenord") = "ja" then
ResponseCookies("lunchguiden")("uid") = UID("rest_uid")
ResponseCookies("lunchguiden")("pwd") = UID("rest_pwd")
ResponseCookies("lunchguiden").Expires = Date + 365
end if
end if
else
set UID = dbcon.execute("SELECT * FROM rest WHERE rest_uid = '" & RequestCookies("lunchguiden")("uid") & "' And rest_pwd = '" & RequestCookies("lunchguiden")("pwd") & "'")
if UID.EOF then
%>Felaktigt lösenord<br><br><a href="login.asp">Försök igen</a><%
ResponseCookies("lunchguiden")("uid") = ""
ResponseCookies("lunchguiden")("pwd") = ""
ResponseCookies("lunchguiden").Expires = Date + 365
else
Session("login_id") = UID("rest_id")
Response.Redirect("meny.asp")
end if
end if

%>

------------------
Forumledare, webForum

[Redigerat av Hallgren den 23 jul 2001]

144 ms totalt · 3 externa anrop · v20260731065814-full.30151723
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
142 ms — hämta tråd, inlägg och bilagor (db)