<%
strHead=strHead& "A<br>"
str0=str0& "你好!<br>"
ref=ref& "我们!<br>"
for j=1 to 2
Dim fso,f
Dim strTitle,strContent,strOut
'创建文件系统对象
Set fso=Server.createObject("Scripting.FileSystemObject")
Set f=fso.createTextFile(Server.MapPath("list_"&j&".html"),true)
'写入网页内容
f.WriteLine strHead&str0&ref
f.close
response.write "正在生成第"&j&"个页面!<br>"
next
%>
原文标题:简单的FSO生成html文件--QQ技术交流群:90991311
原文网址:http://www.jixinfz.cn/asp/6.asp?id=142