textarea的value是html文件源代码,如何存成html文件??

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

解决方案 »

  1.   

    在客户端实现保存的方法:
    <textarea id=mm style="width: 500" rows=8>
    <html>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <title>hmtl页面</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.document.write(txt.value);
      ww.document.close();
      ww.document.execCommand('SaveAs');
      //ww.document.execCommand('Saveas',false,'c:\\test.htm');
      ww.close();
    }
    //-->
    </SCRIPT>