正在阅读：实例演示:使用ASP生成HTML文件实例演示:使用ASP生成HTML文件

  file1=pass
  files=file1&".txt"
  filez=all_tree2&"\"&files

  set ts = fs.createtextfile(filez,true) '写文件
  for z=1 to len(msg)
   write_now=mid(msg,z,1)
   ts.write(write_now)
  next
 ' ts.writeline(all_msg)
  ts.close
  set ts=nothing    '文件生成

  if err.number<>0 or err then%>
   <script language="javascript">
   alert("不能完成")
   </script>
  <%else%>
   <script language="javascript">
  alert("已完成")
  history.back();
   </script>
  <%end if
  Set MyFile = fs.GetFile(filez)
  all_tree2=server.mappath("news")&"\"&chan_data(now)
  if (fs.FolderExists(all_tree2)) then
  else
  fs.CreateFolder(all_tree2)
  end if