log af

Lad knappen føre til en asp-side der nulstiller sessions eller cookies alt efter hvad du bruger og så redirigerer tilbage til startsiden.

nil.dk er nubegynder :(

Hvordan logger man på dit system?

tjek.asp
<%
if session(\"brugernavn\") = \"\" then Response.Redirect(\"default.asp?error=Hovsa, du er jo ikke logget ind!\") end if
%>

login.asp
<%
mode = Request(\"mode\")
Response.Buffer = True
%>
<html>
<head>
<title></title>
</head>
<body>
<% if mode = \"\" then %>
<br>
<font size=2 color=red><%=Request.Querystring(\"error\")%></font><br>
<form method=post action=default.asp?mode=login>
  <p>&nbsp;</p>
  <table border=0 cellpadding=4 cellspacing=0 align=CENTER bgcolor=#E4D7CB width=\"267\">
    <tr bgcolor=#FF9900 border=0>
      <th colspan=2 valign=TOP> <font face=\"Verdana\" color=\"#FFFFFF\">LOG IND</font></th>
    </tr>
    <tr bgcolor=\"#FFCC99\">
      <td valign=TOP> <font face=\"Verdana\" color=\"#644632\">Brugernavn</font></td>
      <td valign=TOP>
        <input type=text name=brugernavn>
      </td>
    </tr>
    <tr bgcolor=\"#FFCC99\">
      <td valign=TOP> <font face=\"Verdana\" color=\"#644632\">Password</font></td>
      <td align=LEFT valign=TOP>
        <input type=password name=password>
      </td>
    </tr>
    <tr bgcolor=\"#FFCC99\">
      <td colspan=2 align=CENTER>
        <input type=submit value=Login name=\"submit\">
        <a href=\"opret.asp\"> Opret mig</a></td>
    </tr>
  </table>
  </form>
<% end if %>

<% if mode = \"login\" then
    \'//Connection til databasen!
    Set myConn = Server.CreateObject(\"ADODB.Connection\")
    myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"asd.mdb\")
    strSQL = \"SELECT * FROM brugere where brugernavn = \'\" & Request.form(\"password\") & \"\'\"
    Set rs = myConn.Execute(strSQL)
        \'//Hvis der ingen bruger findes med det ønskede navn
        If rs.BOF Or rs.EOF Then
        Response.Redirect(\"default.asp?error=Ingen bruger med det navn!\")
        end if
           
            \'//Hvis kodeordet matcher kodeordet i databasen
            if rs(\"password\") = Request.form(\"password\") then
            \'Laver session, med brugernavn og id
            session(\"brugernavn\") = rs(\"brugernavn\")
            session(\"id\") = rs(\"id\")
            session(\"brugere\") = yes
            Response.Redirect(\"¨ringz.asp\")
                       
            else
            \'//Hvis kodeordet var forkert!
            Response.Redirect(\"default.asp?error=Du har indtastet forkert password!\")
            end if

    \'//Lukker connection
    myConn.Close
    Set myConn = Nothing
end if %>

<p>&nbsp;</p>
<p>&nbsp;</p>
</body>
</html>

og her siden som man logger på:
<%@Language=VBScript%>
<%Response.Buffer = True%>
<!--#include file=tjek.asp-->

<html>
<body>
du er logget på
</body>
</html>

<a href=\"logoff.asp\">Log af</a>

og følgende i logoff.asp >>

Session(\"brugernavn\") = \"\"
Response.Redirect(\"densidemanskalhenpå\")

her er log ind siden:
<%@Language=VBScript%>
<%Response.Buffer = True%>
<!--#include file=tjek.asp-->
<%
    dim mode, albumid, ringetoneid
    strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"xx.mdb\")
    Set myConn = Server.CreateObject(\"ADODB.Connection\")
    myConn.Open strDSN
   
    Mode = Request(\"mode\")
    albumid = Request(\"albumid\")
    ringetoneid = Request(\"ringetoneid\")
   
   
%>
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">

<html>
<head>
    <title>Untitled</title>
</head>

<body>
<%
if mode = \"\" then
    strSQL = \"SELECT * From album\"
    Set rs = myConn.Execute(strSQL)   
    do while not rs.eof
        %>
        <a href=\"ringz.asp?mode=vis&albumid=<%= rs(\"id\") %>\"><%= rs(\"albumnavn\") %></a><br>
        <%
        rs.movenext
    loop   
end if
%>

<%if mode = \"vis\" then
    strSQL = \"SELECT * From ringetoner where albumid = \" & albumid
    Set rs = myConn.Execute(strSQL)

    do while not rs.eof
        %>
        <a href=\"ringz.asp?mode=visringetone&ringetoneid=<%= rs(\"id\") %>\"><%= rs(\"ringetone\") %></a><br>
        <%
        rs.movenext
    loop
%>

<%end if%>

<%if mode = \"visringetone\" then
    strSQL = \"SELECT * From ringetoner where id = \" & ringetoneid
    Set rs = myConn.Execute(strSQL)
%>
    <%= rs(\"ringetone\") %>
<%end if%>

</body>
</html>

hvor skal jeg ligge <a href=\"logoff.asp\">Log af</a>
henne ....fordi den viser fejl når jeg indsætter den ??

hvilken fejl giver den?

Microsoft VBScript compilation error \'800a0400\'

Expected statement

/l/ringz.asp, line 35

<a href=\"logoff.asp\">Log af</a>

Det er fordi du skriver det inde i noget ASP.

Skriv

%>
<a href=\"logoff.asp\">Log af</a>
<%

Siden kan ikke vises

Har du lavet et side der hedder logoff.asp .. ?

ja

Og den kan ikke vises?

nej

hvor skal jeg indsætte

%>
<a href=\"logoff.asp\">Log af</a>
<%

henne i siden ??

Der hvor du gerne vil have logoff-linket...

ringz er delet op til at vise 3 sidere...

og jeg vil gerne ha det at de viser log af i den først side hvordan gøre jeg det ??

ringz = login siden

Så sætter du linket på den første side...

og det har jeg gjordt også viser den fejl

nå

Selv tak.