关于使用fso组件生成html的例子

很久没有做asp了。近来有朋友又问到了这个。其实网上例子很多。或许因为懒的去internet找，所以给他写了一个。顺便也贴上来。例子如http://www.photk.com

<%Function writehtml(mulu,mului,messag)  pageh=mulu  i=mului  msga=messag Set fs=Server.CreateObject("Scripting.FileSystemObject")  all_tree2=server.mappath("stocklist")&"/"&pageh  if (fs.FolderExists(all_tree2)) then'判断今天的文件夹是否存在  else    response.write all_tree2    fs.CreateFolder(all_tree2)  end if      files=pageh&i&".html"  filez=all_tree2&"/"&files     set ts = fs.createtextfile(filez,true)    ts.write(msga)  '就是这么简单。  ts.close  set ts=nothing      if err.number<>0 or err then    writehtml=0   else writehtml=1 end if

 set fs=nothingEnd Function %>

我的例子都是给初学者看的。老鸟就不用看了。呵呵。