Notifikationer

Markér alle som læst Log ud

saybot Nybegynder

08. februar 2004 - 14:06 Der er 18 kommentarer og
1 løsning

Session problem

Jeg her denne sætning:

<%
if session("userid") <> "" then

%>

Problemet er bare at hvis man har logget sig ind i det bruger system jeg har lavet så fatter den ikke at man er logget ind... man skal først trykke opdater i browseren..

er der en måde at få det ordnet anstændigt på ?

Venlig hilsen saybot :)

Håber nogle kender svaret

Synes godt om

ellebaek Nybegynder

08. februar 2004 - 14:09 #1

Du skal tilføje response.redirect("dinside.asp") efter loginfunktionen er gennemført for at brugeren bliver sendt til starten af siden..

Hvis jeg gætter rigtigt på hvordan dit script er opbygget.

Synes godt om

ellebaek Nybegynder

08. februar 2004 - 14:11 #2

her gætter jeg på:

<%
if session("userid") <> "" then

else
if (der er trykket på login)...

***Så skal der redirectes her***

else
formen til login

end if
end if
%>

Synes godt om

saybot Nybegynder

08. februar 2004 - 14:14 #3

Det virkede ikke :(

Synes godt om

saybot Nybegynder

08. februar 2004 - 14:16 #4

forstår ikke lige helt... kan du uddybe lidt :)

Synes godt om

ellebaek Nybegynder

08. februar 2004 - 14:21 #5

vis lige hele din kode...

Synes godt om

saybot Nybegynder

08. februar 2004 - 14:24 #6

<%
if session("userid") <> "" then
%>
<a href="rediger.asp"><img border="0" src='grafik/user_knapper/edit.gif'></a><a href="liste.asp"><img border="0" src="grafik/user_knapper/userlist.gif"><a href="logoff.asp"><img border="0" src="grafik/user_knapper/logout.gif"></a>
<img src='grafik/sponsers.gif'><table border="0" width="3%" cellspacing="4" cellpadding="">
<tr>
<td>
<img style="FILTER: alpha(opacity =50)" src="grafik/Sponsere/webpartner.gif"></td>
</tr>
<tr>
<td>
<img style="FILTER: alpha(opacity =50)" src="grafik/Sponsere/teflonlogony.jpg"></td>
</tr>
<tr>
<td>
<img style="FILTER: alpha(opacity =50)" src="grafik/Sponsere/ghlogo.gif"></td>
</tr>
</table></td>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("databaser\users.mdb")
Conn.Open DSN
Dim samletAntal

strSQL = "SELECT * FROM brugere WHERE id = " & session("userid")

Set rs = Conn.Execute(strSQL)

else
%>
<form action='godkend.asp' method='post' name='login'>User: <input type='text' name='brugernavn' style='border:3px inset #808080; FONT-SIZE: 10px; FILTER: alpha(opacity =65); COLOR: #99BF00; BACKGROUND-COLOR: #3D3D3D' size='13' align='middle'> Password: <input type='password' name='password' style='border:3px inset #808080; FONT-SIZE: 10px; FILTER: alpha(opacity =65); COLOR: #99BF00; BACKGROUND-COLOR: #3D3D3D' size='16'> <input type='submit' value='Enter now' name='submit' style='BORDER-RIGHT: #808080 1px ridge; BORDER-TOP: #808080 1px ridge; FONT-SIZE: 10px; FILTER: alpha(opacity =65); BORDER-LEFT: #808080 1px ridge; COLOR: #c0c0c0; BORDER-BOTTOM: #808080 1px ridge; BACKGROUND-COLOR: #3d3d3d'></form>Not user ? <a href='ny.asp'>Create account </a><a href='glemtpw.asp'>Password ?</a> <img src='grafik/sponsers.gif'> 
<table border="0" width="3%" cellspacing="4" cellpadding="">
<tr>
<td>
<img style="FILTER: alpha(opacity =50)" src="grafik/Sponsere/webpartner.gif"></td>
</tr>
<tr>
<td>
<img style="FILTER: alpha(opacity =50)" src="grafik/Sponsere/teflonlogony.jpg"></td>
</tr>
<tr>
<td>
<img style="FILTER: alpha(opacity =50)" src="grafik/Sponsere/ghlogo.gif"></td>
</tr>
</table></td>
<% end if %>

Synes godt om

saybot Nybegynder

08. februar 2004 - 14:24 #7

