Inloggning!

13 svar · 225 visningar · startad av graf 22 sep. 2001

grafMedlem sedan aug. 2001174 inlägg

Trådstart22 sep. 2001 21:00#1

Hej, jag tänkte skaffa en ASP-inloggnings script och har kommit långt ;-)

När man kommer in på sidan kommer man till denna sida:
<html>
<head>
<title>logga in</title>
</head>
<body>
<form action="login.asp" method="post">
Användarnamn:<br><input type="text" name="login"><br>
Lösenord:<br><input type="password" name="password"><br>
<input type="submit" value="Logga In" name="submit">
</form>
</body>
</html>

sedan om man har skrivit rätt användarnamn & password så ska man komma till en sida som ser ut såhär:

<%
dim id, psw
session("id") = Request.Form("login")
session("psw") = Request.Form("password")

If session("id") = "person1" And session("psw") = "psw1" or session("id") = "person2" and session("psw") = "psw2" or session("id") = "Person3" and sessin("psw") = "psw3" then %>

Men när jag ska logga in (jag skriver rätt nick & lösenord) så får jag detta felmeddelande:

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/graf/login.asp, line 7

Vad ligger felet?

grafMedlem sedan aug. 2001174 inlägg

22 sep. 2001 21:01#2

Jag har även detta script på den sida jag ska lösenordsskydda:

<%@ LANGUAGE="VBSCRIPT" %>
<%
If session("inloggad") = 1 Then
%>
<html></html>
<%
Else
response.Redirect("login.html")
End If
%>

jorgenMedlem sedan feb. 20012 412 inlägg

22 sep. 2001 21:02#3

Hej!

Du måste avsluta If-satsen med End If.

mvh Jörgen

jorgenMedlem sedan feb. 20012 412 inlägg

22 sep. 2001 21:08#4

Hej!

<%@ LANGUAGE="VBSCRIPT" %>
<% 
If session("inloggad") = 1 Then
%> 
<html></html>
<% 
Else
response.Redirect("login.html")
End If
%>

Liten förbättring på din senaste postade kod:


<% 
If session("inloggad") <> 1 Then
response.Redirect("login.html")
End If
%>

Som du lägger överst på varje skyddad sida.

mvh Jörgen

grafMedlem sedan aug. 2001174 inlägg

22 sep. 2001 21:10#5

Hej Jörgen!

Såhär eller?
<%
dim id, psw
session("id") = Request.Form("login")
session("psw") = Request.Form("password")

If session("id") = "person1" And session("psw") = "psw1" or session("id") = "person2" and session("psw") = "psw2" or session("id") = "Person3" and sessin("psw") = "psw3" then End if %>

grafMedlem sedan aug. 2001174 inlägg

22 sep. 2001 21:11#6

Såg inte ditt sista inlägg Jörgen!
Tack så mkt!

jorgenMedlem sedan feb. 20012 412 inlägg

22 sep. 2001 21:11#7

Nopps!

End If måste vara på en egen rad

mvh Jörgen

jorgenMedlem sedan feb. 20012 412 inlägg

22 sep. 2001 21:17#8

Hej!

If session("id") = "person1" And session("psw") = "psw1" or session("id") = "person2" and session("psw") = "psw2" or session("id") = "Person3" and sessin("psw") = "psw3" then End if %>

Vad vill du göra med denna koden, tycker den ser lite omständig ut?

Mvh Jörgen

grafMedlem sedan aug. 2001174 inlägg

22 sep. 2001 21:17#9

Oj oj nu blev det för mycket här ;-)

Jag skrev såhär i filen login.asp:

<%@ LANGUAGE="VBSCRIPT" %>
<%
If session("inloggad") = 1 Then
%>
<html></html>
<%
Else
response.Redirect("login.html")
End If
%>
<%
dim id, psw
session("id") = Request.Form("login")
session("psw") = Request.Form("password")

If session("id") = "Webmaster" And session("psw") = "gcunq87" or session("id") = "intreakt" and session("psw") = "grand" or session("id") = "Person3" and sessin("psw") = "psw3" then %>

Det var fel, vad exakt ska jag skriva i den filen?

Tack!

jorgenMedlem sedan feb. 20012 412 inlägg

22 sep. 2001 21:28#10

Hej!

Du har ett formulär med 2 fält: login och password. Jag antar att du har samma namn på fälten i databasen.

loggain.asp

där har du ditt formulär som går till logincheck.asp

logincheck.asp

'# -- Kolla så att loginuppgifterna stämmer --

SQLStmt = "SELECT * FROM tabell WHERE login = '" & Request.Form("login") & "' " & _
" AND Password = '" & Request.Form("Password") & "'"
Set RS = Connection.Execute(SQLStmt) 

If RS.EOF Then

'#--om det inte stämmer, ominloggning--
Response.Redirect("login.html") 

Else 

'#--om det stämmer, inloggad och session skapas--
dim id
session("id") = Request.Form("login")
Response.Redirect("inloggad.asp") 

End If
%>

Överst på varje sida för att kolla så att användaren har en giltlig session

<% 
If session("id") = "" Then
response.Redirect("login.html")
End If
%>

Jag hade inte sparat lösenordet i en session. Utan bara användarens Id.

Mvh Jörgen

grafMedlem sedan aug. 2001174 inlägg

22 sep. 2001 21:32#11

Jag tänkte göra samma sak som dem förklarar på http://cgi.webforum.nu/wf/Forum11/HTML/000251.html och då ska man inte behöva en databas.

Men jag förstår inte riktigt vart jag ska lägga in End if

jorgenMedlem sedan feb. 20012 412 inlägg

22 sep. 2001 21:39#12

Hej!

En grundmodell:


If 1 = 0 Then

'detta är en omöjlighet

else

'det omöjliga har blivit möjligt

End If

Hajar du?

Mvh Jörgen

grafMedlem sedan aug. 2001174 inlägg

22 sep. 2001 21:42#13

Nej det gör jag icke
Men om vi går tillbaka till den koden jag skrev i början.
Hur ska jag skriva den för att få det att fungera som det ska?

jorgenMedlem sedan feb. 20012 412 inlägg

22 sep. 2001 21:53#14

If session("id") = "person1" And session("psw") = "psw1" or session("id") = "person2" and session("psw") = "psw2" or session("id") = "Person3" and sessin("psw") = "psw3" then 

'#-- Här måste hända något--

'#-- Här skrivs ut en End If --
End If

%>

Du slutar ju efter Then (kolla mallen ovan) Där m¨åste finnas en END If efter det som ska händta om If-satsen uppfylls.

mvh Jörgen