Notifikationer

Markér alle som læst Log ud

proff Nybegynder

14. november 2003 - 17:46 Der er 33 kommentarer og
1 løsning

Opret og logind

Hej.. nogen der vil lave dette for mig:

Her er nogle "demo" sider, sådan som jeg gerne vil have det skal se ud:

http://frip.dk/kedde/opret.htm - Opret bruger
http://frip.dk/kedde/logind.htm - Logind
http://frip.dk/kedde/choose.htm - Menuen når du er logget korrekt ind!

Opret: Hvis man ikke har udfyldt alle felter opretter den IKKE nogen bruger, men vender tilbage og skriver: Du skal udfylde alle felter!

Login: Her skal der ikek skrives noget hvis password er forkert, den skal bare lade være med at logge ind..

Det skal laves i ASP Og Acces Database.. Nogen der kan hjælpe mig med det?

Synes godt om

proff Nybegynder

14. november 2003 - 17:50 #1

Nogen der vil lave det for mig?

Synes godt om

syntax_hh Nybegynder

14. november 2003 - 18:01 #2

Ville det ikke være en idé at lære asp?
Det er langt sjovere selv at lave sine ting end at få andre til at gøre det for sig!

Synes godt om

proff Nybegynder

14. november 2003 - 18:02 #3

Næe.. jeg er et dovendyr ;D
Nogen der vil hjælpe?

Synes godt om

proff Nybegynder

14. november 2003 - 18:09 #4

Slet ingen der vil hjælpe?

Synes godt om

Slettet bruger

14. november 2003 - 18:19 #5

Der ligger en ganske fin tutorial på:
http://www.html.dk/tutorials/asp/lektion17.asp

Her kan du nemt oprette en bruger-login via en access-database, og se hvordan du kan oprette, gemme, opdatere og slette en bruger.

Alt hvad du skal bruge, med en nem og udførlig forklaring på dansk! :-))

Synes godt om

proff Nybegynder

14. november 2003 - 18:25 #6

Jaah, men jeg vil have det lavet.. bare denne ene gang :)

Synes godt om

syntax_hh Nybegynder

14. november 2003 - 18:46 #7

Ok, jeg laver det...

Opret.asp:

<%
mode = Request("mode")
Response.Buffer = True
%>
<html>
<head>
<title>Community</title>
</head>
<body>
<% if mode = "" then %>
<form method=post action=opret.asp?mode=gem>
Opret bruger 
<%=Request.Querystring("error")%> 

<table border="0" cellspacing="0" cellpadding="0" width="225">
<tr>
<td width="92">
Brugernavn:</td>
<td width="129"> <input type=text name=brugernavn size="30" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000"></td>
</tr>
<tr>
<td width="92">
Kodeord:</td>
<td width="129"> <input type=text name=kode size="30" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000"></td>
</tr>
<tr>
<td width="92">
Email:</td>
<td width="129"> <input type=text name=mail size="30" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000"></td>
</tr>
<tr>
<td width="92">
Icq:</td>
<td width="129"> <input type=text name=icq size="30" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000"></td>
</tr>
<tr>
<td width="92">
Msn:</td>
<td width="129"> <input type=text name=msn size="30" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000"></td>
</tr>
<tr>
<td width="92">
Fritekst:</td>
<td width="129"> <textarea name=fritekst size="20" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000" rows="5" cols="30"></textarea></td>
</tr>
</table>

<input type=submit value="Opret Bruger" style="background-color: #FFFFFF; font-family: tahoma; font-size: 10pt; border: 1 solid #000000">

</form>
<% end if %>

<% if mode = "gem" then

icq = Request.Form("icq")
brugernavn = Request.Form("brugernavn")
msn = Request.Form("msn")
mail = Request.Form("mail")
fritekst = Request.Form("fritekst")
kode = Request.Form("kode")

if Request.form("brugernavn") = "" then Response.Redirect("opret.asp?error=Udfyld brugernavn") end if
if Request.form("kode") = "" then Response.Redirect("opret.asp?error=Udfyld kodeord") end if
if Request.form("mail") = "" then Response.Redirect("opret.asp?error=Udfyld email") end if
if Request.form("msn") = "" then Response.Redirect("opret.asp?error=Udfyld Msn") end if
if Request.form("icq") = "" then Response.Redirect("opret.asp?error=Udfyld icq") end if
if Request.form("fritekst") = "" then Response.Redirect("opret.asp?error=Udfyld fritekst") end if

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("community.mdb") & ";UID=admin;PWD=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From brugere where brugernavn = '" & Request.form("brugernavn") & "'"
rs.Open strSQL, Conn, 1, 3

If Not (rs.BOF Or rs.EOF) Then
Response.Redirect("opret.asp?error=Brugernavnet er optaget")
end if

