ASP Source Code

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

 
   ASP Script
   Comments
   HTML and Text

<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Developer Studio">

<title>Document Title</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 fs =server.CreateObject("Scripting.FileSystemObject")

      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>