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

站长资源 2024/11/20 佚名

11 1538 11

相思资源网 Design By www.200059.com

textarea的value是html文件源代码,如何把源代码存成html文件??
  如
  <html>
  <head>
  <meta   http-equiv="Content-Type"   content="text/html;   charset=gb2312">
  <title>hmtl页面</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">
  <title>hmtl页面</title>
  </head>
  <body>
      alert(ok);
  </body>
  </html>
  </textarea><br>
  <input   type=button   value=save   onclick="Save()">
  <SCRIPT   LANGUAGE="JavaScript">
  
  </SCRIPT>

标签：