den er ikke rengjort enndu :( sorry

Synes godt om

ellebaek Nybegynder

08. februar 2004 - 14:27 #8

det gør skam ikke noget...
Jeg bliver også nødt til at se koden for godkend.asp

Synes godt om

saybot Nybegynder

08. februar 2004 - 14:29 #9

<%
Dim fejl, username, password

fejl = false
brugernavn = Trim(Replace(Request.Form("brugernavn"), "'", "''"))
password = Trim(Replace(Request.Form("password"), "'", "''"))

If brugernavn = "" Then
Response.Write "Fill in a username!"
fejl = true
End If

If password = "" Then
Response.Write "Fill in a password!"
fejl = true
End If

If fejl = true Then
Response.Write "<a href=java script:history.back()>Back</a>"
End If

If fejl <> true Then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("databaser\users.mdb")
Conn.Open DSN

strSQL = "SELECT * FROM brugere WHERE brugernavn='" & brugernavn & "' and Password = '" & password & "'"
Set rs = Conn.Execute(strSQL)

If Not rs.eof Then

Response.Write "<META HTTP-EQUIV=""Refresh"" CONTENT=""0;URL=start.asp""><style type=""text/css"">"
Response.Write "Login succes!"
Response.Write "Du er nu logget på som '" & rs("brugernavn") & "'Wait 3 seconds..."
Session("login") = true
Session("brugernavn") = rs("brugernavn")
Session("userid") = rs("id")
Conn.Execute("UPDATE brugere SET sidste_login='" & Now & "' WHERE id=" & Session("userid"))

If request.form("save") = "on" then
Response.Cookies("Brugere")("brugernavn") = session("brugernavn")
Response.Cookies("Brugere")("password") = password
Response.Cookies("Brugere").expires = Date+365
Else
Response.Cookies("Brugere").expires = Date-1000

End If

Else
Response.Write "You did not login! Wrong username or password!"
Response.Write "<a href=java script:history.back()>Back</a>"
End If

Conn.Close
Set Conn = Nothing

End If

%>

Synes godt om

ellebaek Nybegynder

08. februar 2004 - 14:31 #10

<%
Dim fejl, username, password

fejl = false
brugernavn = Trim(Replace(Request.Form("brugernavn"), "'", "''"))
password = Trim(Replace(Request.Form("password"), "'", "''"))

If brugernavn = "" Then
Response.Write "Fill in a username!"
fejl = true
End If

If password = "" Then
Response.Write "Fill in a password!"
fejl = true
End If

If fejl = true Then
Response.Write "<a href=java script:history.back()>Back</a>"
End If

If fejl <> true Then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("databaser\users.mdb")
Conn.Open DSN

strSQL = "SELECT * FROM brugere WHERE brugernavn='" & brugernavn & "' and Password = '" & password & "'"
Set rs = Conn.Execute(strSQL)

If Not rs.eof Then

Session("login") = true
Session("brugernavn") = rs("brugernavn")
Session("userid") = rs("id")
Conn.Execute("UPDATE brugere SET sidste_login='" & Now & "' WHERE id=" & Session("userid"))

If request.form("save") = "on" then
Response.Cookies("Brugere")("brugernavn") = session("brugernavn")
Response.Cookies("Brugere")("password") = password
Response.Cookies("Brugere").expires = Date+365
Else
Response.Cookies("Brugere").expires = Date-1000

End If
response.redirect("start.asp")

Else
Response.Write "You did not login! Wrong username or password!"
Response.Write "<a href=java script:history.back()>Back</a>"
End If

Conn.Close
Set Conn = Nothing

End If

%>

Prøv at sætte denne i stedet for din nuværende godkend.asp

Synes godt om

saybot Nybegynder

08. februar 2004 - 14:45 #11

Du skal nok få dine point

Det ser ud til at virke..

Det er bare et problem... jeg har en side hvor man kan tilføje en kommentar til en nyhed...

Når man er logget ind kan man tilføje.. men når man er logget ud så har browseren gemt siden i cache og viser at man stadig kan tilføje en kommentar

Synes godt om

ellebaek Nybegynder

08. februar 2004 - 14:48 #12

vis lige din logud side...
logoff.asp hedder den vidst

Synes godt om

saybot Nybegynder

08. februar 2004 - 14:52 #13

<%
session("login") = false
response.write "You are now logged out (Safe logout: You need to close this window then)"
response.write "<a href=start.asp>Back</a>"
%>

Synes godt om

ellebaek Nybegynder

08. februar 2004 - 14:56 #14

<%
session("login") = false
session.abandon
response.write "You are now logged out (Safe logout: You need to close this window then)"
Response.Write "<META HTTP-EQUIV=""Refresh"" CONTENT=""1;URL=start.asp""><style type=""text/css"">"
%>

Sådan her måske

Synes godt om

saybot Nybegynder

08. februar 2004 - 15:00 #15

ja det virker... men den gemmer stadigvæk siden i cache..

Hvad hedder koden til no cache

Synes godt om

ellebaek Nybegynder

08. februar 2004 - 15:02 #16

prøv evt. denne i toppen...
<%
response.expires = -1000
%>

Synes godt om

ellebaek Nybegynder

08. februar 2004 - 15:03 #17

eller disse:

<meta http-equiv="Expires" CONTENT="0">
<meta http-equiv="Cache-Control" CONTENT="no-cache">
<meta http-equiv="Pragma" CONTENT="no-cache">

Synes godt om

saybot Nybegynder

08. februar 2004 - 15:17 #18

Jeg takker for dine gode hjælp min ven :)

Synes godt om

ellebaek Nybegynder

08. februar 2004 - 15:21 #19

Anytime.

Takker for points..
..Ellebæk!

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS