Check om det findes i db !

Hmm!!
noget i retning af dette:

$salt = \"AA\";
$bruger = \"$FORM{\'bruger\'}\";
$kode = \"$FORM{\'kode\'}\";
$krypkode = crypt ($kode, $salt);


&KODECHECK;

sub KODECHECK {
   
    open (KODEFIL, \"$filnavn\");
    @indhold = <KODEFIL>;
    close (KODEFIL);
   
   
    foreach $linje (@indhold) {
       
        @stump = split(/\\:/, $linje);
        $filnavn = \"$stump[0]\";
        $filkode = \"$stump[1]\";
        if (($krypkode eq $filkode) && ( $filnavn eq $bruger)) {
            print \"Location: $destination\\n\\n\";
            exit;
        }
    }
    print (\"Content-type: text/html\\n\\n\");
    print \"<html><head><title>Fejl i login</title></head><body>\";
    print \"<TABLE width=66%><TR><TD>\";
    print \"Det var nærmest noget skidt, for din kombination af password og kodeord blev ikke genkendt.<BR><BR>\";
    print \"Der er vist ikke andet for end at prøve igen. Hvis det absolut ikke vil lykkes kan du kontakte webmaster\";
    print \"</TD></TR></TABLE>\";
    print \"</body></html>\";
    exit;
   
}




-Jonas

Den skal jo tjekke om det brugernavnet står i db\'en ?!

Hvad med det her?


# url på den side hvortil brugeren sendes når login er godkendt
$destination =\"eks www.eksperten.dk\";


# sti til filen der indeholder brugerdata
$filnavn = \"ditdbnavn\";


#
# De modtagne input gøres forståelige
#

read(STDIN, $buffer, $ENV{\'CONTENT_LENGTH\'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
    ($name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack(\"C\", hex($1))/eg;
    $FORM{$name} = $value; #Efter denne linje er $FORM{\'feltnavn\'} = indtastet værdi i feltet \"feltnavn\"
}
$salt = \"AA\";
$bruger = \"$FORM{\'bruger\'}\";
$kode = \"$FORM{\'kode\'}\";
$krypkode = crypt ($kode, $salt);


&KODECHECK;

sub KODECHECK {
   
    open (KODEFIL, \"$filnavn\");
    @indhold = <KODEFIL>;
    close (KODEFIL);
   
   
    foreach $linje (@indhold) {
       
        @stump = split(/\\:/, $linje);
        $filnavn = \"$stump[0]\";
        $filkode = \"$stump[1]\";
        if (($krypkode eq $filkode) && ( $filnavn eq $bruger)) {
            print \"Location: $destination\\n\\n\";
            exit;
        }
    }
    print (\"Content-type: text/html\\n\\n\");
    print \"<html><head><title>Fejl i login</title></head><body>\";
    print \"<TABLE width=66%><TR><TD>\";
    print \"Det var nærmest noget skidt, for din kombination af password og kodeord blev ikke genkendt.<BR><BR>\";
    print \"Der er vist ikke andet for end at prøve igen. Hvis det absolut ikke vil lykkes kan du kontakte webmaster\";
    print \"</TD></TR></TABLE>\";
    print \"</body></html>\";
    exit;
   
}

Er det ASP, det ligner PHP ?!

Det er det eneste svar jeg kan gi´ dig!

-jonas

jeg prøver lige at finde ud af noget andet ok??

-Jonas

SQL = \"SELECT * FROM brugere WHERE User_Name = \'\" & strBugerNavn & \"\'\"
Set rs = Conn.execute(SQL)

if rs.eof then
\'brugernavnet findes ikke
else
\'brugernavnet findes
end if

conn er dit databaseobekt (ADODB.Connection)

jeg venter bare...der må da være nogen der kan hjælpe ?

smajli ->

Den skal ikke tjekke om brugernavnet _ikke_ findes, den skal abre tjekke om brugernavnet er taget eller ej...hvis det er taget, skal den som sagt ikke skrive til databasen, men komme med en besked om at brugernavnet er taget.

Dette her tror jeg løser dit problem!

<%



If Not(Session(\"Checked\")) then
\'Henter login info fra cookie på user computer.
Username = Request.Cookies(\"LoginInfo\")(\"Username\")
Password = Request.Cookies(\"LoginInfo\")(\"Password\")

\'Aabner databasen
Set dbCon = Server.CreateObject(\"ADODB.Connection\")
VPath = Request.ServerVariables(\"PATH_INFO\")
VPath = Left(VPath, InStrRev(VPath, \"/\"))
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.Mappath(VPath & \"SecurityDB.mdb\")
dbCon.open DSN

\'Slår op i databasen efter brugernavnet fra cookien
SQL = \"SELECT * FROM TblPasswords WHERE Username=\'\" & Username & \"\'\"
Set dbRs = dbCon.Execute(SQL)

if dbRs.BOF AND dbRs.EOF then
  \'Brugernavnet blev ikke fundet i databasen
  ErrorMessage = \"<i>You\'ve typed a wrong username or you have not logged in before from this computer.</i>\"
  Rejected = True
elseif not dbRs(\"Password\") = password then
  \'Brugernavnet var der, men password forkert
  ErrorMessage = \"<i>You\'ve typed a wrong password.</i>\"
  Rejected = True
else
  \'Alt var fint, gemmer informationen i variabler, og viser almindelig side
  RealName = dbRs(\"RealName\")
  Username = dbRs(\"Username\")
  Password = dbRs(\"Password\")
  Rejected = False
  Session(\"Checked\") = True
end if

If Rejected Then  \'Viser Login side
%>
<html>

<head>
<title>Please login...</title>
</head>

<body>
<h2>Please login</h2>
<p><% = ErrorMessage %></p>
    <form method=\"POST\" action=\"<% = VPath %>login_script.asp\">
      <table border=\"5\" cellpadding=\"30\" cellspacing=\"0\" bgcolor=\"#8080FF\" bordercolor=\"#8000FF\" bordercolorlight=\"#9191FF\" bordercolordark=\"#400080\">
        <tr>
          <td><table border=\"0\" cellpadding=\"3\" cellspacing=\"0\">
            <tr>
              <td align=\"right\">Username:</td>
              <td><input type=\"username\" name=\"username\" size=\"15\"></td>
            </tr>
            <tr>
              <td align=\"right\">Password:</td>
              <td><input type=\"password\" name=\"password\" size=\"15\"></td>
            </tr>
            <tr>
              <td colspan=\"2\" VAlign=\"Bottom\" Align=\"Right\"><input type=\"submit\" value=\"Login\"></td>
            </tr>
          </table>
          </td>
        </tr>
      </table>
    </form>
    </td>
  </tr>
</table>
</body>
</html>
<%
  Response.End  \'Stop afvikling af script
end if
end if
\'Viser almindelig side
%>


-Jonas

Det er til et brugersystem, hvor den skal checke om det angivne brugernavn er blevet taget af en anden bruger....

Nååår jeg troede at det var når man loggede ind!!

-Jonas


Prøver lige igen!

Hmm kan dette hjælpe dig? - ellers prøv at poste lidt kode så skal jeg flette noget sammen til dig..
<%
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & server.mappath(\"Din_DB.mdb\")
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open strDSN

SQL = \"Select * FROM TABLE
Set RS = conn.Execute(SQL)
RS.MoveFirst

Do While NOT RS.EOF

  If  RS(\"brugernavn\") = Request.Form(\"felt\") then
        Response.Redirect(\"Din_side.asp?svar=findes\")
  end if
RS.MoveNext
Loop

rs.Close
set rs = nothing
%>

Mvh
Jack!!

Her er svaret:

<%@ Language=VBScript %>
<%
set Conn = Server.createobject(\"adodb.connection\")
conn.Open \"DBQ=\"& Server.MapPath(\".\") &\"/database.mdb; DefaultDir=DBQ=\"& Server.MapPath(\"/\") &\";Driver={Microsoft Access Driver (*.mdb)};\"

Response.Buffer = True
%>
<% mode = request(\"mode\") %>
<% if mode = \"bruger?id=tjek\" then %>
<%

Session(\"brugernavn\") = request.form(\"brugernavn\")
Session(\"password\") = request.form(\"password\")
response.write(brugernavn)


SQL = \"select * from bruger\"
Set RS = conn.Execute(SQL)
RS.MoveFirst


Do While NOT RS.EOF
If  RS(\"brugernavn\") = Session(\"brugernavn\") then Response.write(\"<meta http-equiv=\'refresh\' content=\'0;URL=opret.asp?bruger=findes\'>\")
If  Session(\"brugernavn\") =\"\" then Response.write(\"<meta http-equiv=\'refresh\' content=\'0;URL=opret.asp\'>\")
If  Session(\"password\") =\"\" then Response.write(\"<meta http-equiv=\'refresh\' content=\'0;URL=opret.asp\'>\")
RS.MoveNext
Loop
Response.write(\"<meta http-equiv=\'refresh\' content=\'0;URL=opret.asp?mode=bruger?id=opret\'>\")
%>
<% end if %>
<% if mode = \"bruger?id=doopret\" then %>
<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\") & \";UID=admin;PWD=;\"

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * From bruger\"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

      rs.AddNew
      rs(\"brugernavn\") = Request.form(\"brugernavn\")
      rs(\"password\") = Request.form(\"password\")
      rs(\"navn\") = Request.form(\"navn\")
      rs(\"alder\") = Request.form(\"alder\")
      rs(\"nickname\") = Request.form(\"nickname\")
      rs(\"email\") = Request.form(\"email\")
      rs(\"icq\") = Request.form(\"icq\")
      rs(\"om\") = Request.form(\"om\")
      rs.update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing
Response.Redirect(\"login.asp\")
%>
<% end if %>
<% if mode = \"bruger?id=opret\" then %>
<HTML>
<HEAD>
<!-- Minus AutoDato -->
    <TITLE>Brugersystem v1,2</TITLE>
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3\">
<SCRIPT LANGUAGE=\"JavaScript\" TYPE=\"text/javascript\">
function validate(opret) {

    if (opret.navn.value == \"\") {
    alert(\"Husk at skrive dit navn.\");
    document.opret.navn.focus();
    return false;
    }
    else {
        if (opret.nickname.value == \"\") {
        alert(\"Husk at skrive dit nickname\");
        document.opret.nickname.focus();
        return false;
        }
    else {
        if (opret.alder.value == \"\") {
        alert(\"Husk at skrive din alder\");
        document.opret.alder.focus();
        return false;
        }
    else {
        if (opret.email.value == \"\") {
        alert(\"Husk at skrive din e-mail\");
        document.opret.email.focus();
        return false;
        }
        else {
              if (opret.icq.value == \"\") {
              alert(\"Der skal stå noget i ICQ feltet.\");
              document.opret.om.focus();
              return false;
              }
              else {
              if (opret.om.value == \"\") {
                  alert(\"Der skal stå noget om dig.\");
                  document.opret.om.focus();
                  return false;
                  }
                  }
              }
        }
        }
    }
  return true;
}

function start() {
document.opret.navn.focus();
return false;
}
</SCRIPT>
</HEAD>
<center>
<DIV STYLE=\"text-align:center\">Opret ny bruger</DIV>
<TABLE>
    <TR>
        <FORM ACTION=\"opret.asp?mode=bruger?id=doopret\" METHOD=\"POST\" NAME=\"opret\" ONSUBMIT=\"return validate(this)\">
        <TD></TD>
        <TD><INPUT TYPE=\"hidden\" VALUE=\"<%=Session(\"brugernavn\")%>\" NAME=\"brugernavn\"></TD>
    </TR>
    <TR>
        <TD></TD>
        <TD><INPUT TYPE=\"hidden\" VALUE=\"<%=Session(\"password\")%>\" NAME=\"password\"></TD>
    </TR>
    <TR>
        <TD>Navn: </TD>
        <TD><INPUT TYPE=\"TEXT\" SIZE=\"25\" NAME=\"navn\" class=\"css\"></TD>
    </TR>
    <TR>
        <TD>Nickname: </TD>
        <TD><INPUT TYPE=\"TEXT\" SIZE=\"25\" NAME=\"nickname\" class=\"css\"></TD>
    </TR>
<TR>
    <TD>Alder: </TD>
    <TD><INPUT TYPE=\"text\" MAXLENGTH=\"2\" NAME=\"alder\" CLASS=\"css\" SIZE=\"2\"></TD>
</TR>
    <TR>
        <TD>E-mail: </TD>
        <TD><INPUT TYPE=\"TEXT\" SIZE=\"25\" NAME=\"email\" class=\"css\"></TD>
    </TR>
    <TR>
        <TD>ICQnr: </TD>
        <TD><INPUT TYPE=\"text\" VALUE=\"ingen\" SIZE=\"25\" NAME=\"icq\" class=\"css\"></TD>
    </TR>
    <TR>
        <TD VALIGN=\"top\">Om: </TD>
        <TD><TEXTAREA WRAP=\"on\" ROWS=\"4\" COLS=\"30\" NAME=\"om\" CLASS=\"css\"></TEXTAREA></TD>
    </TR>
    <TR>
        <TD ALIGN=\"RIGHT\"><INPUT TYPE=\"SUBMIT\" VALUE=\"Opret\" class=\"css\"></TD>
    </TR>
    <TR>
</table>
</center>
</BODY>
</HTML>
<% end if %>
<% if mode = \"\" then %>
<HTML>
<HEAD>
<!-- Minus AutoDato -->
    <TITLE>Brugersystem v1,2</TITLE>
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3\">
</HEAD>
<CENTER>
<DIV STYLE=\"text-align:center\">Opret ny bruger</DIV>
<%
bruger=request(\"bruger\")
if bruger = \"findes\" then response.write(\"Enten findes brugernavnet eller passwordet..!\")
%>   
<TABLE>
    <TR>
        <FORM ACTION=\"opret.asp?mode=bruger?id=tjek\" METHOD=\"POST\">
        <TD>Brugernavn: </TD>
        <TD><INPUT TYPE=\"text\" VALUE=\"\" SIZE=\"25\" NAME=\"brugernavn\" CLASS=\"css\"></TD>
    </TR>
    <TR>
        <TD>Password: </TD>
        <TD><INPUT TYPE=\"text\" VALUE=\"\" SIZE=\"25\" NAME=\"password\" CLASS=\"css\"></TD>
    </TR>
    <TR>
        <TD ALIGN=\"RIGHT\"><INPUT TYPE=\"SUBMIT\" VALUE=\"Opret\" class=\"css\"></TD>
    </TR>
    </table>
</center>
</BODY>
</HTML>
<% end if %>


-Jonas

ps. hvis begge virker må jeg da også få lidt points for jeg har altså brugt lang tid på dig!

Sql = \"Select Count(*) as Found from users where (username = \'\" & Request(\"username\")\"

Hvad betyder det ?

Manglede lige lidt:

Strengkonstanten er uafsluttet

tilmeld.asp, linje 37

Sql = \"Select Count(*) as Found from users where (username = \'\" & Request(\"username\")\"\'

Jeg tror altså at det funker!

JEG VIL HAAAAAAAA POOOOOOOIIIIIIITSSSS *Gg*

-Jonas

Jolleberg ->

Jeg bad om en funtion der bare checkede om brugernavnet var taget, og ikke en hel masse andet *g*

Når okay men det ligger vel også i det jeg har skrevet!
for jeg POOOOOOOIIIIIINTSSSSS?

-Jonas

Det er vidst dette stykke af det som du skal bruge:
Do While NOT RS.EOF
If  RS(\"brugernavn\") = Session(\"brugernavn\") then Response.write(\"<meta http-equiv=\'refresh\' content=\'0;URL=opret.asp?bruger=findes\'>\")
If  Session(\"brugernavn\") =\"\" then Response.write(\"<meta http-equiv=\'refresh\' content=\'0;URL=opret.asp\'>\")
If  Session(\"password\") =\"\" then Response.write(\"<meta http-equiv=\'refresh\' content=\'0;URL=opret.asp\'>\")
RS.MoveNext
Loop
Response.write(\"<meta http-equiv=\'refresh\' content=\'0;URL=opret.asp?mode=bruger?id=opret\'>\")
%>
<% end if %>
<% if mode = \"bruger?id=doopret\" then %>
<%


-Jonas

Jackpower ->

Skal den slet ikke hente noget ud fra users ?

Hvis du skal bruge det i NS skal du nok ikke bruge Response.write(\"<meta http-equiv=\'refresh\' content=\'0;URL=opret.asp?mode=bruger?id=opret\'>\")
Men derimod response.redirect (\"opret.asp?mode=bruger?id=opret\")

Mvh
Jack!!

jolleberg ->

Jeg fatter ikke ret meget af dit script..hvorfor tjekker du for password ?!

Nej dette skulle være nok når du bare vil tjekke om brugernavnet er taget eller ej..... :o)

<%
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & server.mappath(\"Din_DB.mdb\")
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open strDSN

SQL = \"Select * FROM users
Set RS = conn.Execute(SQL)
RS.MoveFirst

Do While NOT RS.EOF

  If  RS(\"brugernavn\") = Request.Form(\"felt\") then
        Response.Redirect(\"Din_side.asp?svar=findes\")
  end if
RS.MoveNext
Loop

  Response.Redirect(\"Du_er_inde_side.asp\")

rs.Close
set rs = nothing
%>

Mvh
Jack!!

dette stammer fra et login-script, men hele idéen er den samme; findes 0 poster sendes man et sted hen - findes 1 (og kun 1) post, sendes man et andet sted hen!

SET rs = Server.CreateObject(\"ADODB.Connection\")
rs.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"brugere.mdb\")

Sql = \"Select Count(*) as Found from brugere where (brugernavn = \'\" & Request.form(\"brugernavn\") & \"\')\"
Set Login = Rs.Execute(Sql)
if Login(\"Found\") = 0 then
Session(\"login\") = 0
Response.Redirect \"login.asp\"
else
Session(\"Login\") = 1
Session(\"password-session\") = Request(\"brugernavn\")
Response.Redirect \"default.asp\"
end if

keysersoze ->

Den redirecter med det samme til login.asp ?

Er der virkelig slet ingen der kan lave en funktion der tjekker om brugernavnet er i db\'en, og hvis brugernavnet er i db\' skal den ikke skrive til db\'en , men komme med en besked ??!!

Det er vi da efterhånden en DEL der har gjort????? hvorfor ikke bruge nogen af de indlæg vi er kommet med????

Mvh
Jack!!

Fordi enten er det hele scripts, eller så virker de ikke :)
Derfor.

OKi denne tjekker din DB om brugernavn eksistere hvis det gør sender det dig til den side du kalder Din_side.asp hvor du kalder variablen \"Findes\" i den kan du så skrive hvad du vil.

  If  RS(\"brugernavn\") = Request.Form(\"felt\") then
        Response.Redirect(\"Din_side.asp?svar=findes\")
  end if
Mvh
Jack!!

jackpower ->

Det er jo præcist magen til dine andre koder....

Ja fordi den gør hvad du ber den om ?? *GG*

Kom med din kode her, så skal jeg passe det ind så det passer til det du skal bruge den til...

Jack!!

Jeg skal lige spørge...hvor skal koden egentlig stå ???
Der hvor den skriver til db\'en eller der hvor man indtaster oplysningerne ?

advokaten -> ja - den redirecter - jeg ved jo ikke præcis hvad det skal - og jeg skrev også at det var en del af et login-script... derfor skal det jo omskrives lidt.

men det lyder da til at du trods alt kan få det til at virke! så er det bare lidt omskrivning så det passer til DIT behov!

Den side hvor du indtaster oplysningerne, sender du til en anden side for at tjekke, hvis ikke det er taget sender den side den så vidre til den endelige side, som skriver til din db *S*

Koden ser sådan ud:
<%
set conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"brugere.mdb\")

username = Session(\"username\")
password = Session(\"password\")

    SQL=\"INSERT INTO users (username, password) VALUES (\'\" & username & \"\', \'\" & password & \"\'\"\')\"
    conn.execute(SQL)
    conn.Close
    set conn = nothing
    Response.Redirect(\"okey.asp\")
%>

Hvordan skal det så se ud ?

Så vil jeg gøre det noget der ligner sådan her:
default.asp er den side som du har taget din kode fra så hedder den noget andet så ret default.asp til det.

*********************************** default.asp *********************************
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & server.mappath(\"brugere.mdb\")
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open strDSN

SQL = \"Select * FROM users
Set RS = conn.Execute(SQL)
RS.MoveFirst

Do While NOT RS.EOF

  If  RS(\"brugernavn\") = Session(\"username\") then
        Response.Redirect(\"default.asp?svar=findes\")
  end if
RS.MoveNext
Loop

  Response.Redirect(\"login.asp\")

svar2=request(\"svar\")
if svar2 = \"findes\" then response.write(\"<u><b><font face=\'Arial\' color=\'#FFFF00\'>\" & Session(\"bruger\") & \" findes allerede, vælg et andet username </b></u></font>\")
%>
*************************************************************************************
*************************** Login.asp ********************************************
<%
set conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"brugere.mdb\")

username = Session(\"username\")
password = Session(\"password\")

    SQL=\"INSERT INTO users (username, password) VALUES (\'\" & username & \"\', \'\" & password & \"\'\"\')\"
    conn.execute(SQL)
    conn.Close
    set conn = nothing
    Response.Redirect(\"okey.asp\")
%>
*************************************************************************************************

Jackpower : jeg kunne godt bruge din hjælp på icq : 92064248

Nu gider jeg sq ikke at bøvle mere med det...
Fordi alle de koder i har skrevet virker ikke, og så finder jeg ud af det selv....men hvis der sidder en der ude, som har en ORDENLIG kode, så bare sig til !

Vil være nemmere at sige du skal bruge en med telepatiske evner!!.... for de koder du her har fået gør ALLE det du har bedt om!!!!

/Jack!!

advokaten >> der ville nok også være lidt større respons, hvis der var lidt mere villighed til at modtage hjælp!

Advokaten: Så må du fefinere hvad du mener med at et brugernavn er \"taget\"... Så vidt jeg forstår betyder det, at der er oprettet en bruger med det ønskede navn i databasen.

Ellers må du udtrykke dig klarere.. der blev faktisk svaret til rigelighed på det du spurgte om. (Hvad du så MENTE ved du kun selv)