asp - Login system med flere brugere... - Udvikleren.dk - Programmering, webdesign og grafik

Tags: asp

<< < 1 2 > >>

Bruger #5598 @ 13.04.04 14:49

Heysa.. jeg har et problem... vil gerne lave et fler bruger system...

: hvordan laver man det? håber der er nogen der vil hjælpe...

håber der er nogen der kan hjælpe mig...

12 svar postet i denne tråd vises herunder
3 indlæg har modtaget i alt 7 karma

Sorter efter stemmer Sorter efter dato

Bruger #5062 @ 13.04.04 15:08

Heysa.. jeg har et problem... vil gerne lave et fler bruger system...

: hvordan laver man det? håber der er nogen der vil hjælpe...

håber der er nogen der kan hjælpe mig...

... ok....

Din database:

Kode

CREATE TABLE `login` (
`id` INT( 10 ) NOT NULL AUTO_INCREMENT PRIMARY KEY ,
`brugernavn` VARCHAR( 255 ) ,
`kodeord` VARCHAR( 20 ) ,
`email` VARCHAR( 255 ) ,
`navn` VARCHAR( 255 ) ,
`msn` VARCHAR( 255 ) ,
`icq` VARCHAR( 15 ) ,
`hjemmeside` VARCHAR( 255 ) ,
`sidste_login` VARCHAR( 50 ) 
);

opret.asp

opret.asp

Kode

<HTML>
<HEAD>
<TITLE>Opret Bruger</TITLE>
</HEAD>

<BODY>

<form action="opret.asp?mode=opret" method="post">

Brugernavn:<br>
<input type="text" name="brugernavn"><br><br>

Kodeord:<br>
<input type="password" name="kodeord"><br><br>

Din Email:<br>
<input type="text" name="email"><br><br>

Dit rigtige navn (valgfrit):<br>
<input type="text" name="navn"><br><br>

MSN (valgfrit):<br>
<input type="text" name="msn"><br><br>

ICQ (valgfrit):<br>
<input type="text" name="icq"><br><br>

Din hjemmeside (valgfrit):<br>
<input type="text" name="hp" value="http://www."><br><br>

<input type="submit" value="Opret Bruger">

</form>

<%

If request.querystring("mode") = "opret" then

Dim objConn, sql, fejl

fejl = false

set objConn = server.createobject("adodb.connection")
objConn.open application("objConn")

Set rs = objConn.execute ("SELECT * FROM login WHERE brugernavn='" & request.form("brugernavn") & "'")

If Not rs.Eof Then

Response.Write "Brugernavn er allerede oprettet! Vælg venligst et andet brugernavn!"
fejl = true

end if

objConn.close
set objConn = nothing

if request.form("brugernavn") = "" then

response.write "Indtast venligst et brugernavn!"
fejl = true

end if

if request.form("kodeord") = "" then

response.write "Indtast venligst et kodeord!"
fejl = true

end if

if request.form("email") = "" then

response.write "Indtast venligst din email!"
fejl = true

end if

if fejl = true then

response.write "<a href='javascript:history.back()'>Tilbage</a>"

end if

If fejl <> true then

set objConn = server.createobject("adodb.connection")
objConn.open application("objConn")

sql = "Insert into login (brugernavn, kodeord, email, navn, msn, icq, hjemmeside)"
sql = sql & " values('" & request.form("brugernavn") & "','" & request.form("kodeord") & "','" & request.form("email") & "','" & request.form("navn") & "','" &  request.form("msn") & "','" & request.form("icq") & "','" & request.form("hp") & "')"
objConn.execute sql

response.write "Bruger oprettet! Gå til <a href='login.asp'>login</a>"

end if

end if

%>

</BODY>
</HTML>

Kode

<HTML>
<HEAD>
<TITLE>Login</TITLE>
</HEAD>

<BODY>

<%

select case request.querystring("mode")

case("")

If session("login") = false then

%>

<a href="opret.asp">Bliv Medlem</a>

<form action="login.asp?mode=log" method="post">

Brugernavn:<br>
<input type="text" name="brugernavn"><br><br>

Kodeord:<br>
<input type="password" name="kodeord"><br><br>

<input type="submit" value="Log In">

</form>

<%

else

response.write "Velkommen, " & session("brugernavn") & "<br>"
response.write "<a href='kontrolpanel.asp'>Dit KontrolPanel</a>"

end if

case("log")

Dim objConn, sql, rs, fejl, sidste_login

fejl = false
sidste_login = "Den " & FormatDateTime(Now, vbShortDate) & ", kl. "  & FormatDateTime(Now, vbShortTime) & ""

If request.form("brugernavn") = "" Then
Response.Write "Indtast venligst dit brugernavn!"
fejl = true
End If

