The value of textarea is the source code of the html file. How to save the source code into an html file??
like
<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(("fileName"))
dim fileContentStr
fileContentStr = Trim(("fileContent"))
Set fs = CreateObject("")
dim filePath
filePath = ("PageURL/" & fileNameStr)
Set a = (filePath, True)
(fileContentStr)
2nd floor
Implementing the method of saving on the client:
<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 = ;
var ww = ("", "_blank", "width=100px, height=100px");
();
();
('SaveAs');
//('Saveas',false,'c:\\');
();
}
//-->
</SCRIPT>
like
<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(("fileName"))
dim fileContentStr
fileContentStr = Trim(("fileContent"))
Set fs = CreateObject("")
dim filePath
filePath = ("PageURL/" & fileNameStr)
Set a = (filePath, True)
(fileContentStr)
2nd floor
Implementing the method of saving on the client:
<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 = ;
var ww = ("", "_blank", "width=100px, height=100px");
();
();
('SaveAs');
//('Saveas',false,'c:\\');
();
}
//-->
</SCRIPT>