Notifikationer

Markér alle som læst Log ud

jtc Nybegynder

27. maj 2003 - 14:18 Der er 42 kommentarer og
1 løsning

Simpelt loginsystem til medlemmer

Hej

Er der nogen der kan konstruere et par sider så man kan logge ind med et brugernavn og password og derefter komme til en side som er afhængig af hvilket brugernavn og password man har skrevet.

Hver personer i databasen har et password og brugernavn

Håber på at der er en der kan hjælpe

Synes godt om

kovalt Nybegynder

27. maj 2003 - 14:19 #1

hvilken db bruger du?

Synes godt om

jtc Nybegynder

27. maj 2003 - 14:20 #2

access

Synes godt om

jtc Nybegynder

27. maj 2003 - 14:20 #3

er det noget du kan lave

Synes godt om

jtc Nybegynder

27. maj 2003 - 14:22 #4

tabellen som det hele trækker på hedder tblmedlemmer

Synes godt om

kovalt Nybegynder

27. maj 2003 - 14:26 #5

Følgende skulle kunne gøre det

<% If Request.Form("brugernavn") <> "" Then

strBrugerNavn = Trim(Replace(Request.Form("brugernavn"),"'",""))
strPWD = Trim(Replace(Request.Form("password"),"'",""))

If Len(strBrugerNavn) > 0 And Len(strPWD) > 0 Then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" + Server.MapPath("stitilDB"))

strSQL = "SELECT brugernavn, password FROM tabelnavn WHERE (brugernavn = '" & strBrugerNavn & "') AND (password = '" & strPWD & "')"

Set rs = Conn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
strBrugernavn = rs("Brugernavn")
End If

If Len(strBrugernavn) > 0 Then
Session("BrugerNavn") = strBrugernavn
End If

If Session("BrugerNavn")) = "eks1" then
response.Redirect("index.asp")
elseif Session("BrugerNavn")) = "eks2" then
response.Redirect("index2.asp")
end if

<% else %>

<form action="index.asp" method="post">
<input type="text" name="brugernavn" id="newusershort">
<input type="password" name="password" id="newusershort">
<input type="submit" name="Submit" id="gronknap" value="Login">
</form>

<% End If %>

Synes godt om

jtc Nybegynder

27. maj 2003 - 14:29 #6

Men hvordan udformer jeg så de andre sider hvis der nu f.eks. bare skal stå navnet på personen

Synes godt om

jtc Nybegynder

27. maj 2003 - 14:34 #7

Desuden kan jeg ikke komme ind på siden
der er fejl i linien
If Session("BrugerNavn")) = "eks1" then
men hvad er fejlen

Synes godt om

jtc Nybegynder

27. maj 2003 - 14:39 #8

er du der endnu???????????

Synes godt om

medievil Nybegynder

27. maj 2003 - 14:41 #9

if session("brugernavn") = "eks1" then

Synes godt om

medievil Nybegynder

27. maj 2003 - 14:42 #10

If Session("BrugerNavn")) = "eks1" then
response.Redirect("index.asp")
elseif Session("BrugerNavn")) = "eks2" then
response.Redirect("index2.asp")
end if

udskift begge steder !

Synes godt om

jtc Nybegynder

27. maj 2003 - 14:44 #11

der er også fejl i

<% else %>

Synes godt om

jtc Nybegynder

27. maj 2003 - 14:45 #12

jeg har udskiftet begge steder og der kommer som sagt stadig fejl men nu bare i linien

<% else %>

Synes godt om

kovalt Nybegynder

27. maj 2003 - 14:51 #13

hvad med det her?

<% If Request.Form("brugernavn") <> "" Then

strBrugerNavn = Trim(Replace(Request.Form("brugernavn"),"'",""))
strPWD = Trim(Replace(Request.Form("password"),"'",""))

If Len(strBrugerNavn) > 0 And Len(strPWD) > 0 Then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" + Server.MapPath("stitilDB"))

strSQL = "SELECT brugernavn, password FROM tabelnavn WHERE (brugernavn = '" & strBrugerNavn & "') AND (password = '" & strPWD & "')"

Set rs = Conn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
strBrugernavn = rs("Brugernavn")
End If

If Len(strBrugernavn) > 0 Then
Session("BrugerNavn") = strBrugernavn
End If

If Session("BrugerNavn")) = "eks1" then
response.Redirect("index.asp")
elseif Session("BrugerNavn")) = "eks2" then
response.Redirect("index2.asp")
end if

end if
else %>

<form action="index.asp" method="post">
<input type="text" name="brugernavn" id="newusershort">
<input type="password" name="password" id="newusershort">
<input type="submit" name="Submit" id="gronknap" value="Login">
</form>

<% End If %>

Synes godt om

medievil Nybegynder

27. maj 2003 - 14:53 #14

<% If Request.Form("brugernavn") <> "" Then

strBrugerNavn = Trim(Replace(Request.Form("brugernavn"),"'",""))
strPWD = Trim(Replace(Request.Form("password"),"'",""))

If Len(strBrugerNavn) > 0 And Len(strPWD) > 0 Then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" + Server.MapPath("stitilDB"))

strSQL = "SELECT brugernavn, password FROM tabelnavn WHERE (brugernavn = '" & strBrugerNavn & "') AND (password = '" & strPWD & "')"

Set rs = Conn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
strBrugernavn = rs("Brugernavn")
End If

If Len(strBrugernavn) > 0 Then
Session("BrugerNavn") = strBrugernavn
End If

If Session("BrugerNavn") = "eks1" then
response.Redirect("index.asp")
elseif Session("BrugerNavn") = "eks2" then
response.Redirect("index2.asp")
end if

end if
else %>

<form action="index.asp" method="post">
<input type="text" name="brugernavn" id="newusershort">
<input type="password" name="password" id="newusershort">
<input type="submit" name="Submit" id="gronknap" value="Login">
</form>

<% End If %>

Du glemte at slette det ene ) ved brugernavn !

Synes godt om

jtc Nybegynder

27. maj 2003 - 14:54 #15

så er der fejl i den sidste linie

Synes godt om

kovalt Nybegynder

27. maj 2003 - 14:55 #16

Hvis du skal har navnet ud på den person, der er logget ind skal du gøre det sådan her:

<% If Request.Form("brugernavn") <> "" Then

strBrugerNavn = Trim(Replace(Request.Form("brugernavn"),"'",""))
strPWD = Trim(Replace(Request.Form("password"),"'",""))

If Len(strBrugerNavn) > 0 And Len(strPWD) > 0 Then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" + Server.MapPath("stitilDB"))

strSQL = "SELECT brugernavn, password, navn FROM tabelnavn WHERE (brugernavn = '" & strBrugerNavn & "') AND (password = '" & strPWD & "')"

Set rs = Conn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
strBrugernavn = rs("Brugernavn")
strNavn = rs("navn")
End If

If Len(strBrugernavn) > 0 Then
Session("BrugerNavn") = strBrugernavn
End If

If Session("BrugerNavn")) = "eks1" then
response.Redirect("index.asp")
elseif Session("BrugerNavn")) = "eks2" then
response.Redirect("index2.asp")
end if

end if
else %>

<form action="index.asp" method="post">
<input type="text" name="brugernavn" id="newusershort">
<input type="password" name="password" id="newusershort">
<input type="submit" name="Submit" id="gronknap" value="Login">
</form>

<% End If %>

hvor index.asp indeholder

<html>
<head></head>
<body>
Her kommer der en masse..

Velkommen <% response.write session("navn") %>

</body>
</html>

Synes godt om

medievil Nybegynder

27. maj 2003 - 14:56 #17

hvad er fejlen ?

Synes godt om

medievil Nybegynder

27. maj 2003 - 14:58 #18

If Session("BrugerNavn") = "eks1" then
response.Redirect("index.asp")
elseif Session("BrugerNavn") = "eks2" then
response.Redirect("index2.asp")
end if

else %>

<form action="index.asp" method="post">
<input type="text" name="brugernavn" id="newusershort">
<input type="password" name="password" id="newusershort">
<input type="submit" name="Submit" id="gronknap" value="Login">
</form>

<% End If %>

Synes godt om

jtc Nybegynder

27. maj 2003 - 15:02 #19

nu virker loginsiden

men skal der ikke stå mere end
Velkommen <% response.write session("navn") %>
på indexsiden???

Synes godt om

fet321 Nybegynder

27. maj 2003 - 15:04 #20

jtc >> Der er din side. Du ved vel selv hvad der skal udskrives :-)

Synes godt om

medievil Nybegynder

27. maj 2003 - 15:06 #21

Tror der skulle stå: Velkommen <% response.write session("brugernavn") %>

Synes godt om

medievil Nybegynder

27. maj 2003 - 15:07 #22

