The value of textarea is the source code of an html file. How can we save the source code as an html file ??
For example
<Html>
<Head>
<Meta http-equiv = "Content-Type" content = "text/html; charset = gb2312">
<Title> hmtl page </title>
</Head>
<Body>
Alert (OK );
</Body>
</Html>
1st Floor
Dim fileNameStr
FileNameStr = Trim (Request. Form ("fileName "))
Dim fileContentStr
FileContentStr = Trim (Request. Form ("fileContent "))
Set fs = CreateObject ("Scripting. FileSystemObject ")
Dim filePath
FilePath = Server. MapPath ("PageURL/" & fileNameStr)
Set a = fs. CreateTextFile (filePath, True)
A. WriteLine (fileContentStr)
A. Close
2nd floor
The method for saving on the client is as follows:
<Textarea id = mm style = "width: 500" rows = 8>
<Html>
<Head>
<Meta http-equiv = "Content-Type" content = "text/html; charset = gb2312">
<Title> hmtl page </title>
</Head>
<Body>
Alert (OK );
</Body>
</Html>
</Textarea> <br>
<Input type = button value = save onclick = "Save ()">
<Script language = "JavaScript">
<! --
Function Save ()
{
Var txt = document. all. mm;
Var ww = window. open ("", "_ blank", "width = 100px, height = 100px ");
Ww.doc ument. write (txt. value );
Ww.doc ument. close ();
Ww.document.exe cCommand ('saveas ');
// Ww.document.exe cCommand ('saveas', false, 'c: \ test.htm ');
Ww. close ();
}
// -->
</SCRIPT>