| ASP Script | |
| Comments or Client-side Script | |
| HTML and Text |
<%@ Language=VBScript %>
<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="Please enter content."
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"
'response.write(dir1)
if not isempty(request.form("dir")) then
dir1 =request.form("dir")
' response.write dir1
end if
if not isempty(request.form("con")) then
content =request.form("con")
end if
if not isempty(request.form("filename")) then
response.write "first enter"
filename1 =request.form("filename")
'response.write trim(dir1) & trim(filename1)
set fi =fs.CreateTextFile(trim(dir1) &
trim(filename1),true)
fi.write(content)
fi.close
end if
%>
<form name="Form1" Method="Post" Action="createfile.asp">
<p>Directory
: <input type="text" name="dir" size="30" value="<%
= chr (34) & dir1 & chr(34) %>">
</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>