<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>
</body>
</html>
|