Et simpelt login system ??

Jeg har et liggende somewhere....skal du have det på mail?

Ja tak...
DJ@netzilla.dk

er sendt...

...er modtaget

...er cool

jeg har ikke testet det endnu, da jeg sidder og prøver at sende nogle blomster fra interflora.dk :)

ok. du siger bare til hvis du skal have noget forklaring eller noget...

Den er jo downloadet...

En anden har jo Copyright på den...

Er der ikke nogen/eller dig, der kan lave en simpelt login system ??
Der skal forresten kun være en fil...

Den copyright skal du ikke tage for gode varer. Vær forvisset om at det er mig der har lavet det..

Hmm, jeg kan prøvet at lave et i en fil....det har jeg aldrig prøvet før....øjeblik

Done....hvor vil du have det? her?

<%

sub doHtml( referring_page )
%>
    <HTML>
    <HEAD>
    <TITLE>Login i whatever</TITLE>
    </HEAD>
    <BODY>
    <form  action=\'onelogin.asp\' method=post id=form1 name=form1>
      <input type=hidden name=referring_page value=\'<%=referring_page%>\'>
      <P>
    <TABLE cellSpacing=1 cellPadding=1 width=\'75%\' border=1>
     
      <TR>
        <TD>brugernavn:&nbsp;</TD>
        <TD><INPUT type=text name=username></TD></TR>
      <TR>
        <TD>kodeord</TD>
        <TD><INPUT type=password name=password></TD></TR>
      <TR>
        <TD></TD>
        <TD><INPUT type=submit value=Login name=submit.x></TD></TR></TABLE></P>
   
    </form>
    </BODY>
    </HTML>
<%
            Response.end
end sub

    If Session(\"usr_id\") = \"\" then
        if not isempty(Request.Form(\"submit.x\")) then
            username = Request.Form(\"username\")
            password = Request.Form(\"password\")

            referring_page = Request.Form(\"referring_page\")

            Set DBConn = Server.CreateObject(\"ADODB.Connection\")
            DBConn.Open \"menus\"

            If    (username <> \"\") AND (password <> \"\") Then
                sql = \"SELECT * FROM tblUsers WHERE username = \'\" & username & \"\' AND password = \'\" & password & \"\'\"
                Set adm = DBConn.Execute(sql)
           
                if adm.EOF then
                    adm.close
                    set adm = nothing
                    doHtml( referring_page )
                else
                    Session(\"usr_id\") = adm(\"id\")
           
                    adm.close
                    set adm = nothing
   
                    Response.Redirect( referring_page )
                    Response.End       
                end if
            else
                doHtml( referring_page )
            end if
        else
            referring_page = Request.ServerVariables(\"SCRIPT_NAME\")

            doHtml( referring_page )
        end if
    End If

%>

jeg har brugt denne fil til at teste med...

<%@ Language=VBScript %>
<!--#include file=\"onelogin.asp\"-->
<HTML>
<HEAD>
<META NAME=\"GENERATOR\" Content=\"Microsoft Visual Studio 6.0\">
</HEAD>
<BODY>
test
<P>&nbsp;</P>

</BODY>
</HTML>

Jeg har ændret måden den connecter til db\'en med.
Men hvordan får jeg den til at redirecte til en anden side ????

Min kode ser så\'n ud :

<%

sub doHtml( referring_page )
%>
    <HTML>
    <HEAD>
    <TITLE>Login i whatever</TITLE>
    </HEAD>
    <BODY>
    <form  action=\'default.asp\' method=post id=form1 name=form1>
      <input type=hidden name=referring_page value=\'<%=referring_page%>\'>
      <P>
    <TABLE cellSpacing=1 cellPadding=1 width=\'75%\' border=1>
     
      <TR>
        <TD>brugernavn:&nbsp;</TD>
        <TD><INPUT type=text name=username></TD></TR>
      <TR>
        <TD>kodeord</TD>
        <TD><INPUT type=password name=password></TD></TR>
      <TR>
        <TD></TD>
        <TD><INPUT type=submit value=Login name=submit.x></TD></TR></TABLE></P>
   
    </form>
    </BODY>
    </HTML>
<%
            Response.end
end sub

    If Session(\"usr_id\") = \"\" then
        if not isempty(Request.Form(\"submit.x\")) then
            username = Request.Form(\"username\")
            password = Request.Form(\"password\")

            referring_page = Request.Form(\"referring_page\")

            Set Conn = Server.CreateObject(\"ADODB.Connection\")
            Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\\db\\chat\\chat.mdb\"
       

            If    (username <> \"\") AND (password <> \"\") Then
                sql = \"SELECT * FROM reg_brugere WHERE brugernavn = \'\" & username & \"\' AND adgangskode = \'\" & password & \"\'\"
                Set adm = Conn.Execute(sql)
           
                if adm.EOF then
                    adm.close
                    set adm = nothing
                    doHtml( referring_page )
                else
                    Session(\"usr_id\") = adm(\"id\")
           
                    adm.close
                    set adm = nothing
   
                    Response.Redirect( referring_page )
                    Response.End       
                end if
            else
                doHtml( referring_page )
            end if
        else
            referring_page = Request.ServerVariables(\"SCRIPT_NAME\")

            doHtml( referring_page )
        end if
    End If

%>

Hvis login oplysningerne er korrekte :))

Ved at inkludere den fil i den fil du vil redirecte til...ligesom i min test fil

Hvis du får 15 point ekstra, gider du så at lave en lille funktion ??

En lille funktion der kan hvad?

Ligesom på eksperten;
Man kan vælge om man vil blive husket.
Man kan vælge om man vil logges automatisk ind.
Man kan vælge om man ikke vil huskes.

Kan du lave sådan en funktion ??

ja, men jeg tror det er lidt mere værd en 15 point :)

hvor meget så ?

efter at have vurderet det, så er der for mange ubekendte for mig i det. Det vil komme til at tage for meget tid er jeg bange for. Måske kan du oprette et nyt spørgsmål, og finde nogen der har lidt mere tid en mig....desværre :)

ok, det prøver jeg...

Men derfor må du jo godt lukke dette spørgsmål :)

selvfølgelig :)))