21. juli 2000 - 08:44Der er
17 kommentarer og 1 løsning
open.window ???
Jeg har nedenstående kommando stående, Jeg vil dog ikke have at den skal åbne i et nyt vindue, men i en frame. Endvidere kan jeg bare slette width og height, så den automatisk finder størrelsen i min frame ??
Den moderne arbejdsplads er i stigende grad afhængig af mødelokaler til at fremme samarbejde, men dette skift medfører også stigende sikkerhedsudfordringer.
Hvis jeg bruge dit forslag, så virker det slet ikke !. Det jeg har skrevet ligger i en default.asp fil og som står referer til en chat.asp fil. Denne chat ligger på en server, men den hjemmeside som den kan ses på ligge på en anden. Min default.asp passer fint ind på siden, men så snart man logger ind, åbnes et nyt vindue, som automatisk minimeres. Den skal selvfølgelig åbne i samme frame.
Hvem er det, der åbner det nye vindue? Er det chatten på den anden maskine? Hvis det er tilfældet´, kan du nok ikke gøre noget. Har du en URL til chatten?
<ole> ...eller måske nok nærmere: <script> window.parent.frames[rammenavn].location.href=\'chat.asp?mode=login&chatname=<%= Request(\"chatname\") %>\' </script> ;-)) Ikke fordi jeg tror, det hjælper - men som Erik siger: Lad os få en URL til din default.asp og chat.asp. /Vh </bole>
Det i foreslår virker ikke helt, men det er på rette vej. Det eneste som går galt er henvisningen til min frame, hvis jeg skriver mit frame navn i [] kender den ikke framen, måske den skal defineres først ?. Som sagt ligger den på en anden server...
Du kan kalde første frame i et frameset med \'frames[0]\' - anden frame med \'frame[1]\' osv. Altså: window.parent.frames[0].location.href ...hvis det er den første frame i frameset\'et, du ønsker at skifte dokument i. Prøv med en URL - så kan vi komme videre. /Vh
Hvis folk ellers kan holde geisten oppe året ud, er der såmænd nok én, der gætter rigtigt før eller siden, men uden en URL tror jeg ikke, nogen orker ;-)) /Vh
If Application(\"chatusers\") = \"\" Then Application(\"chatusers\") = 0 End If
If Application(\"chatusers\") < 0 Then Application(\"chatusers\") = 0 End If
Mode = Request(\"mode\")
If Mode = \"\" Then Response.Redirect \"chat.asp?mode=error&type=\" End If
If Mode = \"login\" Then If Application(\"chatusers\") = MaxUsers Then Response.Redirect \"chat.asp?mode=error&type=\" Else For x = 1 To MaxUsers If Application(\"chatuser_\" & x) = Request(\"chatname\") Then Response.Redirect \"chat.asp?mode=error&type=\" End If Next For x = 1 To MaxUsers If Application(\"chatuser_\" & x) = \"\" Then Application(\"chatusers\") = Application(\"chatusers\") + 1 Application(\"chatuser_\" & x) = Request(\"chatname\") Exit For End If Next Session(\"chatname\") = Request(\"chatname\") Session(\"chatuser\") = x For x = MaxPublicMessages To 2 Step -1 Application(\"publicmessage_\" & x) = Application(\"publicmessage_\" & x-1) Next Application(\"publicmessage_1\") = \"<b><font color=\'\" & SystemColor & \"\'>[Chatten] \" & Session(\"chatname\") & \" er logget på kl. \" & time & \"</font></b>\" %> <html>
If Mode = \"logout\" Then If Application(\"chatuser_\" & Session(\"chatuser\")) <> \"\" Then For x = 1 To MaxPrivatMessages Application(\"privatmessage_\" & Request(\"chatname\") & \"_\" & x) = \"\" Next For x = MaxPublicMessages To 2 Step -1 Application(\"publicmessage_\" & x) = Application(\"publicmessage_\" & x-1) Next Application(\"publicmessage_1\") = \"<b><font color=\'\" & SystemColor & \"\'>[Chatten] \" & Session(\"chatname\") & \" er logget af kl. \" & time & \"</font></b>\" Application(\"chatusers\") = Application(\"chatusers\") - 1 Application(\"chatuser_\" & Session(\"chatuser\")) = \"\" Session(\"chatname\") = \"\" Session(\"chatuser\") = \"\" End If %><!-- #include file=\"logout.html\" --><% End If
If Mode = \"sendmessage\" Then If Application(\"chatuser_\" & Session(\"chatuser\")) = \"\" Then %> <script language=\"JavaScript\"> <!-- top.location.href=\"chat.asp?mode=error\"; // --> </script> <% Else If Request(\"messageto\") = \"public\" Then For x = MaxPublicMessages To 2 Step -1 Application(\"publicmessage_\" & x) = Application(\"publicmessage_\" & x-1) Next PublicMessage = Server.HTMLEncode(Request(\"message\")) Application(\"publicmessage_1\") = \"<b>[\" & Session(\"chatname\") & \"] </b> <font color=\'\" & Request(\"textcolor\") & \"\'>\" & PublicMessage & \"</font>\" Response.Redirect \"chat.asp?mode=publicmessages\" Else For x = MaxPrivatMessages To 2 Step -1 Application(\"privatmessage_\" & Request(\"messageto\") & \"_\" & x) = Application(\"privatmessage_\" & Request(\"messageto\") & \"_\" & x-1) Application(\"privatmessage_\" & Session(\"chatname\") & \"_\" & x) = Application(\"privatmessage_\" & Session(\"chatname\") & \"_\" & x-1) Next PrivatMessage = Server.HTMLEncode(Request(\"message\")) Application(\"privatmessage_\" & Request(\"messageto\") & \"_1\") = \"<b>[\" & Session(\"chatname\") & \"] </b> \" & PrivatMessage Application(\"privatmessage_\" & Session(\"chatname\") & \"_1\") = \"<b>[\" & Session(\"chatname\") & \"] </b> \" & PrivatMessage Response.Redirect \"chat.asp?mode=privatmessages\" End If End If End If
If Mode = \"bannerspace\" Then %><!-- #include file=\"bannerspace.html\" --><% End If
If Mode = \"usersonline_header\" Then %><!-- #include file=\"usersonline_header.html\" --><% End If
If Mode = \"usersonline\" Then %><!-- #include file=\"usersonline.html\" --><% End If
If Mode = \"functions_header\" Then %><!-- #include file=\"functions_header.html\" --><% End If
If Mode = \"functions\" Then %><!-- #include file=\"functions.html\" --><% End If
If Mode = \"publicmessages_header\" Then %><!-- #include file=\"publicmessages_header.html\" --><% End If
If Mode = \"publicmessages\" Then %><!-- #include file=\"publicmessages.html\" --><% End If
If Mode = \"privatmessages_header\" Then %><!-- #include file=\"privatmessages_header.html\" --><% End If
If Mode = \"privatmessages\" Then %><!-- #include file=\"privatmessages.html\" --><% End If
If Mode = \"messagepanel\" Then %><!-- #include file=\"messagepanel.html\" --><% End If
If Mode = \"error\" Then %><!-- #include file=\"error.html\" --><% End If %>
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.