rs.addnew
rs("brugernavn") = Request.form("brugernavn")
rs("kode") = Request.form("kode")
rs("mail") = Request.form("mail")
rs("icq") = Request.form("icq")
rs("msn") = Request.form("msn")
rs("fritekst") = Request.form("fritekst")
rs.update
Response.Write("<meta HTTP-EQUIV=""REFRESH"" CONTENT=""00000000; URL=opret.asp?error=Du er nu oprettet!"">")

rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
end if %>

</body>
</html>

Login.ASP:

<html>
<head>
<title>Login</title>
<style>

</style>
</head>

<body link="#000000" vlink="#000000" alink="#000000">
Log ind

Opret ny bruger i community <a href="opret.asp">her!</a>

<form action="godkend.asp" method="post" name="login">
<table border="0" width="345" cellspacing="0" cellpadding="0">
<tr>
<td width="211">Brugernavn:

</td>
<td width="130">
<input type="text" name="brugernavn" value="<%=request.cookies("Brugere")("brugernavn")%>" size="20" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000">

</td>
</tr>
<tr>
<td width="211">Password:
</td>
<td width="130">
<input type="password" name="kode" value="<%=request.cookies("Brugere")("password")%>" size="20" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000">

</td>
</tr>
<tr>
<td width="211"> Gem brugernavn og password
</td>
<td width="130">
<INPUT TYPE=CHECKBOX CHECKED name="save"> 
</td>
</tr>
</table>
 

<input type="submit" value="Log ind" style="background-color: #FFFFFF; font-family: tahoma; font-size: 10pt; border: 1 solid #000000">



</form>

</body>
</html>

godkend.ASP :

<html>
<head>
<title>Godkender login</title>
</head>

<body>
<%
Dim fejl, username, password

fejl = false
brugernavn = Trim(Replace(Request.Form("brugernavn"), "'", "''"))
kode = Trim(Replace(Request.Form("kode"), "'", "''"))

If brugernavn = "" Then
Response.Write "Indtast venligst dit brugernavn!"
fejl = true
End If

If kode = "" Then
Response.Write "Indtast venligst dit password!"
fejl = true
End If

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

If fejl <> true Then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("community.mdb")
Conn.Open DSN
Dim samletAntal

strSQL = "SELECT * FROM brugere WHERE brugernavn='" & brugernavn & "' and kode = '" & kode & "'"
Set rs = Conn.Execute(strSQL)

If Not rs.eof Then
Response.Write "Login godkendt!"
Response.Write "Du er nu logget på som '" & rs("brugernavn") & "'"
Session("login") = true
Session("brugernavn") = rs("brugernavn")
Session("id") = rs("id")
Response.Write "<meta HTTP-EQUIV=""REFRESH"" CONTENT=""000000000; URL=default.asp"">"

If request.form("save") = "on" then
Response.Cookies("Brugere")("brugernavn") = session("brugernavn")
Response.Cookies("Brugere")("kode") = kode
Response.Cookies("Brugere").expires = Date+365
Else
Response.Cookies("Brugere").expires = Date-1000

End If

Else
Response.Write "Forkert brugernavn eller password!"
Response.Write "<a href=java script:history.back()>Tilbage</a>"
End If

Conn.Close
Set Conn = Nothing

End If

%>
</body>
</html>

default.asp :

<%
Response.Buffer = True
%>
<html>
<head>
<title>Community</title>
</head>

<body link="#000000" vlink="#000000" alink="#000000">

Velkommen! ;-)
<%

If Session("login") = true Then
Response.Write "Du er logget ind som " & Session("brugernavn") & ""
Else
Response.Write "Du er ikke logget ind"
Response.Write "<a href='login.asp'>Log ind</a>"
End If

%>



</body>
</html>

Synes godt om

syntax_hh Nybegynder

14. november 2003 - 18:47 #8

Så skal du bare oprette en database der hedder community.mdb og oprette en tabel der hedder brugere, hvor kolonnerne er: brugernavn, icq, mail, msn og fritekst

Synes godt om

proff Nybegynder

14. november 2003 - 18:55 #9

Høhø, vil du ikek lige lave login.asp?

Bare sådan at man ikke logger ind og opretter på samme side..

Synes godt om

syntax_hh Nybegynder

14. november 2003 - 18:56 #10

Det gør man heller ikke... Du har nok kommet til at lave det til en fil!

Synes godt om

proff Nybegynder

14. november 2003 - 19:03 #11

Tag lige et kig og sig mig hvad jeg har gjordt forkert... www.frip.dk/kedde/Community.zip

Synes godt om

syntax_hh Nybegynder

14. november 2003 - 19:09 #12

http://frip.dk/syntax/Community.rar

Synes godt om

syntax_hh Nybegynder

14. november 2003 - 19:09 #13

Hvis du ikke har winrar kan du hente det på rarlab.com

Synes godt om

proff Nybegynder

