Søg
Avatar billede flax Nybegynder
06. marts 2003 - 13:55 Der er 13 kommentarer og
1 løsning

lave Huske login funktion

Hej med jer :-)

Jeg skal have lavet et lille "V" afkrydsningsfelt, som kan huske en bruges login.

Der skal jo sikkers bruges cookies ikke??

Det er ASP, ikke PHP som nogel søgninger viste mig på eksperten.. Nogen der kan hjælpe?

Min kilde kode ser sådan ud:
<html>

<head>
<title>Log in</title>
        <style type="text/css"><!--
            a:hover { color: #000; font-style: normal; font-size: 9pt; font-family: Geneva, Verdana, Arial; text-decoration: underline }
            a:link { color: #000; font-style: normal; font-size: 9pt; font-family: Geneva, Verdana, Arial; text-decoration: none }
            a:visited { color: #000; font-style: normal; font-size: 9pt; font-family: Geneva, Verdana, Arial; text-decoration: none }
            body { color: #000; font-style: normal; font-size: 9pt; font-family: Geneva, Verdana, Arial }
            td { color: #000; font-style: normal; font-weight: normal; font-size: 9pt; font-family: Geneva, Verdana, Arial }-->
        </style>
</head>

<body bgcolor="#EDFBF1">
<%

DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("XXXXX")
    Set Conn=Server.CreateObject("ADODB.Connection")
    Conn.Open DSN

%>

<table width="100%" border="0" cellspacing="0" cellpadding="0" height="266">
  <tr>
    <td height="300">
      <table width="600" border="0" cellspacing="0" cellpadding="0" align="center" height="300">
        <tr>
          <td background="../grafik/login_back.gif" height="256"> <br>
            <br><div align="center"> <form method="POST" action="xxx">
              <table border="0" cellpadding="0" cellspacing="0" bordercolorlight="#008080" bordercolor="#FFFFFF" bordercolordark="#000000" width="109">
                <tr>
     
    </tr>
    <center>
      <tr>
        <td width="123" align="right">
                      <div align="left"><font color="#000000"><b> Brugernavn:<br>
                        <input type="text" name="Fuser" size="20">
                        </b></font></div>
        </td>
                   
      </tr>
    </center>
    <tr>
                  <td width="123">
                    <p align="left"><font color="#000000"><b> Password:<br>
                      <input type="password" name="Fpassword" size="20">
                      </b></font></p>
      </td>
     
                 
    </tr>
    <tr>
                  <td colspan="2" height="24">
                    <p align="center">
                <input type="image" img src="login.gif" name="B1">
        </p>
      </td>
    </tr>
  </table>
  </div>
</form>
</td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<% conn.close
set conn= nothing
%>
</body>
</html>
Avatar billede flax Nybegynder
06. marts 2003 - 15:49 #1
Avatar billede eagleeye Praktikant
06. marts 2003 - 20:21 #2
Jeg har lavet en autlogin.asp fil som jeg includere på de sider hvor jeg ønsker en brugers skal kunne lave autologin. På login siden er en check box som man kan afkrydse.:

<input type="checkbox" name="autologin">Auto login


På den side som tjhekker for brugernavn og password har jeg dette som gemmer Autologin status + evt bruger og password i en cookie.:

<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
  fautologin = Request.Form("autologin")
  if fautologin <> "" then
    Response.Cookies("login")("autologin") = "yes"
  else
    Response.Cookies("login")("autologin") = "no"
  end if
  Response.Cookies("login").Expires = Date+356
   
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "Data Source="& server.mappath("db5.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;"
  Set rs = Server.CreateObject("ADODB.RecordSet")

  username = fixSring(Request.Form("username"))
  password = fixSring(Request.Form("password"))

  strSQL= "SELECT * FROM dp_members WHERE (username = '" & username & "' AND userpassword='" & password & "');"
  Set rs = Conn.Execute (strSQL)

  if not rs.EOF then
    if fautologin <> "" then
      Response.Cookies("login")("brugernavn") = username
      Response.Cookies("login")("password") = password
    end if
    session("loginOK") = "jada"
    session("loginUserType") = rs("userType")
    session("loginMemberID") = rs("memberID")
    session("username") = rs("username")
    Conn.Close
    Set Conn = Nothing
    'Ang hvor der skal redirectes hen når man er logget ind.
    Response.Redirect("tt_forum.asp")
  end if
end if
%>


For at tjekke for autologin på login siden har jeg lave dette før selv formen bliver vist.:


<%
autologin = Request.Cookies("login")("autologin")
if autologin = "yes" then
%>
  <!--#include file="autologin.asp"-->
<%
    'Ang hvor der skal redirectes hen når man er logget ind.
    Response.Redirect("tt_forum.asp")
end if
%>
Avatar billede eagleeye Praktikant
06. marts 2003 - 20:21 #3
Min autologin.asp filser sådan her ud:

<%

if LCase(Request.Cookies("login")("autologin")) = "yes" and session("loginOK") <> "jada" then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Data Source="& server.mappath("db5.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;"
Set rs = Server.CreateObject("ADODB.RecordSet")

username = replace(Request.Cookies("login")("brugernavn"),"'","''")
password = replace(Request.Cookies("login")("password"),"'","''")

strSQL= "SELECT * FROM dp_members WHERE account_valid = 1 AND (username = '" & username & "' AND userpassword='" & password & "');"
Set rs = Conn.Execute (strSQL)

if NOT rs.EOF then
  session("loginOK") = "jada"
  session("loginUserType") = rs("userType")
  session("loginMemberID") = rs("memberID")
  session("username") = rs("username")
else
  session("loginOK") = ""
  session("loginUserType") = ""
  session("loginMemberID") = ""
  session("username") = ""
end if

Rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing

end if
%>
Avatar billede eagleeye Praktikant
06. marts 2003 - 20:22 #4
På de sider jeg vil tjekke på autologin skriver jeg:

<!--#include file="autologin.asp"-->
Avatar billede flax Nybegynder
14. marts 2003 - 11:10 #5
Undskyld! JEg havde ikke fået nogle mails som indikerede der var svaret på dette spørgsmål, jeg kigger på det med det samme!!

Tak for svar :-)
Avatar billede flax Nybegynder
14. marts 2003 - 12:15 #6
Har du en e-mail adresse, kan jeg sende dig mine 2 filer?

Fluebenet kommer frem men der kommer ikke nogen alert box lige som på andre sites, det står der selvfølgelig heller ikke den skal, men den logger bare ind, og så sker der ikke noget..

jeg har fjernet
'Ang hvor der skal redirectes hen når man er logget ind.
    Response.Redirect("tt_forum.asp")

Da jeg redirecter efter login, til de forskellige sider afhængig af brugerniveau.
Avatar billede flax Nybegynder
17. marts 2003 - 12:50 #7
Hej ven er du der :-)
Avatar billede flax Nybegynder
18. marts 2003 - 01:51 #8
Hvad faen har jeg gjort galt, jeg har rodet for meget rundt i det tror jeg.. :-)

Jeg har 3 filer:
a_log_in_test.asp (Login side)
a_admin1.asp (Tjecker login og redirecter til rigtig side)
autologin.asp (Den side du har givet mig)

Skal jeg post filernes indhold her, eller vil du have dem tilsendt, jeg skal nok give flere points hvis det er det der er i vejen :-)
Håber ikke du har givet op :-)
Avatar billede doeboy Nybegynder
18. marts 2003 - 18:20 #9
<form method="post" action="dinside.asp">

<input type="tekst" name="brugernavn"><br>
<input type="password" name="password">
<input type="password" name="password">
</form>

Hvis du laver en form ligesom denne  såørger windows om den skal huske password
Avatar billede doeboy Nybegynder
18. marts 2003 - 18:21 #10
lol  den sidste linie skulle være
<input type="submit" value="login">
</form>
Avatar billede flax Nybegynder
18. marts 2003 - 18:27 #11
Nej den gør ikke..
Avatar billede doeboy Nybegynder
18. marts 2003 - 18:37 #12
hmmm underligt har lige selv lavet en simpel login over På Gts (skole)
hvor jeg bare satte <input type="password" name="password">
og får en popup hvor windows spørger om den skal huske login informationer    (XP)
Avatar billede dj-hupi Nybegynder
01. juli 2003 - 16:11 #13
Har lavet det samme doeboy det virker ik :( Kigger os lidt på dette her ...
Avatar billede dj-hupi Nybegynder
01. juli 2003 - 16:28 #14
Eagleeye jeg har lavet men autologin.asp sådan her:
<%

if LCase(Request.Cookies("login")("autologin")) = "yes" and session("loginOK") <> "jada" then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Data Source="& server.mappath("db.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;"
Set rs = Server.CreateObject("ADODB.RecordSet")

username = replace(Request.Cookies("login")("brugernavn"),"'","''")
password = replace(Request.Cookies("login")("password"),"'","''")

strSQL= "SELECT * FROM dp_members WHERE account_valid = 1 AND (username = '" & username & "' AND userpassword='" & password & "');"
Set rs = Conn.Execute (strSQL)

if NOT rs.EOF then
  session("loginOK") = "jada"
  session("ID") = rs("ID")
  session("username") = rs("username")
else
  session("loginOK") = ""
  session("ID") = ""
  session("username") = ""
end if

Rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing

end if
%>


Og min menu side som skal autologges sådan her :


<!--#include file="autologin.asp"-->
<%
SET rs = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("DB.mdb")
%>

<HTML>
<HEAD>
<title></title>
<base target="_self">
</HEAD>
<BODY bgcolor="#FFFFFF" text="#000000" link="#000000" vlink="#000000" alink="#000000">

<center>
<table border="0" width="50%" cellspacing="1">
  <tr>
    <td width="100%"><%=error%></td>
  </tr>
        <div align="right">

        <table border="0" width="215" cellspacing="0" cellpadding="0" height="222" style="border-collapse: collapse" bordercolor="#111111">
                <tr>


<%

If Request.form("submit") <> "" then

    Sql = "Select Count(*) as Found from users where (username = '" & Request.form("username") & "') and (password ='" & Request.form("password") & "')"
    Set Login = Rs.Execute(Sql)
    if Login("found") = 0 then
    'if login = 1 then
        Session("login") = 0
        response.write  "<td>Wrong Username or Password.</td>"
    else
        Session("Login") = 1
        Session("password-session") = Request.form("username")
    Response.Redirect "bruger.asp"
    end if
else

%>

<form method="POST" action="menu.asp">
  <tr>
  <td width="100%">
    <div align="center">
    <center>
    <table border="0" cellpadding="0" cellspacing="0" width="850"
    bordercolor="#FFFFFF" style="border-collapse: collapse">
      <tr>
      <td width="153" valign="top">
        <div align="left">
        <table border="0" cellpadding="0" cellspacing="0" width="157">
          <tr>
          <td width="4" background="billeder/c1.gif" height="19">
            <p align="left">&nbsp;</td>
          <td bgcolor="#FFFFFF" width="149">
            <p align="center"><b><font face="Verdana" size="2">Aqua-World.dk</font></b></td>
          <td width="4" height="19" background="billeder/c2.gif">
            <p align="left">&nbsp;</td>
          </tr>
        </table>
        </div>
        <div align="left">
        <table border="0" cellpadding="0" cellspacing="0" width="157">
          <tr>
          <td width="15" bgcolor="#FFFFFF" height="15">
            &nbsp;</td>
          <td bgcolor="#FFFFFF" width="272">
            &nbsp;</td>
          <td width="4" bgcolor="#FFFFFF">
            &nbsp;</td>
          </tr>
          <tr>
          <td width="30" bgcolor="#FFFFFF">
            <font face="Verdana" size="1">
            <img border="0" src="images/stjerne.jpg"></font></td>
          <td bgcolor="#FFFFFF" width="272">
            <font face="Verdana" size="1">
        <a target="_top" href="default.asp">Frontpage</a></font></td>
          <td width="4" bgcolor="#FFFFFF">
            &nbsp;</td>
          </tr>
          <tr>
          <td width="30" bgcolor="#FFFFFF">
            <p align="left">
            <font face="Verdana" size="1">
            <img border="0" src="images/stjerne.jpg"></font></td>
          <td bgcolor="#FFFFFF" width="272">
            <p align="left"><font face="Verdana" size="1">Username:</font> </p>
          </td>
          <td width="4" bgcolor="#FFFFFF">
            <p align="left">&nbsp;</td>
          </tr>
          <tr>
          <td width="30" bgcolor="#FFFFFF">
            <font face="Verdana" size="1">
            <img border="0" src="images/stjerne.jpg"></font></td>
          <td bgcolor="#FFFFFF" width="272">
            <input type="text" name="username" size="15"></font></td>
          <td width="4" bgcolor="#FFFFFF">
            &nbsp;</td>
          </tr>
          <tr>
          <td width="30" bgcolor="#FFFFFF">
            <font face="Verdana" size="1">
            <img border="0" src="images/stjerne.jpg"></font></td>
          <td bgcolor="#FFFFFF" width="272">
            <font face="Verdana" size="1">Password:</font></td>
          <td width="4" bgcolor="#FFFFFF">
            &nbsp;</td>
          </tr>
          <tr>
          <td width="30" bgcolor="#FFFFFF">
            <font face="Verdana" size="1">
            <img border="0" src="images/stjerne.jpg"></font></td>
          <td bgcolor="#FFFFFF" width="272">
            <input type="password" name="password" size="15"></td>
          <td width="4" bgcolor="#FFFFFF">
            &nbsp;</td>
          </tr>
          <%
autologin = Request.Cookies("login")("autologin")
if autologin = "yes" then
%>
  <!--#include file="autologin.asp"-->
<%
    'Ang hvor der skal redirectes hen når man er logget ind.
    Response.Redirect("tt_forum.asp")
end if
%>
          <tr>
          <td width="30" bgcolor="#FFFFFF">
            &nbsp;</td>
          <td bgcolor="#FFFFFF" width="272">
            <p align="center">
            <input type="checkbox" name="autologin" value="ON">Auto login<input type="submit" value="Login" name="submit" ></td>
          <td width="4" bgcolor="#FFFFFF">
            &nbsp;</td>
          </tr>
          <tr>
          <td width="30" bgcolor="#FFFFFF">
            &nbsp;</td>
          <td bgcolor="#FFFFFF" width="272">
            </td>
          <td width="4" bgcolor="#FFFFFF">
            &nbsp;</td>
          </tr>
          <tr>
          <td width="30" bgcolor="#FFFFFF">
            <font face="Verdana" size="1">
            <img border="0" src="images/stjerne.jpg"></font></td>
          <td bgcolor="#FFFFFF" width="272">
            <font face="Verdana" size="1">
            <a target="_self" href="OPRAT.ASP">New User?</a></font></td>
          <td width="4" bgcolor="#FFFFFF">
            &nbsp;</td>
          </tr>
          <tr>
          <td width="30" bgcolor="#FFFFFF">
            &nbsp;</td>
          <td bgcolor="#FFFFFF" width="272">
            &nbsp;</td>
          <td width="4" bgcolor="#FFFFFF">
            &nbsp;</td>
          </tr>
          <tr>
          <td width="30" bgcolor="#FFFFFF">
            &nbsp;</td>
          <td bgcolor="#FFFFFF" width="272">
            &nbsp;</td>
          <td width="4" bgcolor="#FFFFFF">
            &nbsp;</td>
          </tr>
        </table>
        </div>
        <p align="left">&nbsp;</center></td>
      <td width="4">
        <p align="left">&nbsp;</td>
      <td width="684" valign="top">
          <center>
          <div align="center">
          <table border="0" cellpadding="0" cellspacing="0" width="672"
          height="422">
            <tr>
            <td width="525" height="422" valign="top">
              <p align="center">
              &nbsp;<div align="left">
        <table border="0" cellpadding="0" cellspacing="0" width="100%">
          <tr>
          <td width="20" background="billeder/c1.gif" height="19">
            <p align="left">&nbsp;</td>
          <td bgcolor="#FFFFFF">
            <p align="left"><b><font face="Verdana" size="2">Et eller andet</font></b></td>
          <td width="20" background="billeder/c2.gif" height="19">
            <p align="left">&nbsp;</td>
          </tr>
        </table>
        </div>
        <div align="left">
        <table border="0" cellpadding="0" cellspacing="0" width="519">
          <tr>
          <td width="4" bgcolor="#FFFFFF">
            <p align="left">&nbsp;</td>
          <td bgcolor="#FFFFFF" width="470">
            <p align="left">*S*</p>
          <div align="left">
            <table border="0" cellpadding="0" cellspacing="0" width="100%">
            <tr>
              <td width="100%">
              <p align="right">Date</td>
            </tr>
            </table>
          </div>
          </td>
          <td width="4" bgcolor="#FFFFFF">
          <p align="left">&nbsp;</td>
          </tr>
        </table>
        </div>
        <div align="left">
        <table border="0" cellpadding="0" cellspacing="0" width="100%" height="4" style="border-collapse: collapse" bordercolor="#111111">
          <tr>
          <td width="100%" valign="top" bgcolor="#FFFFFF">
            <p align="left"><font face="Verdana" size="2"><img border="0"
            src="billeder/bund.gif" width="3" height="3"></font></td>
          </tr>
        </table>
        </div>
              <p>&nbsp;</td>
            <td width="3" height="422"></td>
            <td width="144" valign="top" height="422">
              <div align="center">
              <table border="0" cellpadding="0" cellspacing="0" width="100%">
                <tr>
                <td background="billeder/c1.gif" width="20" height="19">&nbsp;</td>
                <td bgcolor="#FFFFFF">
                  &nbsp;</td>
                <td background="billeder/c2.gif" width="20" height="19">&nbsp;</td>
                </tr>
              </table>
              </div>
              <div align="center">
              <table border="0" cellpadding="0" cellspacing="0" width="100%">
                <tr>
                <td width="3" bgcolor="#FFFFFF">&nbsp;</td>
                <td bgcolor="#FFFFFF">&nbsp;</td>
                <td width="3" bgcolor="#FFFFFF">&nbsp;</td>
                </tr>
              </table>
              </div>
              <div align="center">
              <table border="0" cellpadding="0" cellspacing="0" width="100%">
                <tr>
                <td width="100%" valign="top" bgcolor="#FFFFFF"><img border="0"
                  src="billeder/bund.gif" width="3" height="3"></td>
                </tr>
<%
end if
%>
              </table>
              </div>
              <p>&nbsp;</p>
              <p>&nbsp;</p>
              <p>&nbsp;</p>
              <p>&nbsp;</p>
              <p>&nbsp;</p>
              <p>&nbsp;</p>
              <p>&nbsp;</td>
            </tr>
          </table>
          </div>
        <p align="left">&nbsp;</p>
        <p align="left">&nbsp;</p>
        <p align="left">&nbsp;</p>
        <p align="left">&nbsp;</p>
        <p align="left">&nbsp;</p>
        <p align="left">&nbsp;</td>
      </tr>
    </table>
    </div>
    <p align="left">&nbsp;</td>
  </tr>
</table>
</div>
        </tr>
</table>

</body>

</html>

Meeeen det virker ikke helt ????
Avatar billede 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.

Loading billede Opret Preview
Kategori
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
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
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 16:15 Internet forsvinder hele tiden Af TTA i Internetforbindelser
23/0920:49 Fejl på Tv2 Play Af Bukse i Browsere
23/0918:11 VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel
21/0910:39 DBA er ikke hvad det tidligere var - desværre! Af ErikHg i Fri debat
18/0919:52 Libre office skriveprogram Af Frank i Office & Kontorpakker
White papers
Flere white papers »