login...

Jeg har lavet nogetlunde det samme og jeg benyttede mig af et rigtig godt eksempel, som du kan finde på 15 seconds
under www.15seconds.com/issue/pv000217.htm

det skulle ikke være noget problem at lave det om til noget du kan bruger

Her er et forslag, har dog ikke haft mulighed for at teste det, men det skal nok virke  -ellers spørg.


login.asp..

<%
' Åben databasen
set res = server.createobject("adodb.recordset")

username = request.form("username")
password = request.form("password")


sql = "select * from users where brugernavn='" & username & "'"
res.open sql, con, 1, 1

if res.eof then
  ' Brugeren findes ikke i databasen
elseif res("kodeord") = password then
  ' Brugeren har skrevet korrekt brugernavn og password
else
  ' Brugren har skrevet forkert password
end if

%>


<form method="post" action="login.asp>
...login form....
</form>

Kan dette udbygges ?

Jeg har ledt efter et system der kunne dette...

Kan det udbygges så:
- Brugernavnet bliver udskrevet på alle sider ? (Session("Brugernavn")????)
- Når man signer op for et brugernavn at den så tjekker med databasen at det ikke eksistere i forvejen ?

Jeg giver gerne point for det !

<//morpheus\\>

det kan du sagtens gøre med det script
jeg henviste til på 15seconds

Jeg bruger selv en cookie for at få brugernavn på hver side.

I scriptet checkes om passworded er min. 8 karaktere med en lille ændring kan der checkes om brugernavn eksistere i forvejen

loll

Gider du ikke lave eksempler på:

- Cookies ?
- Tjekke brugernavn ?

Hey, er det ikke på activeserverpages der ligger et grydeklart script (et sæt af scripts) med det hele? Dog ikke check af dobbeltregistrering - eller registrering i det hele taget, men det er da det mindste? Det script (jeg bruger det selv) bruger session-variable til at opbevare navnet - hvorfra det er nemt at skrive dem ud på siden.

<%

On Error resume Next

If Request("Create.x") <> "" Then
    if Len(Request("password")) >= 8 Then
        If InStr(1,request("email"), ".", 1) >= 4 Then
          If InStr(1, request("email"), "@", 1) >= 2 Then
      if Len(Request("email")) >= 5 Then
            If Request("Password") = Request("Password2") Then
       
           
            set rs = Server.CreateObject("adodb.recordset")
            rs.open "User_tab", "DSN=Artist_db;UID=;PWD=;", 2, 3
            rs.AddNew
            rs("User").Value = Request("Username")
            rs("f_name").Value = Request("firstname")
            rs("l_name").Value = Request("lastname")
            rs("email").Value = Request("email")
            rs("streetname").Value = Request("streetname")
            rs("streetnr").Value = Request("streetnr")
            rs("zip").Value = Request("zip")
            rs("stateprovince").Value = Request("stateprovince")   
            rs("city").Value = Request("city")
            rs("country").Value = Request("country")
            rs("phone").Value = Request("phone")
            rs("extention").Value = Request("extention")
           
                rs.Update
            Set rs = Nothing


   
            ' Generate random salt (10 characters)
            Randomize
            Salt = ""
            For i = 1 to 10
                '65 is ASCII for "A"
                Salt = Salt & chr(int(Rnd * 26) + 65)
            Next

            ' Calculate Hash of (Password & Salt)
            Set CM = Server.CreateObject("Persits.CryptoManager")
            Set Context = CM.OpenContext("mycontainer", True)
            Set Hash = Context.CreateHash
            Hash.AddText Request("Password") & Salt
            HashValue = Hash.Value.Hex
            Set Hash = Nothing
            Set CM = Nothing
               

            ' Save username, hashed value and salt in the database
            set rs = Server.CreateObject("adodb.recordset")
            rs.open "passlog_User", "DSN=Artist_db;UID=;PWD=;", 2, 3
            rs.AddNew
            rs("User").Value = Request("Username")
            rs("password_hash").Value = HashValue
            rs("salt").Value = Salt
            rs.Update
            Set rs = Nothing
            if Err then
                Response.write("<CENTER> User Already Exists</CENTER>")
                      else
           
          Response.Clear
        Response.Redirect "okadd.asp"
              end if
      Else
        Response.Write ("<CENTER>Password was not correctly confirmed.</CENTER>")
    End If           
   
      Else
        Response.Write ("<CENTER>Not an Email</CENTER> ")
     
  End If
Else
        Response.Write ("<CENTER>Not an Email </CENTER>")
     
  End If
Else
        Response.Write ("<CENTER>Not an Email </CENTER>")
     
  End If                           
Else
        Response.Write ("<CENTER>Password must be at least 8 characters.</CENTER>")
     
  End If   

End If


%>

<CENTER><table border="0" width="300" bgcolor="#696969" cellspacing="0" cellpadding="0" style="border: 1 solid #000000">

<tr>
    <td valign="top" bgcolor="#FFFFFF" colspan="2" align="right" height="1"><img src="/iissample/images/1x1-trans.gif" width="1" height="1"></td>
  <tr>
  <td valign="top" bgcolor="#000000"><b><font face="Arial" size="2" color="#FFFFFF">&nbsp;Ad Database User</font></b></td>
  <td valign="top" bgcolor="#000000" width="17">&nbsp;</td>

<FORM ACTION="adduser2.asp" METHOD="POST">
<TR><TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Username:</TD><TD><INPUT TYPE="TEXT" NAME="Username"  VALUE="<% = Request("Username") %>"></TD></TR>


osv........

når du så ønsker at liste brugernavn gør du således:


<%
Name = Request.Cookies("Name")

%>

håber det hjælper...

loll

Hvor laver den cookien henne ?

undskyld den laver jeg i det script jeg bruger user login gøres sådan:

' filename userval.asp

Response.Cookies("NAME")=Request.Form("Username")

<FORM ACTION="userval.asp" METHOD="POST">
<TR><TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Username:</TD><TD><INPUT TYPE="TEXT" NAME="Username"  ></TD></TR>

det her er skulle være nok til at lave reste af koden selv....

Kan jeg osse lægge Passwordet der ned så brugeren kan vælge om han vil logges ind automatisk ?

alá eksperten.dk

<//morpheus\\>

Ja det kan man da godt, men er det nu også en god idé?

loll

Hvordan går det forresten med point fordelingen? Anders

loll  Jeg bixker lidt på det i har, og så skald er nok ske noget... meget snart...
Det kan du tro,,,

-Anders

hmm.. lukker... intet brugbart.....

Morph ovetog vist det spørgsmål, så ham må give points hvis han vil...

-Anders