Avatar billede sorenmt84 Juniormester
05. januar 2002 - 18:49 Der er 16 kommentarer og
1 løsning

Åben nyt vindue og ved klik på knap luk det og opdater den

Jeg skal bruge et script, som åbner et nyt vindue, hvor jeg skal have en <form> hvor man indtaster sit brugernavn og password, når man så klikker på login skal den lukke det vindue og sende det \"alm\" vindue afsted til en anden side....
Avatar billede dth Nybegynder
05. januar 2002 - 18:52 #1
På \"hovedsiden\" laver du linket sådan:

<A href=\"blabla.asp\" target=\"_blank\">Linknavn</a>

Det nye vindue skal indeholde:
<Body OnUnload=\"parent.opener.href=\'blabla.asp\'\"; self.close()>

Pråv det lige af...

/trier :-)
Avatar billede Søren Bech Morsing Praktikant
05. januar 2002 - 18:54 #2
    <SCRIPT language=\"javascript\">
    function timeout()
    {
        setTimeout(\"close_window();\", 100)
    }
    function close_window()
    {
        window.close()
    }

    function luk(){
       
        window.opener.location.reload(true);
        timeout();
    }
   
    luk();
    </SCRIPT>

i stedet for window.opener.location.reload(true) må du kunne skrive
window.opener.location = \"http://www.eksperten.dk\"
Ellers finder du nemt hvad det er du skal skrive for at skifte side!
Avatar billede sorenmt84 Juniormester
05. januar 2002 - 18:58 #3
>>dth

Jeg kan ikke helt få det til at virke...
Det skal være når jeg trykker på en submit knap, så jeg går udfra at det er en stump kode der skal ind der et sted...
Avatar billede dth Nybegynder
05. januar 2002 - 19:00 #4
Ja, du skriver det skal bruges til brugernavn og password, så må der jo være en stump kode som checker det indtastede?? Der skal du lægge self.close() ind i... Hvis du lægger lidt af koden op, skal jeg kigge på det...
Avatar billede sorenmt84 Juniormester
05. januar 2002 - 19:05 #5
Login.asp: Siden der skal åbne i det nye vindue og hvor man indtaster sine oplysninger.
kontrol.asp: Siden der kontrollere det indtastede, selve kontrollen er også nød til at ske i det vindue der åbner med login.asp, for den vender tilbage til login.asp hvis der er fejl i det indtastede! Det er så i den fil et eller andet sted din kode skal, så vinduet lukker og det \"alm\" vindue skifter til en anden side (godkendt.asp)

-------login.asp----------
<%
Response.Expires = 0
If Not Session(\"Adgang\") = \"Godkendt\" Then
Session(\"Adgang\") = \"Forbudt\"
End If %>

<td valign=\"top\">
<span class=\"uoverskrift\"><IMG SRC=\"images/punkt.gif\" >&nbsp;<a class=\"uoverskrift\" href=\"default.asp?\"> Forsiden</a> <IMG SRC=\"images/punkt.gif\"> Login - Log på de Interne sider</span><br><br>
<table BORDER=\"0\" CELLPADDING=\"0\" CELLSPACING=\"0\" width=\"600\">
<tr><td colspan=\"2\"><span class=\"normal\"><center>Udfyld felterne neden under med dit brugernavn og password og tryk på \"login\" Derefter vil dine dater blive kontrolleret og du vil opnå adgang til de Interne sider, hvis du er berettiget til det.<br><br></center></td></tr>
<%
Select Case Request.QueryString(\"valg\")
    case \"fejl\"                   
        Response.Write(\"<tr><td><center><b><span class=\'fejl\'>Fejl i brugernavn eller adgangskode</span></b></center></td></tr>\")
    case \"forbudt\"               
        Response.Write(\"<tr><td><center><b><span class=\'fejl\'>Fejl</span></b></center></td></tr>\")
    case \"ikke_godkendt\"
        Response.Write(\"<tr><td><center><b><span class=\'fejl\'>Din konto er ikke godkendt endnu</span></b></center></td></tr>\")
End Select
%>
<form action=\"kontrol.asp\" method=\"post\" name=\"loginform\">
<tr><td width=\"600\"><div align=\"left\"><span class=\"normal\"><b>Brugernavn:</b> <input type=\"text\" name=\"login\" value=\"<%= Request.Cookies(\"troldhoej_Login\")(\"brugernavn\")%>\" size=\"60\" style=\"font-family: Arial; font-size: 10 pt; border-style: double; border-color: #224492\"></span></div></td></tr>
<tr><td width=\"600\"><div align=\"left\"><span class=\"normal\"><b>Password:</b>&nbsp;&nbsp;&nbsp;&nbsp;<input type=\"password\" name=\"pw\" value=\"<%= Request.Cookies(\"troldhoej_Login\")(\"password\")%>\" size=\"60\" style=\"font-family: Arial; font-size: 10 pt; border-style: double; border-color: #224492\"></span></div></td></tr>
<tr><td><br><div align=\"right\"><input type=\"submit\" value=\"Login\" style=\"font-family: Arial; font-size: 10 pt; font-weight: bold; background-color: #FFFFFF; border-style: double; border-color: #224492\"></div></td></tr></form>
<tr><td><br></td></tr>
</table></center>
</td>
<% end if %>


-------kontrol.asp----------
<!-- #include file=\"dbconnection.asp\" -->
<%
if len(Request.Cookies(\"troldhoej_login\")(\"password\")) and len(Request.Cookies(\"troldhoej_login\")(\"brugernavn\")) and Request.Cookies(\"troldhoej_Login\")(\"Data\") = \"Auto\" then
strPassword = Request.Cookies(\"troldhoej_login\")(\"password\")
strBrugerNavn = Request.Cookies(\"troldhoej_login\")(\"brugernavn\")
else
strPassword = Request.Form(\"pw\")
strBrugerNavn = Request.Form(\"login\")
end if
set objConn = Server.CreateObject(\"ADODB.Connection\")
Set objRS = Server.CreateObject(\"ADODB.RecordSet\")
strQ = \"SELECT * FROM brugere WHERE (password=\'\" & strPassword & \"\')\" & \" AND (brugernavn = \'\" & strBrugerNavn & \"\');\"
objRS.Open strQ, strConn
If objRS.EOF Then
Response.Redirect(\"login.asp?valg=fejl\")
Elseif objRS(\"godkendt\") <> true then
Response.Redirect(\"login.asp?valg=ikke_godkendt\")
else   
Session(\"Adgang\") = \"Godkendt\"
Session(\"AccessLevel\") = objRS(\"Level\")
Session(\"BrugerNavn\") = objRS(\"BrugerNavn\")
Response.Cookies(\"oplysninger\")(\"brugernavn\")=objRS(\"brugernavn\")
Response.Cookies(\"oplysninger\")(\"password\")=objRS(\"password\")
Response.Cookies(\"oplysninger\")(\"navn\")=objRS(\"navn\")
objConn.ConnectionString = strConn
objConn.open
objConn.Execute \"update brugere set online = \'ja\' where brugernavn =\'\" & Session(\"BrugerNavn\") & \"\'\"
Response.Redirect(\"godkendt.asp\")
End If
if objRS.State = 1 then    objRS.Close
Set objRS = Nothing
if objConn.state = 1 then objConn.Close
set objConn = nothing
%>
Avatar billede cygnet Praktikant
05. januar 2002 - 19:07 #6
login.asp
----
<form action=\"blabla.asp\" target=\"_blank\">
Det der skal værer inde i formen
</form>

blabla.asp
---
<Body OnUnload=\"parent.opener.href=\'blabla.asp\'\"; self.close()>

Prøv det ..
/cygnet
Avatar billede cygnet Praktikant
05. januar 2002 - 19:08 #7
login.asp
----
<form action=\"kontrol.asp\" method=\"post\" name=\"loginform\" target=\"_blank\">
... ... ...
... ... ...
</form>

kontrol.asp
---
<Body OnUnload=\"parent.opener.href=\'blabla.asp\'\"; self.close()>

/cygnet
Avatar billede dth Nybegynder
05. januar 2002 - 19:09 #8
-------kontrol.asp----------
<!-- #include file=\"dbconnection.asp\" -->
<%
if len(Request.Cookies(\"troldhoej_login\")(\"password\")) and len(Request.Cookies(\"troldhoej_login\")(\"brugernavn\")) and Request.Cookies(\"troldhoej_Login\")(\"Data\") = \"Auto\" then
strPassword = Request.Cookies(\"troldhoej_login\")(\"password\")
strBrugerNavn = Request.Cookies(\"troldhoej_login\")(\"brugernavn\")
else
strPassword = Request.Form(\"pw\")
strBrugerNavn = Request.Form(\"login\")
end if
set objConn = Server.CreateObject(\"ADODB.Connection\")
Set objRS = Server.CreateObject(\"ADODB.RecordSet\")
strQ = \"SELECT * FROM brugere WHERE (password=\'\" & strPassword & \"\')\" & \" AND (brugernavn = \'\" & strBrugerNavn & \"\');\"
objRS.Open strQ, strConn
If objRS.EOF Then
Response.Redirect(\"login.asp?valg=fejl\")
Elseif objRS(\"godkendt\") <> true then
Response.Redirect(\"login.asp?valg=ikke_godkendt\")
else   
Session(\"Adgang\") = \"Godkendt\"
Session(\"AccessLevel\") = objRS(\"Level\")
Session(\"BrugerNavn\") = objRS(\"BrugerNavn\")
Response.Cookies(\"oplysninger\")(\"brugernavn\")=objRS(\"brugernavn\")
Response.Cookies(\"oplysninger\")(\"password\")=objRS(\"password\")
Response.Cookies(\"oplysninger\")(\"navn\")=objRS(\"navn\")
objConn.ConnectionString = strConn
objConn.open
objConn.Execute \"update brugere set online = \'ja\' where brugernavn =\'\" & Session(\"BrugerNavn\") & \"\'\"
Response.Redirect(\"godkendt.asp\")
%>
<Script language=\"JavaScript\">
parent.opener.href=\"siden.asp\" -------Her skal ændres
self.close()
</Script>
<%
End If
if objRS.State = 1 then    objRS.Close
Set objRS = Nothing
if objConn.state = 1 then objConn.Close
set objConn = nothing
%>
Avatar billede sorenmt84 Juniormester
05. januar 2002 - 19:09 #9
>>cygnet

Jeg tror du har misforstået det lidt...
Så vidt jeg kan se, vil din kode først åbne et nyt vindue, når man kører formen i login.asp - Men login.asp skal være den fil der kommer i et nye vindue!
Avatar billede sorenmt84 Juniormester
05. januar 2002 - 19:13 #10
>>dth 
Har lige prøvet din kode... Det virker ikke, den Response.Redirect(\"godkendt.asp\")jo også inden dit javascript halløj kommer ind, så der skal vel ændres noget der???
Avatar billede dth Nybegynder
05. januar 2002 - 19:14 #11
Hvad er godkendt.asp??
Avatar billede sorenmt84 Juniormester
05. januar 2002 - 19:16 #12
godkendt.asp er den side som skal åbne i det almindelige browser vindue når det vindue der popper op har kørt kontrol.asp og så selv lukker!
Avatar billede dth Nybegynder
05. januar 2002 - 19:17 #13
OK... Prøv dette her

-------kontrol.asp----------
<!-- #include file=\"dbconnection.asp\" -->
<%
if len(Request.Cookies(\"troldhoej_login\")(\"password\")) and len(Request.Cookies(\"troldhoej_login\")(\"brugernavn\")) and Request.Cookies(\"troldhoej_Login\")(\"Data\") = \"Auto\" then
strPassword = Request.Cookies(\"troldhoej_login\")(\"password\")
strBrugerNavn = Request.Cookies(\"troldhoej_login\")(\"brugernavn\")
else
strPassword = Request.Form(\"pw\")
strBrugerNavn = Request.Form(\"login\")
end if
set objConn = Server.CreateObject(\"ADODB.Connection\")
Set objRS = Server.CreateObject(\"ADODB.RecordSet\")
strQ = \"SELECT * FROM brugere WHERE (password=\'\" & strPassword & \"\')\" & \" AND (brugernavn = \'\" & strBrugerNavn & \"\');\"
objRS.Open strQ, strConn
If objRS.EOF Then
Response.Redirect(\"login.asp?valg=fejl\")
Elseif objRS(\"godkendt\") <> true then
Response.Redirect(\"login.asp?valg=ikke_godkendt\")
else   
Session(\"Adgang\") = \"Godkendt\"
Session(\"AccessLevel\") = objRS(\"Level\")
Session(\"BrugerNavn\") = objRS(\"BrugerNavn\")
Response.Cookies(\"oplysninger\")(\"brugernavn\")=objRS(\"brugernavn\")
Response.Cookies(\"oplysninger\")(\"password\")=objRS(\"password\")
Response.Cookies(\"oplysninger\")(\"navn\")=objRS(\"navn\")
objConn.ConnectionString = strConn
objConn.open
objConn.Execute \"update brugere set online = \'ja\' where brugernavn =\'\" & Session(\"BrugerNavn\") & \"\'\"
%>
<Script language=\"JavaScript\">
parent.opener.href=\"godkendt.asp\"
self.close()
</Script>
<%
End If
if objRS.State = 1 then    objRS.Close
Set objRS = Nothing
if objConn.state = 1 then objConn.Close
set objConn = nothing
%>
Avatar billede sorenmt84 Juniormester
05. januar 2002 - 19:18 #14
Nu lukker vinduet, men den viderstiller ikke til godkendt.asp!!!
Avatar billede dth Nybegynder
05. januar 2002 - 19:19 #15
Hmmm.... Øjeblik
Avatar billede dth Nybegynder
05. januar 2002 - 19:23 #16
Skift
parent.opener.href=\"godkendt.asp\"
ud med
opener.location.href=\"godkendt.asp\"

/trier :-)
Avatar billede sorenmt84 Juniormester
05. januar 2002 - 19:25 #17
Takker :-)
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