VBScript Sample: vbscript/general/fileio/openfile.asp
   ASP Script
   Comments or Client-side Script
   HTML and Text

<html>
<head>
<title>Open File Example</title>
</head>
<body>
<%
   dim fs
   dim fi
   dim dir1
   dim filename1
   dim content
   content="content is here !"
   set fs =server.CreateObject("Scripting.FileSystemObject")
 
   tempvar = cstr(fs.GetFile(server.mappath("default.html")).parentfolder )
   if instr("/",tempvar)<>0 then
      dir1 =tempvar +"/"
   else
      dir1 =tempvar +"\"
   end if
   filename1="test.txt"
   if not isempty(request.form("dir")) then
      dir1 =request.form("dir")
   end if

   if not isempty(request.form("filename")) then
      filename1 =request.form("filename")
      set fi =fs.OpenTextFile(trim(dir1) & trim(filename1))
      content =fi.readall
   end if
%>



<form name="Form1" Method="Post" Action="openfile.asp">
           <p>Directory : <input type="text" name="dir" size="30" value="<%  = chr(34) &dir1 &chr(34) %>">
           <p>File Name : <input type="text" name="filename" size="30" value="<%=filename1 %>">
          
           <p><textarea rows="10" name="Con" cols="30"><%=content %>
</textarea>
           <p><input type="button" name="ok" value="Read File" onClick="Ok_OnClick(this.form)">
</form>
<hr>
<a href="default.html">Go Back </a>
<SCRIPT  Language="JavaScript">
function Ok_OnClick(form){
     
      form.submit();
}
</SCRIPT>

</body>
</html>


Copyright © 1998-2002, Halcyon Software Inc. All rights reserved.