textarea的value是html文件源代码,如何把源代码存成html文件??   
  如   
  html   
  head   
  meta   http-equiv="Content-Type"   content="text/html;   charset=gb2312"   
  titlehmtl页面/title   
  /head   
  body   
      alert(ok);   
  /body   
  /html   

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楼
在客户端实现保存的方法:   
  textarea   id=mm   style="width:   500"   rows=8   
  html   
  head   
  meta   http-equiv="Content-Type"   content="text/html;   charset=gb2312"   
  titlehmtl页面/title   
  /head   
  body   
      alert(ok);   
  /body   
  /html   
  /textareabr   
  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