home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_07.cab / FileSystem_JScript.asp < prev    next >
Text File  |  1997-10-25  |  1KB  |  56 lines
  1. <% @Language=JScript     %>
  2.  
  3. <%
  4.     // Define Constants
  5.  
  6.     ForReading   = 1;
  7.     ForWriting   = 2;
  8.     ForAppending = 8;
  9. %>
  10.  
  11. <HTML>
  12.     <HEAD>
  13.         <TITLE>FileSystem Component</TITLE>
  14.     </HEAD>
  15.  
  16.     <BODY bgcolor="white" topmargin="10" leftmargin="10">
  17.         
  18.         
  19.         <!-- Display Header -->
  20.  
  21.         <font size="4" face="Arial, Helvetica">
  22.         <b>FileSystem Component</b></font><br>   
  23.  
  24.         <hr size="1" color="#000000">
  25.  
  26.  
  27.         <%
  28.             // Map current path to physical path
  29.             curDir = Server.MapPath("\\iissamples\\sdk\\asp\\components\\");
  30.  
  31.  
  32.             // Create FileSytemObject Component
  33.             ScriptObject = Server.CreateObject("Scripting.FileSystemObject");
  34.  
  35.  
  36.             // Create and Write to a File
  37.             MyFile = ScriptObject.CreateTextFile(curDir + "\\" + "MyTextFile.txt", ForWriting);
  38.             
  39.             for (x = 1; x < 5; x++)
  40.             {
  41.                 MyFile.WriteLine("Line number " + x + " was written to MyTextFile.txt <br>");
  42.             }
  43.                         
  44.             MyFile.Close();
  45.         %>
  46.         
  47.         <%
  48.             // Read From File and Output to Screen
  49.             MyFile = ScriptObject.OpenTextFile(curDir + "\\" + "MyTextFile.txt", ForReading);
  50.             Response.Write(MyFile.ReadAll());
  51.             
  52.             MyFile.Close();
  53.         %>
  54.  
  55.     </BODY>
  56. </HTML>