15 svar · 227 visningar · startad av Insider
Vilket är det bästa sättet att hantera ett system där användare kan logga in?
Jag försöker att skicka med en variabel:
username = Request.Form("username")
...men det funkar inte...
Det finns nåt som heter Sessions...kan man använda det istället???
jag gjorde med hjälp av en databas.. har inte koden hemma.. ska lägga in den hhär till morronen..
hmm ta en titt här: http://cgi.webforum.nu/wf/Forum11/HTML/006754.html fick lite hjälp av LarsG med flera..
[Redigerat av cHeMiCaL-X den 15 okt 2001]
Ditt inlägg är lite knapphändigt.
De flesta inloggningssystem är baserade på att man lagrar ett användarnamn och ett lösenord i en databas.
Vid inloggningen så kontrolleras att värdena i inmatningsfälten stämmer med det som finns i databasen. Om uppgiterna stämmer så kan man sätta en session-variabel för att ange att personen är inloggad, t.ex.
session("username") = request.form("username")
session("loggedin") = "yes"
Det värdet kan man använda på andra sidor för att kontrollera om besökaren är inloggad
if "" & session("loggedin") <> "yes" then
response.redirect("login.asp")
end if
------------------
essentitia preter non sans multiplicandum
[Redigerat av LarsG den 15 okt 2001]
Kan man lagra användarnamnet i en variabel på den sida man loggar in, och sedan använda den på alla andra asp-sidor.
user = Request.Form("username")
<%=username%> och så skrivs namnet ut på sidan?
Eller för att stoppa in i SQL-satser...
Select tid from person where username='username' ???
Det är just det man använder session till...
om du skriver
session("username") = Request.Form("username")
så kan du använda session("username") som en vanlig variabel på alla andra asp-sidor. :)
------------------
Erik
Jag får ett skumt felmeddelande:
Microsoft VBScript compilation error '800a0401'
Expected end of statement
/Asp/grp2/visa.asp, line 26
Visa = "SELECT * FROM tid WHERE Username=session("username")"
--------------------------------------------------^
Som en vanlig variabel
Visa = "SELECT * FROM tid WHERE Username='" & session("username") & "'"
------------------
essentitia preter non sans multiplicandum
Det funkar nu. Istället skrev jag:
"SELECT * FROM tid WHERE Username='" & session("username") & "'"
Nu var du riktigt snabb!
Det tycker vi om!!! :)
Här kommer nästa problem.
Jag har genererat en lista med siffror.
Siffrorna är länkar, och när man klickar på dem ska man komma till en sida där man kan se vilka poster som hör till den siffran.
Du får nog förtydliga frågan lite ;)
------------------
[Har aldrig redigerats av någon den 11 okt 2001]
Jag har en lista med veckor.
De är länkar skapade i en loop...
Jag testade att skriva:
<a href="visa_vecka.asp&vecka=<% =RecSet("vecka") %>"><% =RecSet("vecka") %></a>
Och när man kommer till visa_vecka.asp ska de dagarna för den valda veckan visas.
Där skrev jag:
If Request.QueryString("vecka") = "23" Then .................
Är jag på rätt väg???
Om du hämtar posterna från en databas så borde du inte behöva någon if
sql = "select * from t where vecka = " & request.querystring("vecka")
set rs = connect.execute(sql)
'visa data
eller du kanske hämtar data på något annat sätt?
------------------
essentitia preter non sans multiplicandum
[Redigerat av LarsG den 15 okt 2001]
Det funkar inte..."404 not found"
Måste man dimma vecka nånstans?
Här kommer koden:
visa.asp
<%@ Language=VBScript %>
<!-- #include virtual="adovbs.inc" -->
<html>
<HEAD>
<META http-equiv=Content-Type content="text/html; charset=unicode">
<% 'Dim login
'login = Request.QueryString("username")
Set Connect = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=users.mdb; "&"Persist Security Info=False"
%>
<% If Request.QueryString("alt") = "viewusers" Then %>
<font size="1" face="verdana, arial">
<b>Listar </b><p>
<b><%=session("username")%>'s tidrapport<b><br><br>
<% Visa = "SELECT * FROM tid WHERE Username='" & session("username") & "'"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100"><font size="1" face="verdana, arial"><b>Veckor</b></font></td>
</tr>
<% Do While Not RecSet.EOF %>
<tr>
<td><font size="1" face="verdana, arial"><a href="visa_vecka.asp&vecka=<% =RecSet("vecka") %>"><% =RecSet("vecka") %></a></font></td>
</tr>
<% RecSet.MoveNext
Loop %>
</font>
<% RecSet.Close
End If %>
</html>
visa_vecka.asp
<%@ Language=VBScript %>
<!-- #include virtual="adovbs.inc" -->
<html>
<HEAD>
<META http-equiv=Content-Type content="text/html; charset=unicode">
<% 'Dim login
'login = Request.QueryString("username")
Set Connect = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=users.mdb; "&"Persist Security Info=False"
%>
<font size="1" face="verdana, arial">
<b>Listar </b><p>
<b><%=session("username")%>'s tidrapport för vecka: <%=request.querystring("vecka")%><b><br><br>
<% Visa = "select * from tid where vecka = " & request.querystring("vecka")
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100"><font size="1" face="verdana, arial"><b>Anvandare</b></font></td>
<td width="100"><font size="1" face="verdana, arial"><b>Mandag</b></font></td>
<td width="150"><font size="1" face="verdana, arial"><b>Tisdag</b></font></td>
<td width="100"><font size="1" face="verdana, arial"><b>Onsdag</b></font></td>
</tr>
<% Do While Not RecSet.EOF %>
<tr>
<td><font size="1" face="verdana, arial"><% =RecSet("Username") %></font></td>
<td><font size="1" face="verdana, arial"><% =RecSet("man") %></font></td>
<td><font size="1" face="verdana, arial"><% =RecSet("tis") %></a></font></td>
<td><font size="1" face="verdana, arial"><% =RecSet("ons") %></font></td>
<td><font size="1" face="verdana, arial"><% =RecSet("tor") %></font></td>
<td><font size="1" face="verdana, arial"><% =RecSet("fre") %></a></font></td>
<td><font size="1" face="verdana, arial"><% =RecSet("lor") %></font></td>
<td><font size="1" face="verdana, arial"><% =RecSet("son") %></font></td>
</tr>
<% RecSet.MoveNext
Loop %>
</font>
<% RecSet.Close %>
</html>
[Redigerat av Insider den 15 okt 2001]
I visa.asp hittade jag ett fel...
<td><font size="1" face="verdana, arial"><a href="visa_vecka.asp&vecka=<% =RecSet("vecka") %>"><% =RecSet("vecka") %></a></font></td>
ska vara
<td><font size="1" face="verdana, arial"><a href="visa_vecka.asp[b]?[/b]vecka=<% =RecSet("vecka") %>"><% =RecSet("vecka") %></a></font></td>
------------------
Erik