很久没有做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=nothing
End Function %>
我的例子都是给初学者看的。老鸟就不用看了。呵呵。