14. november 2003 - 19:10 #14

i have it :)

Tjekker lige

Synes godt om

proff Nybegynder

14. november 2003 - 19:39 #15

Hmm...

Session("login") = true
Session("brugernavn") = rs("brugernavn")
Session("id") = rs("id")
Response.Write "<meta HTTP-EQUIV=""REFRESH"" CONTENT=""000000000; URL=default.asp"">"

Hvad skal det være hvis jeg vil ændre det til at man ser den side i fx. 2 sek?

Synes godt om

syntax_hh Nybegynder

14. november 2003 - 19:42 #16

Så ændrer du bare content:
Response.Write "<meta HTTP-EQUIV=""REFRESH"" CONTENT=""2; URL=default.asp"">"

Synes godt om

proff Nybegynder

14. november 2003 - 19:57 #17

Håber det er ok, jeg spørger lidt til opsætningen osv...

<%
Response.Buffer = True
%>
<html>
<head>
<title>eyeGrafik [version .01]</title>
</head>

<body link="#000000" vlink="#000000" alink="#000000">

<%

If Session("login") = true Then
Response.Write "Du er logget ind som " & Session("brugernavn") & ""
Else
Response.Write "<a href='login.asp'>Log ind</a>"
End If

%>



 
Rediger Profil 
 
Indbakke 
Skriv besked 
 
Forum
 
MIT SPG ER: Hvad gør jeg hvis jeg vil have
sådan at: "Du er logget din som Bruger" kommer helt ovre i den side
>>>
NB: Det skal komme helt oppe i toppen i den side
>

</body>
</html>

Synes godt om

proff Nybegynder

14. november 2003 - 19:57 #18

Tjek lige det i dit html program :)

Synes godt om

syntax_hh Nybegynder

14. november 2003 - 20:02 #19

Tjaeh.. Du skal stadigvæk lave det i asp... Uanset hvad har jeg gjort det du bad om, og fortjener mine point.

Synes godt om

proff Nybegynder

14. november 2003 - 20:03 #20

Nååh ja, sry men vil du lige hjælpe mig med den sidste ting her?

Synes godt om

proff Nybegynder

14. november 2003 - 20:10 #21

Please bare lige hjælp mig med den sidste ting, sig hvad jeg skal skrive i filen for at smide den over i den side >
Tjek html koden hvis det er .. så kan du se hvad jeg mener.

Synes godt om

syntax_hh Nybegynder

15. november 2003 - 09:00 #22

Du kan da bare bruge <div align=center>

Synes godt om

proff Nybegynder

15. november 2003 - 09:01 #23

Jajaj, men hvordan kommer det til at se ud i koden

Synes godt om

syntax_hh Nybegynder

15. november 2003 - 09:03 #24

Sådan her:

Du er logget på som brugernavn

Synes godt om

proff Nybegynder

15. november 2003 - 09:03 #25

Jaa?

Synes godt om

syntax_hh Nybegynder

15. november 2003 - 09:04 #26

altså det står i højreside...

Synes godt om

proff Nybegynder

15. november 2003 - 09:06 #27

det skal stå i højreside

Synes godt om

syntax_hh Nybegynder

15. november 2003 - 09:07 #28

Det gør det jo også...

<div align=center>Din tekst her</div>
Alt hvad der inden for det står i højre side...

Synes godt om

proff Nybegynder

15. november 2003 - 09:09 #29

Ja ok, men hvordan skal det lige implenteres her uden at koden går i stykker
Det er der hvor det står du er logger ind som der skal flyttes held ud i den side >

<%

If Session("login") = true Then
Response.Write "Du er logget ind som " & Session("brugernavn") & ""
Else
Response.Write "<a href='login.asp'>Log ind</a>"
End If

%>



</body>
</html>

Synes godt om

syntax_hh Nybegynder

15. november 2003 - 09:11 #30

<%

If Session("login") = true Then
Response.Write "<div align=center>Du er logget ind som " & Session("brugernavn") & "</div>"
Else
Response.Write "<a href='login.asp'>Log ind</a>"
End If

%>



</body>
</html>

Synes godt om

proff Nybegynder

15. november 2003 - 09:12 #31

Også lige det sidste spg til dig.. hvad så hvis jeg vil ændre farve på det der står du er logger ind som.. kan jeg også få det som et eksempel, så er du bare en skat :)

Synes godt om

syntax_hh Nybegynder

15. november 2003 - 09:14 #32

Husk som slut på tekstfarven

Synes godt om

proff Nybegynder

15. november 2003 - 09:14 #33

Min farve skal være: #C0C0C0

Og det skal stadig stå ovre i siden, hvis du lige svarer på det opretter jeg et spg med ngole flere point til dig :)

Synes godt om

proff Nybegynder

15. november 2003 - 09:14 #34

Fuld kode tak ;D

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS