Avatar billede guldklumpen Nybegynder
25. november 2002 - 23:52 Der er 9 kommentarer og
1 løsning

Login i popupwin

Hvis en bruger linker til en beskyttet side uden at være logget  ind, skal der komme et popupwin med loginindtastning.

Alt det er ok.

Det jeg gerne vil have hjælp til er, at når brugeren indtaster sit brugernavn/password og det er godkendt, så skal popupwin lukke og den side der oprindeligt blev åbnet skal reloade.

Håber i forstår hvad jeg mener og at der er nogen der kan hjælpe.


Her er min login kode:

<%
SET RS = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("xxxxxxxx.mdb")

If Request("mode") = "Check" then

        strUsername = Trim(Replace(request("username"),"'","''" ))
        strPassword = Trim(Replace(request("password"),"'","''" ))
           
  Sql = "Select Count(*) as Found from users where (username = '" & strUsername  & "') and (password ='" & strPassword  & "')"
  Set LO = RS.Execute(Sql)
  if LO("Found") = 0 then
    Session("login") = ""
    error = "Du har ikke adgang"
    Response.Redirect "/"

  else
  strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("xxxxxxxxxxxx.mdb")
  Set myConn = Server.CreateObject("ADODB.Connection")
  myConn.Open strDSN
  strSQL = "SELECT * FROM xxxxxx where (username = '" & Request("username") & "') and (password ='" & Request("password") & "')"
  Set ez = myConn.Execute(strSQL)
    Session("login") = "Authed"
    Response.Redirect "default.asp"
    EZ.Close
    RS.Close
    Conn.Close
  End if
End if
%>

<table bgcolor=#000033><tr><td>
<center>
<form method="POST" action="login.asp">
<input type="hidden" name="mode" VALUE="Check">
<input class='text' type='text' name='username' value="<%=strbrugernavn%>"><br>
<input class="text" type="password" value="<%=strpassword%>" name="password">
<input class="text" type="submit" value="Login" name="submit">
<%=error%>
</form>
</center>
</td></tr></table>
Avatar billede guldklumpen Nybegynder
26. november 2002 - 01:38 #2
Det hjælper mig desværre ikke.

Problemet ligger i aspkoden "response.redirect".

Hvis jeg piller ved den får jeg en fejlmelding og jeg er desværre ikke asphaj nok til at gennemskue det.
Avatar billede wilweb Nybegynder
26. november 2002 - 01:49 #3
Din Response.Redirect "default.asp" er da god nok? med mindre du ikke vil til default.asp
Avatar billede loukas Mester
26. november 2002 - 02:08 #4
Jeg ved ikke, men måske kan du poste den til en anden (fil.asp) end din login.asp
fil.asp skal så åbne i et "fuldt" vindue og redirecte til den side brugeren oprindeligt prøvede at komme ind på !?!?!

Jeg følger med og ser hvad der kommer af forslag:-)
Avatar billede ossian Nybegynder
26. november 2002 - 02:18 #5
Prøv at sætte din response.redirect før <html>
Avatar billede guldklumpen Nybegynder
26. november 2002 - 02:54 #6
Har prøvet følgende, som virker fint så længe den oprindelige side hedder f.eks "side.asp."

Hvis den oprindelige side hedder f.eks. "side.asp?id=10&..." så bliver der problemer.

  strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/database/tvedusersystem.mdb")
  Set myConn = Server.CreateObject("ADODB.Connection")
  myConn.Open strDSN
  strSQL = "SELECT * FROM users where (username = '" & Request("username") & "') and (password ='" & Request("password") & "')"
  Set ez = myConn.Execute(strSQL)
    Session("login") = "Authed"
    Session("fuldeNavn") = ez("navn")
    Session("firmaid") = ez("id")
    response.write "<SCRIPT language='JavaScript'>" & vbcrlf
    response.write "<!--" & vbcrlf
    response.write "window.opener.location.reload();" & vbcrlf
    response.write "self.close();" & vbcrlf
    response.write "//-->" & vbcrlf
    response.write "</SCRIPT>"
    EZ.Close
    RS.Close
    Conn.Close
Avatar billede guldklumpen Nybegynder
26. november 2002 - 13:06 #7
Det jeg troede der virkede, fungerer sq heller ikke.
Avatar billede mm12010 Nybegynder
26. november 2002 - 13:22 #8
site = Request.ServerVariables("HTTP_REFERER")
Response.Redirect "site"
Avatar billede hells Nybegynder
04. december 2002 - 23:58 #9
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/database/tvedusersystem.mdb")
  Set myConn = Server.CreateObject("ADODB.Connection")
  myConn.Open strDSN
  strSQL = "SELECT * FROM users where (username = '" & Request("username") & "') and (password ='" & Request("password") & "')"
  Set ez = myConn.Execute(strSQL)
    Session("login") = "Authed"
    Session("fuldeNavn") = ez("navn")
    Session("firmaid") = ez("id")
    Response.Write "<body onload=""window.opener.location.reload(true);window.close();"">"
    EZ.Close
    RS.Close
    Conn.Close
Avatar billede guldklumpen Nybegynder
05. december 2002 - 00:17 #10
Endnu en gang tak for hjælpen !!!
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