eller Velkommen <%= session("brugernavn") %>

Synes godt om

kovalt Nybegynder

27. maj 2003 - 15:08 #23

Jeg ved ikke hvad du vil udskrive - det er ligesom op til dig selv..... hvis det er navnet på den der er logget ind du vil udskrive skal du skrive

<% response.write session("navn") %>

og hvis det er brugernavnet så er det:

<% response.write session("brugernavn") %>

i første tilfælde skal du lige ha rettet asp'en til følgende:

<% If Request.Form("brugernavn") <> "" Then

strBrugerNavn = Trim(Replace(Request.Form("brugernavn"),"'",""))
strPWD = Trim(Replace(Request.Form("password"),"'",""))

If Len(strBrugerNavn) > 0 And Len(strPWD) > 0 Then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" + Server.MapPath("stitilDB"))

strSQL = "SELECT brugernavn, password, navn FROM tabelnavn WHERE (brugernavn = '" & strBrugerNavn & "') AND (password = '" & strPWD & "')"

Set rs = Conn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
strBrugernavn = rs("Brugernavn")
strNavn = rs("navn")
End If

If Len(strBrugernavn) > 0 Then
Session("BrugerNavn") = strBrugernavn
Session("navn") = strNavn
End If

If Session("BrugerNavn")) = "eks1" then
response.Redirect("index.asp")
elseif Session("BrugerNavn")) = "eks2" then
response.Redirect("index2.asp")
end if

end if
else %>

<form action="index.asp" method="post">
<input type="text" name="brugernavn" id="newusershort">
<input type="password" name="password" id="newusershort">
<input type="submit" name="Submit" id="gronknap" value="Login">
</form>

<% End If %>

hvor index.asp indeholder

<html>
<head></head>
<body>
Her kommer der en masse..

Velkommen <% response.write session("navn") %>

</body>
</html>

Synes godt om

medievil Nybegynder

27. maj 2003 - 15:10 #24

kovalt: i sidste linie i log ind dokumentet skal der stadig stå:

If Session("BrugerNavn")) = "eks1" then
response.Redirect("index.asp")
elseif Session("BrugerNavn")) = "eks2" then
response.Redirect("index2.asp")
end if

else %>

Uden det sidste end if !

Synes godt om

kovalt Nybegynder

27. maj 2003 - 15:14 #25

ja sorry - my bad.... jeg tænkte bare lige på at få rettet den session :-)

Synes godt om

medievil Nybegynder

27. maj 2003 - 15:16 #26

Hov glemte også lige de 2 ))'er !

Synes godt om

jtc Nybegynder

27. maj 2003 - 15:25 #27

vent lige lidt jeg skal lige have det afprøvet

Synes godt om

jtc Nybegynder

27. maj 2003 - 15:28 #28

siden med navnet virker stadig ikke

Synes godt om

jtc Nybegynder

27. maj 2003 - 15:32 #29

feltnavnet med navn hedder medlem-fornavn er det her fejlen ligger og i så fald kan du så ikke lige rette det

Synes godt om

medievil Nybegynder

27. maj 2003 - 15:32 #30

Hvad er fejlen?

Synes godt om

medievil Nybegynder

27. maj 2003 - 15:34 #31

<% If Request.Form("brugernavn") <> "" Then

strBrugerNavn = Trim(Replace(Request.Form("brugernavn"),"'",""))
strPWD = Trim(Replace(Request.Form("password"),"'",""))

If Len(strBrugerNavn) > 0 And Len(strPWD) > 0 Then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" + Server.MapPath("stitilDB"))

strSQL = "SELECT brugernavn, password, navn FROM tabelnavn WHERE (brugernavn = '" & strBrugerNavn & "') AND (password = '" & strPWD & "')"

Set rs = Conn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
strBrugernavn = rs("Brugernavn")
strNavn = rs("medlem-fornavn")
End If

If Len(strBrugernavn) > 0 Then
Session("BrugerNavn") = strBrugernavn
Session("navn") = strNavn
End If

If Session("BrugerNavn") = "eks1" then
response.Redirect("index.asp")
elseif Session("BrugerNavn") = "eks2" then
response.Redirect("index2.asp")
end if

else %>

<form action="index.asp" method="post">
<input type="text" name="brugernavn" id="newusershort">
<input type="password" name="password" id="newusershort">
<input type="submit" name="Submit" id="gronknap" value="Login">
</form>

<% End If %>

Synes godt om

