textarea的value是html文件源代码,存成html文件的代码_表单特效

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

   
     
     
     
     
      alert(ok);   
     
     

1楼
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 
2楼
在客户端实现保存的方法:   
      <br>      <br>      <br>  <meta>    <br>  <title>hmtl页面</title>    <br>      <br>      <br>      alert(ok);    <br>      <br>      <br>  
   
     
  <script> <BR> <!-- <BR> function Save() <BR> { <BR> var txt = document.all.mm; <BR> var ww = window.open("", "_blank", "width=100px, height=100px"); <BR> ww.document.write(txt.value); <BR> ww.document.close(); <BR> ww.document.execCommand('SaveAs'); <BR> //ww.document.execCommand('Saveas',false,'c:\\test.htm'); <BR> ww.close(); <BR> } <BR> //--> <BR> </script>