Avatar billede l_otto Nybegynder
17. december 2003 - 10:08 Der er 7 kommentarer og
1 løsning

Check om brugernavn er optaget

Jeg skal bruge et script der lige går ned og se om brugernavn er taget...... og derefter skriver det til brugeren... det skal puttes ind i det her..:


Feltet hedder U_ID

<input type="text" name="U_ID" value="" size="20" maxlength="20" class="Fields">
Avatar billede Slater Ekspert
17. december 2003 - 10:11 #1
Hvilket brugernavn? Ligger det i en database?
Avatar billede l_otto Nybegynder
17. december 2003 - 10:16 #2
jep det ligger i Mysql .. du opretter dig som bruger på min side kaldt add.asp med brugernavn og password men der er jo ikke to der skal have det samme brugernavn derfor skal den lige ned i db og se om der er en der har det brugernavn man vælger allerede...
Avatar billede bredum Nybegynder
17. december 2003 - 10:18 #3
noget ala.:

<%
' Hvis der er blevet trykket på knappen "Login"
If Request.Form("Action") = "Login" Then
    ' Her forberedes de indtastede værdier til validering
    strUID = Trim(Replace(Request.Form("Brugernavn"),"'",""))
    strPWD = Trim(Replace(Request.Form("Adgangskode"),"'",""))

    ' Hvis der er skrevet noget i både brugernavn og adgangskode
    If Len(strUID) > 0 And Len(strPWD) > 0 Then

    strSQL = "SELECT UserID,Name,Saelgernr,Adgang FROM User.users WHERE (Username = '" & strUID & "') AND (Password = '" & strPWD & "')"
      strUpda = "UPDATE User.users SET Login = Login + 1 WHERE (Username = '" & strUID & "') AND (Password = '" & strPWD & "')"
  %>
  <!-- #include file="connect.asp" -->
  <%
        Set rs = Conn.Execute(strSQL)
        If Not (rs.BOF Or rs.EOF) Then
        ' Hvis brugeren fandtes i databasen
        intUID = rs("UserID")
              Conn.Execute(strUpda)
        Else
            ' Hvis brugeren ikke fandtes i databasen
            strERR = "Du blev oprettet prøv login igen"
                        **** HER SKAL DU BARE INDSÆTTE EN SQL INSERT TIL DIN DB BRUGER TABEL*****
        End If

        ' Rydder op i vores connection objekt
%>
        <!-- #include file="connectclose.asp" -->
<%

        If Len(intUID) Then
            ' Hvis variablen intUID indeholder en værdi sættes denne i sessionen "UserID" og brugeren bliver sendt videre
            Session("UserID") = intUID
            Response.Redirect("main.asp")
        End If
    Else
        ' Hvis der ikke var angivet brugernavn og adgangskode
        strErr = "Du skal skrive både brugernavn og adgangskode"
    End If

    If Len(strErr) > 0 Then
        ' Her laves fejlmeddelsen om til rød skrift
        strErr = "<p><font color=Blue size='3'>" & strErr & "</font></p>"
    End If
End If
%>
<HEAD><LINK href="../styles.css" type=text/css rel=stylesheet></HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0 margin="0" marginheight="0"
marginwidth="0"><IMG height=84 src="image/sommertop.jpg">
<div align="center">
  <center>
<table border="0" width="70%" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">
  <tr>
    <td width="100%" class=tekst align="left"><form method="POST" action="login.asp">
  <p>&nbsp;</p><%=strErr%>
  <table border="0" width="252">
    <tr>
      <td width="89">&nbsp;</td>
      <td width="150">&nbsp;</td>
    </tr>
    <tr>
      <td width="89"><font size="2" color="#000000">Brugernavn:</font></td>
      <td width="150"><input type="text" name="Brugernavn" size="20"></td>
    </tr>
    <tr>
      <td width="89"><font size="2" color="#000000">Adgangskode:</font></td>
      <td width="150"><input type="password" name="Adgangskode" size="20"></td>
    </tr>
    <tr>
      <td width="89" class=tekst></td>
      <td width="150"><input type="submit" value="Login" name="Action" class=Flatbutton>
        <input type="reset" value="Slet" name="Slet" class=Flatbutton>
      </td>
    </tr>
  </table>
</form></td>
  </tr>
</table>
  </center>
</div>
</div>
</body>
Avatar billede l_otto Nybegynder
17. december 2003 - 10:45 #4
bredum-> virker den i virkeligheden ?
Avatar billede l_otto Nybegynder
17. december 2003 - 10:45 #5
<%
' Hvis der er blevet trykket på knappen "Login"
If Request.Form("submit") = "Submit" Then
    ' Her forberedes de indtastede værdier til validering
    strUID = Trim(Replace(Request.Form("U_ID"),"'",""))
    strPWD = Trim(Replace(Request.Form("U_PASSWORD"),"'",""))

    ' Hvis der er skrevet noget i både brugernavn og adgangskode
    If Len(strUID) > 0 And Len(strPWD) > 0 Then

    strSQL = "SELECT U_ID FROM PICTURES WHERE (Username = '" & strUID & "') "
      strUpda = "UPDATE User.users SET Login = Login + 1 WHERE (Username = '" & strUID & "') AND (Password = '" & strPWD & "')"
  %>

  <%
        Set rs = Conn.Execute(strSQL)
        If Not (rs.BOF Or rs.EOF) Then
        ' Hvis brugeren fandtes i databasen
        intUID = rs("U_ID")
              Conn.Execute(strUpda)
        Else
            ' Hvis brugeren ikke fandtes i databasen
            strERR = "Du blev oprettet prøv login igen"
                   
        End If

%>
Avatar billede l_otto Nybegynder
17. december 2003 - 10:52 #6
hvad gør den Update... jeg skal ikke update noget jeg skal checkker og så kan jeg ikke rigtig finde ud af det med Username =  hvad henviser Username til ? du bruger jo Brugernavn
Avatar billede l_otto Nybegynder
18. december 2003 - 10:16 #7
Hej Bredum, er du der ?
Avatar billede l_otto Nybegynder
19. december 2003 - 13:44 #8
når det kan jeg ikke vente på sorry
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
Kurser inden for grundlæggende programmering

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