<%@language=jscript%>
<html>
<head>
<title>Open File Example</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>
</body>
</html>
|