jtc Nybegynder

27. maj 2003 - 15:36 #32

skal der ikke også stå noget med medlem-navn i denne linie
Session("navn") = strNavn

og desuden så skal der vel stå mere end udelukkende

<html>
<head></head>
<body>
Her kommer der en masse..

Velkommen <% response.write session("navn") %>

</body>
</html>
i indexfilen

Synes godt om

medievil Nybegynder

27. maj 2003 - 15:38 #33

Det kommer an på hvilke funktioner du vil have !

Synes godt om

medievil Nybegynder

27. maj 2003 - 15:39 #34

http://www.solutions2all.dk/source_show.asp?id=63

Synes godt om

jtc Nybegynder

27. maj 2003 - 15:41 #35

Sådan her sermin side ud nu og den virker ikke når jeg går videre til index så står der bare velkommen og så ikke mere

<% If Request.Form("brugernavn") <> "" Then

strBrugerNavn = Trim(Replace(Request.Form("brugernavn"),"'",""))
strPWD = Trim(Replace(Request.Form("password"),"'",""))

If Len(strBrugerNavn) > 0 And Len(strPWD) > 0 Then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" + Server.MapPath("/db/bowling.mdb"))

strSQL = "SELECT brugernavn, password, medlem-fornavn FROM tblmedlemmer WHERE (brugernavn = '" & strBrugerNavn & "') AND (password = '" & strPWD & "')"

Set rs = Conn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
strBrugernavn = rs("Brugernavn")
strNavn = rs("medlem-fornavn")
End If

If Len(strBrugernavn) > 0 Then
Session("BrugerNavn") = strBrugernavn
Session("medlem-fornavn") = strNavn
End If

If Session("BrugerNavn") = "eks1" then
response.Redirect("index.asp")
elseif Session("BrugerNavn") = "eks2" then
response.Redirect("index2.asp")
end if

end if
else %>

<form action="index.asp" method="post">
<input type="text" name="brugernavn" id="newusershort">
<input type="password" name="password" id="newusershort">
<input type="submit" name="Submit" id="gronknap" value="Login">
</form>

<% End If %>

Synes godt om

jtc Nybegynder

27. maj 2003 - 15:44 #36

Desuden KAN JEG SKRIVE HVAD SOM HELST SOM BRUGER NAVN OG PASSWORD OG SÅ GÅR DEN VIDERE TIL SAMME SIDE

eR DET IKKE NEMMERE AT STARTE FORFRA

Synes godt om

spile Nybegynder

27. maj 2003 - 15:50 #37

prøv med en case select .

Synes godt om

jtc Nybegynder

27. maj 2003 - 15:51 #38

jeg aner ikke hvad en case select er???

Synes godt om

medievil Nybegynder

27. maj 2003 - 16:07 #39

Prøv at udskifte:
If Not (rs.BOF Or rs.EOF) Then
strBrugernavn = rs("Brugernavn")
strNavn = rs("medlem-fornavn")
End If

Med:
If Not (rs.BOF Or rs.EOF) Then
strBrugernavn = rs("Brugernavn")
strNavn = rs("medlem-fornavn")
else
response.write "Forkert brugernavn eller kode"
End If

Synes godt om

jtc Nybegynder

27. maj 2003 - 16:10 #40

Det gør ingen forskel

Men er det ikke nemmere at starte forfra

Synes godt om

fet321 Nybegynder

28. maj 2003 - 02:41 #41

jtc >> nemmere for hvem?
Det nemmeste - og smarteste på længere sigt - var måske at du brugte lidt energi på at lære ASP syntaxen.

Du kan hente source-koden til et par login-scripts her:
http://activedeveloper.dk/download/default.asp?mode=showdownload&id=223
http://activedeveloper.dk/download/default.asp?mode=showdownload&id=311
http://activedeveloper.dk/download/default.asp?mode=showdownload&id=351
http://activedeveloper.dk/download/default.asp?mode=showdownload&id=312

(Fuck hvor kan jeg bare ikke klare den der initiativløse krævementalitet!)

/fet321

Synes godt om

jtc Nybegynder

31. maj 2003 - 18:54 #42

Hvis man ikke lige selv kan finde ud af tingene er det da klart man kræver og desuden kan du da bare holde dig væk hvis du kan klare det

Synes godt om

jtc Nybegynder

01. juni 2003 - 22:41 #43

jeg fandt svar andetssteds

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	10	25/06/202622:20	04/09/202602:30
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