Avatar billede hrlund Nybegynder
18. april 2002 - 14:42 Der er 11 kommentarer og
1 løsning

login

Hey, jeg har nedstående loginkode ..

Når man logger ind, bliver man sendt videre til
../community/community.asp?mode=inbox
men je vil hellere have man logger ind, og bliver videre sendt til samme side som man er på.  Hvordan gør jeg det ?

<% if mode = "login" then
                           
                            'Hvis brugeren har submittet login formen
                            if Request.ServerVariables("REQUEST_METHOD") = "POST" then
                               
                                'Tjecker om felterner er udfydlt
                                if Request.Form("brugernavn") <> "" AND Request.Form("adgangskode") <> "" then
                                   
                                        Sql = "select * from bruger where brugernavn = '" & Request.Form("brugernavn") & "'"
                                        Set rs = Conn.Execute(sql)
                                           
                                            'Tjecker om brugeren eksisterer
                                            if rs.EOF or rs.BOF then
                                                Response.Write("<font color='red'><b>Brugernavnet eksisterer ikke</font></b><br>")
                                            else
                                                   
                                                    'tjecker om passwordsne matcher hinanden
                                                    if rs("brugerkode") = Request.Form("adgangskode") then
                                                           
                                                            Session("brugernavn") = Rs("brugernavn")
                                                            Response.Redirect("../community/community.asp?mode=inbox")                   
                                                    else
                                                        Response.Write("<font color='red'><b>Adgangskoden er forkert<br></b></font>")
                                                    end if
                                            end if
                                           
                                        rs.Close
                                        set rs = nothing
                        else   
    response.Write("<font color='red'><b>Du har ikke udfyldt felterne</b></font><br>")
end if                       
end if
%>
Avatar billede medions Nybegynder
18. april 2002 - 14:51 #1
<% if mode = "login" then
                           
                            'Hvis brugeren har submittet login formen
                            if Request.ServerVariables("REQUEST_METHOD") = "POST" then
                               
                                'Tjecker om felterner er udfydlt
                                if Request.Form("brugernavn") <> "" AND Request.Form("adgangskode") <> "" then
                                   
                                        Sql = "select * from bruger where brugernavn = '" & Request.Form("brugernavn") & "'"
                                        Set rs = Conn.Execute(sql)
                                           
                                            'Tjecker om brugeren eksisterer
                                            if rs.EOF or rs.BOF then
                                                Response.Write("<font color='red'><b>Brugernavnet eksisterer ikke</font></b><br>")
                                            else
                                                   
                                                    'tjecker om passwordsne matcher hinanden
                                                    if rs("brugerkode") = Request.Form("adgangskode") then
                                                           
                                                            Session("brugernavn") = Rs("brugernavn")
                                                            Response.Redirect(Request.ServerVariables("SCRIPT_NAME"))                   
                                                    else
                                                        Response.Write("<font color='red'><b>Adgangskoden er forkert<br></b></font>")
                                                    end if
                                            end if
                                           
                                        rs.Close
                                        set rs = nothing
                        else   
    response.Write("<font color='red'><b>Du har ikke udfyldt felterne</b></font><br>")
end if                       
end if
%>

//>Rune
Avatar billede bobbedude Nybegynder
18. april 2002 - 14:51 #2
Skift
("../community/community.asp?mode=inbox") 
til
("login-siden.asp")
Avatar billede eagleeye Praktikant
18. april 2002 - 14:51 #3
Retter i denne linie:
Response.Redirect("../community/community.asp?mode=inbox")

til den fil du vil redirctes til.
Response.Redirect("loginfil.asp")
Avatar billede bobbedude Nybegynder
18. april 2002 - 14:52 #4
ups var svar
Avatar billede medions Nybegynder
18. april 2002 - 14:52 #5
Det jeg har gjordt er at lave en servervariabel som henter navenet på dokumentet du er inde i, og udskriver den...

//>Rune
Avatar billede bobbedude Nybegynder
18. april 2002 - 14:52 #6
hehe eagleeye >> et sekund, ps har du ICQ ?
Avatar billede medions Nybegynder
18. april 2002 - 14:53 #7
Sorry.. du ville nok hellere ha' den til dette:
<% if mode = "login" then
                           
                            'Hvis brugeren har submittet login formen
                            if Request.ServerVariables("REQUEST_METHOD") = "POST" then
                               
                                'Tjecker om felterner er udfydlt
                                if Request.Form("brugernavn") <> "" AND Request.Form("adgangskode") <> "" then
                                   
                                        Sql = "select * from bruger where brugernavn = '" & Request.Form("brugernavn") & "'"
                                        Set rs = Conn.Execute(sql)
                                           
                                            'Tjecker om brugeren eksisterer
                                            if rs.EOF or rs.BOF then
                                                Response.Write("<font color='red'><b>Brugernavnet eksisterer ikke</font></b><br>")
                                            else
                                                   
                                                    'tjecker om passwordsne matcher hinanden
                                                    if rs("brugerkode") = Request.Form("adgangskode") then
                                                           
                                                            Session("brugernavn") = Rs("brugernavn")
                                                            Response.Redirect(Request.ServerVariables("SCRIPT_NAME") & "?mode=inbox")                   
                                                    else
                                                        Response.Write("<font color='red'><b>Adgangskoden er forkert<br></b></font>")
                                                    end if
                                            end if
                                           
                                        rs.Close
                                        set rs = nothing
                        else   
    response.Write("<font color='red'><b>Du har ikke udfyldt felterne</b></font><br>")
end if                       
end if
%>

//>Rune
Avatar billede eagleeye Praktikant
18. april 2002 - 14:53 #8
Jeps lav det som medions har skrevet, det er lettet at flytte koden rundt i foldere og ændre på filnavnet:

Response.Redirect(Request.ServerVariables("SCRIPT_NAME"))
Avatar billede eagleeye Praktikant
18. april 2002 - 14:55 #9
bobbedude>>  LOL  ja men mit var et svar det var derfor jeg var 1 sekund længere om det :)
Avatar billede medions Nybegynder
18. april 2002 - 15:01 #10
Thx 4 Poinz!
//>Rune
Avatar billede hrlund Nybegynder
18. april 2002 - 15:03 #11
virker ikke helt :-(
Mit login er på community.asp
Jeg er eks på artikel.asp og logger ind. Det jeg så vil, er at jeg ikke vil hen på community.asp når jeg er logget ind, men jeg vil blive på siden artikel.asp ..
Avatar billede medions Nybegynder
18. april 2002 - 22:03 #12
Det er du oxo hvis du benytter mig script!

//>Rune
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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