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...
<% ' 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
<% ' 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"
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
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.