If request.form("kodeord") = "" Then
Response.Write "Indtast venligst dit kodeord!"
fejl = true
End If

If fejl = true Then
Response.Write "<p><a href=javascript:history.back()>Tilbage</a>"
End If

set objConn = server.createobject("adodb.connection")
objConn.open application("objConn")

set rs = server.createobject("adodb.recordset")
sql = "SELECT * FROM login WHERE brugernavn='" & request.form("brugernavn") & "' and kodeord ='" & request.form("kodeord") & "'"
rs.open sql, objConn

If Not rs.eof then

  Session("login") = true
  Session.Timeout = 150
  Session("brugernavn") = rs("brugernavn")
  Session("userid") = rs("id")
  Response.Write "Du er nu logget ind som <b>" & Session("brugernavn") & "</b><br>"
  Response.write "Tryk <a href='kontrolpanel.asp'>her</a> for at gå til dit kontrol panel"

  rs.close
  set rs = nothing

  objConn.close
  set objConn = nothing

  Set objConn = server.createobject("adodb.connection")
  objConn.open application("objConn")

  sql = "Update login set sidste_login='" & sidste_login & "' where id=" & session("userid")
  objConn.execute sql

  objConn.close
  set objConn = nothing

else

response.write "Du blev ikke logget ind korrekt!<br>"
response.write "<a href='javascript:history.goback()'>Tilbage</a>"

end if

end select

%>

</BODY>
</HTML>

kontrolpanel.asp

Kode

<HTML>
<HEAD>
<TITLE>Dit KontrolPanel > <% Response.write Session("brugernavn") %></title>
</HEAD>
<BODY>

<%

Dim objConn, sql, rs

set objConn = server.createobject("adodb.connection")
objConn.open application("objConn")

select case request.querystring("mode")

case("")

response.write "<a href='members.asp'>Medlemmer</a><br>"
response.write "<a href='kontrolpanel.asp?mode=ret'>Ret din bruger</a><br>"
response.write "<a href='kontrolpanel.asp?mode=logaf'>Log Af</a><br>"

case("logaf")

Session("login") = false

response.write "Du er nu logget af!<br>"
response.write "<a href='login.asp'>Til login siden</a>"

case("ret")

set rs = server.createobject("adodb.recordset")
sql = "select * from login where id=" & session("userid")
rs.open sql, objConn

%>

<form action="kontrolpanel.asp?mode=retja" method="post">

Kodeord:<br>
<input type="password" name="kodeord" value="<%=rs.fields("brugernavn")%>"><br><br>

Din Email:<br>
<input type="text" name="email" value="<%=rs.fields("email")%>"><br><br>

Dit rigtige navn (valgfrit):<br>
<input type="text" name="navn" value="<%=rs.fields("navn")%>"><br><br>

MSN (valgfrit):<br>
<input type="text" name="msn" value="<%=rs.fields("msn")%>"><br><br>

ICQ (valgfrit):<br>
<input type="text" name="icq" value="<%=rs.fields("icq")%>"><br><br>

Din hjemmeside (valgfrit):<br>
<input type="text" name="hp" value="<%=rs.fields("hjemmeside")%>"><br><br>

<input type="submit" value="Ret">

</form>

<%

case ("retja")

Dim fejl

fejl = false

if request.form("kodeord") = "" then

response.write "Indtast venligst et kodeord!"
fejl = true

end if

if request.form("email") = "" then

response.write "Indtast venligst din email!"
fejl = true

end if

if fejl = true then

response.write "<a href='javascript:history.back()'>Tilbage</a>"

end if

If fejl <> true then

sql = "UPDATE login SET kodeord='" & request.form("kodeord") & "', navn='" & request.form("navn") & "', email='" & request.form("email") & "', msn='" & request.form("msn") & "', icq='" & request.form("icq") & "', hjemmeside='" & request.form("hp") & "' WHERE id=" & Session("userid")
objConn.execute sql

response.write "Din bruger er rettet!"

end if

end select

%>

</BODY>
</HTML>

Til admins: Jeg undskylder at det her blev sådan en lang post, men jeg kunne ikke ligge filen på internettet

________________________________
www.ssjpride.dk

Bruger #5583 @ 13.04.04 14:53

Heysa.. jeg har et problem... vil gerne lave et fler bruger system...

: hvordan laver man det? håber der er nogen der vil hjælpe...

håber der er nogen der kan hjælpe mig...

Prøv at kigge på http://html.dk

Hilsen Jakob

Bruger #5601 @ 14.04.04 16:16

Jeg bruger MySQL til det eksempel..., Jeg bruger en standart database... Du skal også lige huske at lave global.asa... Ret Server, Database, UID og PWD.

global.asa:

Kode
<script language="vbscript" runat="server">

