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

2024-09-06 12:42:35

字体：大中小

来源：转载

供稿：网友

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">
  <!--
  function   Save()
  {
      var   txt   =   document.all.mm;
      var   ww     =   window.open("",   "_blank",   "width=100px,   height=100px");

上一篇：javascript下用键盘控制层的移动的代码

下一篇：运用Windows XP附带的Msicuu.exe、Msizap.exe来彻底卸载顽固程序