ASP Source Code

ASP File: jscript/general/fileio/openfile.asp

 
   ASP Script
   Comments
   HTML and Text

<%@language=jscript%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Developer Studio">

<title>Document Title</title>
</head>
<body>
<%
var fs
var fi
var dir1
var filename1
var content
var tempvar
  content="content is here !"
  fs =Server.CreateObject("Scripting.FileSystemObject")


tempdir= new String (fs.GetFile(Server.MapPath("default.html")).ParentFolder )
   if ( tempdir.indexOf("/")!=-1)
  dir1=tempdir.concat("/")
  else
dir1 =tempdir.concat("\\")



  filename1="test.txt"
if (Request.Form("dir").Count!=0){
          dir1 =Request.Form("dir")
  }

  if (Request.Form("filename").Count!=0)
  {
       filename1 =Request.Form("filename")
       fi =fs.OpenTextFile(dir1 + filename1)
      content =fi.ReadAll()
  }
  
%>



<form name="Form1" Method="Post" Action="openfile.asp">
           <p>Directory : <input type="text" name="dir" size="30" value="<%  = dir1 %>">
           <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>