sub Application_OnStart()

Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={MySQL ODBC 3.51 Driver}; Server=Dinserver; Database=Dindatabase; UID=Ditbrugernavn; PWD=Ditpassword;"

application.contents("objConn") = objConn

end sub

</script>

Hejsa... Har testet din kode lidt.. og den virker tilsyneladende ikke :-S - eller.. JEG kan ikke få den til at virke... har oprettet databasen, og når jeg så prøver at oprette en bruger, så får jeg en fejlside... somom siden jeg stilles videre til ikke eksisterer...

Noget du kan hjælpe mig med, for det er ellers et lækkert log ind du har lavet her!!!

Bruger #5598 @ 13.04.04 17:53

Heysa.. hvad skal databasen hedde?... forstår ikke hvad du mener med den database...

Bruger #5062 @ 14.04.04 14:14

Heysa.. hvad skal databasen hedde?... forstår ikke hvad du mener med den database...

Jeg bruger MySQL til det eksempel..., Jeg bruger en standart database... Du skal også lige huske at lave global.asa... Ret Server, Database, UID og PWD.

global.asa:

Kode

<script language="vbscript" runat="server">

sub Application_OnStart()

Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={MySQL ODBC 3.51 Driver}; Server=Dinserver; Database=Dindatabase; UID=Ditbrugernavn; PWD=Ditpassword;"

application.contents("objConn") = objConn

end sub

</script>

________________________________
www.ssjpride.dk

Bruger #5598 @ 14.04.04 16:05

hmm... jeg er vist dummere en jeg troede... jeg forstår ikke hvordan MySQL... vil du ikke forklare mig hvordan man gør det...

Bruger #5062 @ 14.04.04 16:34

Jeg bruger MySQL til det eksempel..., Jeg bruger en standart database... Du skal også lige huske at lave global.asa... Ret Server, Database, UID og PWD.

global.asa:

Kode
<script language="vbscript" runat="server">

sub Application_OnStart()

Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={MySQL ODBC 3.51 Driver}; Server=Dinserver; Database=Dindatabase; UID=Ditbrugernavn; PWD=Ditpassword;"

application.contents("objConn") = objConn

end sub

</script>
Hejsa... Har testet din kode lidt.. og den virker tilsyneladende ikke :-S - eller.. JEG kan ikke få den til at virke... har oprettet databasen, og når jeg så prøver at oprette en bruger, så får jeg en fejlside... somom siden jeg stilles videre til ikke eksisterer...

Noget du kan hjælpe mig med, for det er ellers et lækkert log ind du har lavet her!!!

Daniel Grau, Hvad siger din fejl?

Per Koustrup, Har du MySQL? Og har du en server, med evt. phpmyadmin?
________________________________
www.ssjpride.dk

Bruger #5601 @ 14.04.04 16:48

Daniel Grau, Hvad siger din fejl?

Øøøhh... Den finder bare en tom side... Somom den ikke kan finde databasen... og databasen hedder login som den burde...

Men hmm... Ved ikke om jeg har fundet frem til noget forkert i global.asa - altså.. med server og sårn...

Bruger 1go's gratis domæne med tilhørende MySQL... Er ret sikker på at min tabel er rigtigt lavet, og er oppe og køre... Men er ikke helt sikker på indholdet i global.asa... Resten er kopieret direkte herfra dit eksempel, for at teste for at jeg skulle have lavet fejl, da jeg prøvede at rette det til...

Vil gerne udlodde nogen point hvis det er du kan hjælpe mig med at få den log ind til at virke :o)

Bruger #5062 @ 14.04.04 16:49

Daniel Grau, Hvad siger din fejl?

Øøøhh... Den finder bare en tom side... Somom den ikke kan finde databasen... og databasen hedder login som den burde...

Men hmm... Ved ikke om jeg har fundet frem til noget forkert i global.asa - altså.. med server og sårn...

Bruger 1go's gratis domæne med tilhørende MySQL... Er ret sikker på at min tabel er rigtigt lavet, og er oppe og køre... Men er ikke helt sikker på indholdet i global.asa... Resten er kopieret direkte herfra dit eksempel, for at teste for at jeg skulle have lavet fejl, da jeg prøvede at rette det til...

Vil gerne udlodde nogen point hvis det er du kan hjælpe mig med at få den log ind til at virke :o)

Du skal placere global.asa, i din rod mappe
________________________________
www.ssjpride.dk

Bruger #5601 @ 14.04.04 16:53

Du skal placere global.asa, i din rod mappe

Hmm.. har kun en mappe når jeg logger ind på min ftp?

altså... har kun selve siden som vises når jeg logger ind på min ftp.. ingen mapper?

[Redigeret d. 14/04-04 16:55:26 af Daniel Grau]

<< < 1 2 > >>

Login system med flere brugere...

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler