Bruger System

har du ikke et eksempel på det..

Du kan downloade det på
http://www.web-zone.dk/script/asp/jwcom1.0.zip


Det script du kan downloade her kan du oprette alle de bruger du vil i også selvom de hedder det samme. Men det skal man ikke kunne der hvor jeg skal bruge det.

Sådan her har jeg gjort.... det er bare hele script, jeg gad ikke at sidde og hugge det ud, det har taget lang tid at lave.

<%@LCID = 1030%>
<!--#include file=\"../include/inclarrays.asp\"-->
<!--#include file=\"../include/variabler.asp\"-->

<% response.buffer = true %>
<%
self = \"blivmedlem.asp\"
style = \"../css/style1.css\"

mode = request.querystring(\"mode\")
fontstart = \"<font face=\'verdana\' size=\'1\'>\"
fontslut = \"</font>\"

function mc(m)
    mc = True
    if InStr(m,\" \") <> 0 Then mc = False
    if InStr(m,\"/\") <> 0 Then mc = False
    if InStr(m,\":\") <> 0 Then mc = False
    if InStr(m,\",\") <> 0 Then mc = False
    if InStr(m,\";\") <> 0 Then mc = False
    if InStr(m,\"@\") = 0 Then
        mc = False
    Else
        if InStr(InStr(m,\"@\")+1,m,\"@\",0) <> 0 Then mc = False
        if InStr(InStr(m,\"@\")+1,m,\".\",0) = 0 Then
            mc = False
        Else
            If mid(m,InStr(InStr(m,\"@\")+1,m,\".\",0)+1,1) = \"\" Then mc = False
        End If
        if left(m,1) = \"@\" Then mc = False
        if mid(m,InStr(m,\"@\")+1,1) = \".\" Then mc = False
    End If
end function

If request(\"mode\") = \"add\" Then
    err = 0
    fornavn = Request.Form(\"fornavn\")
    email = Request.Form(\"email\")
    alder = Request.Form(\"alder\")
    brugernavn = Request.Form(\"brugernavn\")
    pass1 = Request.Form(\"pass1\")
    pass2 = Request.Form(\"pass2\")
    gender = Request.Form(\"male\")
    locat = Request.Form(\"location\")
    about = Request.Form(\"about\")
    mailvises = Request.Form(\"mailvises\")
    BrevTilSMS = Request.Form(\"BrevTilSMS\")
    WebmasterNyhedTilSMS = Request.Form(\"WebmasterNyhedTilSMS\")
    BrugerNyhedTilSMS = Request.Form(\"BrugerNyhedTilSMS\")
    Mobilnr = Request.Form(\"Mobilnr\")
    fan = Request.Form(\"hvemvinder\")
   
    If about = \"Skriv lidt om dig selv her...\" Then about = \" \"
   
    If pass1 <> pass2 then err = 10    \'err 10: \"pass1\" og \"pass2\" er ikke ens
    If pass1 = \"\" then err = 9    \'err 9: \"pass\" er tom
   
    Set KBconn = Server.CreateObject(\"ADODB.Connection\")
    DBPath = \"DBQ=\" & server.mappath(\"bruger.mdb\")
    KBconn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath
   
    SQL = \"select * from medlem where bruger = \'\" & brugernavn & \"\'\"
    Set rsen = KBconn.Execute(SQL)
   
    If not rsen.BOF and not rsen.EOF Then err = 8    \'err 8: \"brugernavn\" er allerede taget
   
    rsen.Close
    Set rsen = Nothing
    KBconn.Close
    Set KBconn = Nothing
   
    if instr(brugernavn,\",\") <> 0 or instr(brugernavn,\"\"\"\") <> 0 or instr(brugernavn,\"\'\") <> 0 or instr(brugernavn,\"#\") <> 0 or instr(brugernavn,\"%\") <> 0 or instr(brugernavn,\"?\") <> 0 then err = 4 \'err 4: \"brugernavn\" må ikke indeholde komma
    if lcase(Left(brugernavn,9)) = \"deltager-\" then err = 23 \' err 23: Må ikke hedde deltager-   
    If brugernavn = \"\" then err = 7        \'err 7:    \"brugernavn\" er tom
    if isdate(alder) then if year(alder) > year(now) then err = 6    \'err 6: \"Fødselsdato\" er fra fremtiden
    if not isdate(alder) then err = 5    \'err 5: \"Fødselsdato\" er ikke dato
    If not mc(email) Then err = 3        \'err 3: \"E-mail\" ugyldig
    if email = \"\" then err = 2          \'err 2: \"E-mail\" tom
    if fornavn = \"\" then err = 1         \'err 1: \"Fulde navn\" tom

   
End If
%>

<% if mode = \"opret\" or err > 0 Then %>
<!--#include file=\"../include/variabler.asp\"-->
<html>
<head>
    <link rel=\"stylesheet\" type=\"text/css\" href=\"../css/style1.css\">
<script language=\"VBScript\">
Function SetSelect()
    document.form_check.about.value = \"\"
End Function
</script>

</head>
<body bgcolor=\"ffffff\" text=\"000000\">
<!--
******* Siderne er lavet af:
****** KB GameState.dk
***** Til BB Fanklub.dk
**** www.kbgamestate.dk
-->




    <font face=\"verdana\" size=\"4\"><b>BLIV MEDLEM</b></font><!--#include file=\"../counter/index.htm\"-->
    <br>
    <font face=\"verdana\" size=\"1\">

For at blive medlem af BB Fanklub skal du udfylde følgende felter og trykke opret.<br>
Det er <u>gratis</u> at blive medlem.
</font>
<form action=\"<%=self%>?mode=add\" method=\"post\" name=\"form_check\">

<table width=\"100%\" border=\"0\">
<tr>
<td width=\"35%\">
<b>
<font face=\"verdana\" size=\"1\">
Fulde navn:<%if err = 1 then response.write \" <font color=red>Skal angives</font>\"%>
</td>
<td>
<input type=\"text\" name=\"fornavn\" class=\"textf\" value=\"<%=request(\"fornavn\")%>\">
</td>
</tr>
<tr>
<td>
<font face=\"verdana\" size=\"1\">
<b>
Email:</b><%if err = 2 then response.write \" <font color=red>Skal angives</font>\"%><%if err = 3 then response.write \" <font color=red>Ugyldig adresse</font>\"%>
</td>
<td>
<input class=\"textf\" type=\"text\" name=\"email\" value=\"<%=request(\"email\")%>\">
</td>
</tr>
<tr>
<td>
<font face=\"verdana\" size=\"1\">
<b>
Fødselsdato:</b><%if err = 5 then response.write \" <font color=red>Er ikke en dato</font>\"%><%if err = 6 then response.write \" <font color=red>Forkert dato</font>\"%>
</td>
<td>
<input type=\"text\" class=\"textf\" name=\"alder\" value=\"<%=request(\"alder\")%>\"><font size=\"0,5\" face=\"verdana\"> eks. 24-12-76</font>
</td>
</tr>
<tr>
<td>
<font face=\"verdana\" size=\"1\">
<b>
Køn:</b>
</td>
<td>
<select name=\"male\" class=\"box\" size=\"1\">
<option<%if request(\"male\") <> \"False\" then response.write \" selected\"%> value=\"True\"> Mand
<option<%if request(\"male\") = \"False\" then response.write \" selected\"%> value=\"False\"> Kvinde
</select>
</td>
</tr>
<tr>
<td>
<font face=\"verdana\" size=\"1\">
<b>
Bopæl:</b>
</td>
<td>
<select name=\"location\" class=\"box\" style=\"bgcolor:000000;\" size=\"1\">
<%
i = 0
loct = request(\"location\")
if loct = \"\" then loct = \"0\"
Do While not UBound(Location,1) = i - 1
    if cint(loct) = i Then
        selected = \" selected\"
    Else
        selected = \"\"
    End If
    response.write \"<option\" & selected & \" value=\"\"\" & i & \"\"\">\" & Location(i)
    i = i + 1
Loop
%>
</select>
</td>
</tr>
<tr>
<td>
<font face=\"verdana\" size=\"1\">
<b>
Beskrivelse:</b>
</td>
<td>
<textarea name=\"about\" rows=10 cols=30 class=\"f\" onMouseDown=\"SetSelect()\"><%
If about = \"\" Then
    response.write \"Skriv lidt om dig selv her...\"
Else
    response.write about
End If
%></textarea>
</td>
</tr>
<tr>
<td>
<font face=\"verdana\" size=\"1\">
<b>
Brugernavn:</b>

<%if err = 4 then response.write \" <font color=red>Indeholder ugyldige tegn</font>\"%><%if err = 23 then response.write \" <font color=red>Du kan ikke hedde noget med Deltager-<br>Da det er forbeholdt deltagerne fra BB Huset</font>\"%><%if err = 7 then response.write \" <font color=red>Skal angives</font>\"%><%if err = 8 then response.write \" <font color=red>Brugernavnet er allerede taget</font>\"%>
</td>
<td>
<input class=\"textf\" type=\"text\" name=\"brugernavn\" value=\"<%=request(\"brugernavn\")%>\">
</td>
</tr>
<tr>
<td>
<font face=\"verdana\" size=\"1\">
<b>
Password:
<%if err = 9 then response.write \" <font color=red>Skal angives</font>\"%><%if err = 10 then response.write \" <font color=red>Password\'ene skal være ens</font>\"%>
</td>
<td>
<input type=\"password\" class=\"textf\" name=\"pass1\">
</td>
</tr>
<tr>
<td>
<font face=\"verdana\" size=\"1\">
<b>
Gentag password:
</td>
<td>
<input type=\"password\" name=\"pass2\" class=\"textf\">
</td>
</tr>
<tr>
<td>
<font face=\"verdana\" size=\"1\">
<b>
Folk må se min e-mail
</td>
<td>
<input type=\"checkbox\"<%if mailvises = \"on\" then response.write \" checked\"%> name=\"mailvises\">
</td>
</tr>
<tr>
<td>
<font face=\"verdana\" size=\"1\">
<b>
Mobilnr:</b>
</td>
<td>
<input class=\"textf\" type=\"text\" name=\"mobilnr\" value=\"<%=request(\"mobilnr\")%>\">
</td>
</tr>
<tr>
<td>
<font face=\"verdana\" size=\"1\">
<b>
Modtag SMS når der kommer brev
</td>
<td>
<input type=\"checkbox\"<%if BrevTilSMS = \"on\" then response.write \" checked\"%> name=\"BrevTilSMS\">
</td>
</tr>

<tr>
<td>
<font face=\"verdana\" size=\"1\">
<b>
Modtag SMS når der kommer<br>nyhed fra webmasterne
</td>
<td>
<input type=\"checkbox\"<%if WebmasterNyhedTilSMS = \"on\" then response.write \" checked\"%> name=\"WebmasterNyhedTilSMS\">
</td>
</tr>

<tr>
<td>
<font face=\"verdana\" size=\"1\">
<b>
Modtag SMS når der kommer<br>nyhed fra brugerne
</td>
<td>
<input type=\"checkbox\"<%if BrugerNyhedTilSMS = \"on\" then response.write \" checked\"%> name=\"BrugerNyhedTilSMS\">
</td>
</tr>

<tr>
<td>
<font face=\"verdana\" size=\"1\">
<b>
Hvem vinder?
</td>
<td>
<%
Dim HV
Set conn12 = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"bruger.mdb\")
conn12.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath

SQL12 = \"select * from profil where med=\'Ja\'\"
Set HV = conn12.Execute(SQL12)
%>
<select name=\"hvemvinder\" class=\"box\" style=\"bgcolor:000000;\" size=\"1\">
<%
    HV.MoveFirst
        Do while NOT HV.EOF
%>
        <option value=\"<%=HV(\"navn\")%>\"><%=HV(\"navn\")%></option>

<%
    HV.MoveNext
Loop
%>
   
</select>
</td>
<tr>
<td>
<input type=\"submit\" value=\"Opret\">
<input type=\"reset\" value=\"Nulstil\">
</td>
</tr>
</table>
</form>
</body>
</html>






<% elseif mode = \"add\" and err = 0 Then

Const adOpenKeyset = 1
Const adLockOptimistic = 3

If err = 0 then

set conn = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"bruger.mdb\")
conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath

sql = \"SELECT * FROM medlem WHERE bruger = \'\" & brugernavn & \"\'\"
set RS = conn.Execute (sql)

        If RS.BOF and RS.EOF Then
\' ok

set conn1 = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"bruger.mdb\")
conn1.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath



Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"SELECT  * FROM medlem\"
    rs.Open strSQL, conn1, adOpenKeyset, adLockOptimistic
        rs.AddNew
        rs(\"bruger\") = brugernavn
        rs(\"pass\") = pass1
        rs(\"navn\") = fornavn
        rs(\"email\") = email
        rs(\"fosdag\") = cdate(alder)
        if lcase(gender) = \"true\" then
            rs(\"male\") = True
        Else
            rs(\"male\") = False
        End If
        rs(\"location\") = locat
        rs(\"info\") = about
        if lcase(mailvises) = \"on\" then
            rs(\"emailvises\") = True
        Else
            rs(\"emailvises\") = False
        End If
        if lcase(BrevTilSMS) = \"on\" then
            rs(\"BrevTilSMS\") = True
        Else
            rs(\"BrevTilSMS\") = False
        End If
        if lcase(WebmasterNyhedTilSMS) = \"on\" then
            rs(\"WebmasterNyhedTilSMS\") = True
        Else
            rs(\"WebmasterNyhedTilSMS\") = False
        End If
        if lcase(BrugerNyhedTilSMS) = \"on\" then
            rs(\"BrugerNyhedTilSMS\") = True
        Else
            rs(\"BrugerNyhedTilSMS\") = False
        End If
        If trim(mobilnr) <> \"\" Then rs(\"mobilnr\") = mobilnr
        rs(\"fan\") = fan
        rs.Update
        rs.Close
    Set rs = Nothing
   
    set conn2 = Server.CreateObject(\"ADODB.Connection\")
    DBPath = \"DBQ=\" & server.mappath(\"bruger.mdb\")
    conn2.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath

       
        Set rs = Server.CreateObject(\"ADODB.RecordSet\")
        strSQL1 = \"SELECT * FROM besked\"
        rs.Open strSQL1, conn2, adOpenKeyset, adLockOptimistic
        rs.movelast
        rs.AddNew
        rs(\"til\") = brugernavn
        rs(\"fra\") = \"Webmasterne\"
        rs(\"emne\") = \"Velkommen...\"
        rs(\"besked\") = \"Velkommen til BB Fanklub\" & chr(13) & chr(13) & \"Vi takker for din registrering.\"  & chr(13) & chr(13) & \"Hilsen <i>Webmasterne</i>\"
        rs(\"dato\") = now
        rs(\"status\") = \"n\"
        rs.Update
%>
<!--#include file=\"../include/variabler.asp\"-->
<html>
<link rel=\"stylesheet\" type=\"text/css\" href=\"../css/style1.css\">
</head>
<body bgcolor=\"ffffff\" text=\"000000\">
<font face=\"verdana\" size=\"4\"><b>BRUGER ER OPRETTET</b></font>
            <br>
<font face=\"verdana\" size=\"1\">

Dine informationer er nu gemt, så nu skal du bare logge ind.
<br><br>
<a href=\"login.asp\" onmouseover=\"window.status=\'\';return true\" onmouseout=\"window.status=\'\';return true\">Login</a>
</font>
   
</body>
</html>

<% Else %>
<!--#include file=\"../include/variabler.asp\"-->
<html>
<link rel=\"stylesheet\" type=\"text/css\" href=\"../css/style1.css\">
</head>
<body bgcolor=\"ffffff\" text=\"000000\">
<font face=\"verdana\" size=\"4\"><b>DESVÆRRE</b></font>
        <br>
<font face=\"verdana\" size=\"1\">
Brugeren er allerede oprettet
</font>
   
</body>
</html>

<%
Success= \"no\"
End IF
%>

<% Else %>
<html>
<head>
<title>
<%
if pass_err = 2 then
    Response.Write fontstart & \"Password fejl\" & fontslut
Else
    Response.Write fontstart & \"Alle felterne skal v&aelig;re udfyldt\" & fontslut
End if
%>

</title>
<link rel=\"stylesheet\" type=\"text/css\" href=\"<%=style%>\">
</head>
<body text=\"c0c0c0\" bgcolor=\"000000\">
<% if pass_err = 2 then
    Response.Write \"Dine passwords er ikke ens<br>\"
Else
    Response.Write \"Alle felter skal v&aelig;re udfyldt<br>\"
End if
%>
Vær sød at trykke <a href=\"java script:self.history.back(1)\" onmouseover=\"window.status=\'\';return true\" onmouseout=\"window.status=\'\';return true\">Back / Tilbage</a>, og prøv igen.<br>
</body>
</html>
<% End If %>


<%End If%>

Håber ikke at det er alt for uoverskueligt... HIHI

Er det din Adduser.asp der ser sådan ud ?

Nu har jeg prøvet sådan:

<% if mode =\"tilfojet\" then
    Const adOpenKeyset = 1
    Const adLockOptimistic = 3

set conn1 = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"database.mdb\")
conn1.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath

sql = \"SELECT * FROM medlem WHERE bruger = \'\" & brugernavn & \"\'\"
set RS = conn1.Execute (sql)

        If RS.BOF and RS.EOF Then
\' ok


Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"SELECT  * FROM brugernavn\"
    rs.Open strSQL, conn1, adOpenKeyset, adLockOptimistic

      rs.AddNew
      rs(\"brugernavn\") = Request.form(\"brugernavn\")
      rs(\"password\") = Request.form(\"password\")
      rs(\"navn\") = Request.form(\"navn\")
      rs(\"nicknavn\") = Request.form(\"nicknavn\")
      rs(\"alder\") = Request.form(\"alder\")
      rs(\"kon\") = Request.form(\"kon\")
      rs(\"email\") = Request.form(\"email\")
      rs(\"icq\") = Request.form(\"icq\")
      rs(\"website\") = Request.form(\"website\")
      rs(\"om\") = Request.form(\"om\")
      rs(\"hits\") = \"0\"
      rs.Update
      Response.Redirect(\"login.asp\")
%>
<% end if %>
-------------------------------------


Det virker heller ikke... Den der kan give mig noget der bare virker for pointne.

Tak!

det her burde virke:

<% if mode =\"tilfojet\" then
Const adOpenKeyset = 1
Const adLockOptimistic = 3

set conn1 = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"database.mdb\")
conn1.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath

sql = \"SELECT * FROM medlem WHERE bruger = \'\" & brugernavn & \"\'\"
set RS = conn1.Execute (sql)

If not RS.BOF and RS.EOF Then
\' ok


Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT  * FROM brugernavn\"
rs.Open strSQL, conn1, adOpenKeyset, adLockOptimistic

rs.AddNew
rs(\"brugernavn\") = Request.form(\"brugernavn\")
rs(\"password\") = Request.form(\"password\")
rs(\"navn\") = Request.form(\"navn\")
rs(\"nicknavn\") = Request.form(\"nicknavn\")
rs(\"alder\") = Request.form(\"alder\")
rs(\"kon\") = Request.form(\"kon\")
rs(\"email\") = Request.form(\"email\")
rs(\"icq\") = Request.form(\"icq\")
rs(\"website\") = Request.form(\"website\")
rs(\"om\") = Request.form(\"om\")
rs(\"hits\") = \"0\"
rs.Update
Response.Redirect(\"login.asp\")


else
Response.Write \"Brugernavnet er allerede taget!\"
end if
%>

eller nej...det tror jeg sq ikke det gør anyway...

thb  ..Skriv da en længere kode næste Gang*G*

under if mode = tilfojet erstatter du:
    strSQL = \"SELECT * FROM bruger WHERE\"
    strSQL = strSQL & \" (brugernavn LIKE \'%\" & brugernavn & \"%\')\"
    Set rs = Conn.Execute(strSQL)
    if (rs.BOF Or rs.EOF) Then
        response.write \"Brugeren findes<br>\"
        fejl = 1
    end if


MED

    strSQL = \"SELECT count (*) as antal FROM bruger WHERE\"
    strSQL = strSQL & \" brugernavn =\'\" & brugernavn & \"\'\"
    Set rs = Conn.Execute(strSQL)
    if rs(\"antal\") > \"0\" Then
        response.write \"Brugeren findes<br>\"
        fejl = 1
    end if

På www.magik.dk kan du hente et login-system i asp, hvor man ikke kan oprette flere brugere med samme navn.

Ikke nogle svar der virker