Avatar billede steffansteffan Nybegynder
03. oktober 2004 - 22:21 Der er 3 kommentarer og
1 løsning

Tjek om Brugernavn findes?

Er ved og lave et login system, når så brugeren opretter en profil, skal koden tjekke om brugernavnet er taget, hvordan skriver man sådan en ind i denne kode?

<%
Response.Buffer = True

username = Request("username")
password = Request("password")
email = Request("email")
navn = Request("navn")
tekst = Request("tekst")

Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/forum1.mdb") & ";UID=admin;PWD=;"

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From brugere"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>
<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then
             
if username = rs("username") then
Response.Write("<font color=""#FF0000"">Brugernavnet er i Brug.</font><br>Vælg venligst et andet!")
else 
       
if username = "" then
Response.Write("<font color=""#FF0000"">Dette felt skal udfyldes.</font><br>Du skal skrive et brugernavn!")
else   
               
if password = "" then
Response.Write("<font color=""#FF0000"">Dette felt skal udfyldes.</font><br>Du skal skrive et kodeord!")
else
       
if email = "" then
Response.Write("<font color=""#FF0000"">Dette felt skal udfyldes.</font><br>Du skal skrive din mail adresse!")
else
       
if navn = "" then
Response.Write("<font color=""#FF0000"">Dette felt skal udfyldes.</font><br>Du skal skrive dit fulde navn!")
else
   
rs.AddNew
rs("username") = Request.form("username")
rs("password") = Request.form("password")
rs("email") = Request.form("email")
rs("navn") = Request.form("navn")
rs("tekst") = Request.form("tekst")
rs("signatur") = Request.form("signatur")
rs("oprettet") = Request.form("oprettet")
rs("msn") = Request.form("msn")
rs("icq") = Request.form("icq")
rs("alder") = Request.form("alder")
rs("hjemmeside") = Request.form("hjemmeside")
rs.update
end if
end if
end if
end if
end if
end if
end if %>
Avatar billede grafikeren Nybegynder
04. oktober 2004 - 11:55 #1
Hvis jeg har forstået dit spørgsmål korrekt, så kan du bare ændre følgende linjer:

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From brugere where username = '"&username&"'"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

if not rs.eof then 'brugeren eksisterer i forvejen
Response.Write("<font color=""#FF0000"">Brugernavnet er i Brug.</font><br>Vælg venligst et andet!")
else 'brugeren eksisterer ikke

if username = "" then
Response.Write("<font color=""#FF0000"">Dette felt skal udfyldes.</font><br>Du skal skrive et brugernavn!")
else   
               
if password = "" then
Response.Write("<font color=""#FF0000"">Dette felt skal udfyldes.</font><br>Du skal skrive et kodeord!")
else
       
if email = "" then
Response.Write("<font color=""#FF0000"">Dette felt skal udfyldes.</font><br>Du skal skrive din mail adresse!")
else
       
if navn = "" then
Response.Write("<font color=""#FF0000"">Dette felt skal udfyldes.</font><br>Du skal skrive dit fulde navn!")
else
   
rs.AddNew
rs("username") = Request.form("username")
rs("password") = Request.form("password")
rs("email") = Request.form("email")
rs("navn") = Request.form("navn")
rs("tekst") = Request.form("tekst")
rs("signatur") = Request.form("signatur")
rs("oprettet") = Request.form("oprettet")
rs("msn") = Request.form("msn")
rs("icq") = Request.form("icq")
rs("alder") = Request.form("alder")
rs("hjemmeside") = Request.form("hjemmeside")
rs.update
end if
end if
end if
end if
end if
end if
end if

rs = nothing
rs.close
%>




Det kunne være en idé at ændre dine asp tjeks 'om email, navn, password, username ikke indeholder noget' til javascript, som validerer dine input felter inden den sender. Det er en bedre løsning.

Husk desuden at lukke din forbindelse til serveren - ALTID:
rs = nothing
rs.close

Kunne det bruges.
Avatar billede steffansteffan Nybegynder
04. oktober 2004 - 15:56 #2
Det var lige det jeg søgte
Avatar billede grafikeren Nybegynder
04. oktober 2004 - 16:30 #3
det var jo godt. 15 var måske lidt skrabet... :o) Ligemeget. Lidt karma er også godt. :o)
Avatar billede steffansteffan Nybegynder
04. oktober 2004 - 16:42 #4
Beklager men havde ikke flere point lige pt.
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
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

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