home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1999 April / CD_Shareware_Magazine_31.iso / WIN95 / INTERNET / h12395co.exe / data.1 / javasc.hei < prev    next >
Encoding:
Text File  |  1997-11-13  |  1.0 KB  |  46 lines
  1. <
  2. defenv js><SCRIPT LANGUAGE="JAVASCRIPT">
  3. <!--
  4. <defbody>
  5. //-->
  6. </SCRIPT></defenv;
  7.  
  8. // defenv js><pre><defbody></pre></defenv
  9.  
  10.  
  11. defenv jsOpenWin name="Win1" width=200 height=100;
  12.    assign s; defbody; /assign;
  13.    s=substall(substall(s,"\n","\\n"),"\"","\\");
  14.  
  15.    js> <?name>=open("",<? name "P">,"<?width"n"> <?height"n">");
  16.    <?name>.document.write("<? s html>");
  17.    <?name>.document.close();
  18.    </js
  19. /defenv
  20.  
  21.  
  22. defenv jsWrite stmt="document.writeln";
  23.    assign s; defbody; /assign;
  24.    s=substall(substall(s,"\n","\\n"),"\"","\\");
  25.    s=substall(substall(s,"<jse>","\"+"),"</jse>"","+\"");
  26. ><? stmt>("<? s html>");
  27. <
  28. /defenv
  29.  
  30.  
  31. gl.mainpagelen=0;
  32.  
  33. defenv jsText;
  34.    gl.mainpagelen=gl.mainpagelen+1;
  35.    name="mainpage["+gl.mainpagelen+"]";
  36.    assign s; defbody; /assign;
  37.    s=substall(substall(s,"\n","\\n"),"\"","\\\"");
  38.    js>    mainpage.length=<?gl.mainpagelen>;
  39.    <? name>="<? s html>"; document.write(<? name>);
  40.    </js
  41. /defenv>
  42.  
  43. // <js> win=open("","Win1","width=100,height=100");
  44. //      win.document.write("<h2>Hello World</h2>"); </js>
  45.  
  46.