<%@ 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
content="Please enter content."
var fs
var tempvar
fs =Server.CreateObject("Scripting.FileSystemObject")
tempvar =new String (fs.GetFile(Server.MapPath("default.html")).ParentFolder
)
if (tempvar.indexOf("/") !=-1)
dir1 =tempvar.concat ("/")
else
dir1 =tempvar.concat("\\")
filename1="test.txt"
if(Request.Form("dir").Count!=0)
dir1=Request.Form("dir")
if(Request.Form("con").Count!=0)
content=Request.Form("con")
if(Request.form("filename").Count!=0)
{
filename1=Request.Form("filename")
var fi=fs.CreateTextFile(dir1 + filename1,true)
fi.Write(content)
fi.Close()
}
%>
<form name="Form1" Method="Post" Action="createfile.asp">
<p>Directory
: <input type="text" name="dir" size="30" value="<%
=dir1 %>">
</p>
<p>File
Name :<input type="text" name="filename" size="30" value="<%=filename1
%>">
</p>
<p><textarea
rows="10" name="Con" cols="30"><%=content %></textarea>
</p>
<p>
<input
type="button" name="ok" value="Write File" onClick="Ok_OnClick(this.form)">
</p>
</form>
<hr>
<a href="default.html">Go Back </a>
<SCRIPT Language="JavaScript">
function Ok_OnClick(form){
form.submit();
}
</SCRIPT>
</body>
</html>
|