asp生成静态页面代码有问题

大家帮我看看，在本地测试可以生成，上传到服务器上就是500错误了
<%
filename="../index.htm"
if request("body")<>"" then
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(""&filename&""))
fout.Write request("body")
fout.close
set fout=nothing
set fso=nothing
mskrindex="ok"
end if
%>





type=text/css rel=stylesheet>


<%if mskrindex="ok" then%>

・成功:生成网站首页完成,时间<%=Now()%> ・"><%=filename%>

<%else%>

生成网站首页:"><%=filename%>  模版文件:index_mb.asp

<br /><!--#include file="index_mb.asp"--><br />

<%end if%>


无法显示网页
您要访问的网页有问题，无法显示。

--------------------------------------------------------------------------------

请尝试以下操作:

打开 www.xp1100.com 主页，然后查找指向您感兴趣信息的链接。
单击刷新按钮，或以后再试。

单击搜索，寻找 Internet 上的信息。
也可查看相关站点列表。

HTTP 500 - 内部服务器错误
Internet Explorer

---

把报错的提示贴出来吧！

---

既然本地测试成功，那么你的代码没有问题，在服务器上却有问题，证明返洞服务器相关组件不支持，因为代码碧皮调用了文件操作组件，你查看一下你的服务器是不是禁用了Scripting.FileSystemObject相关的悔世差组件功能。

---

估计你服务器是IIS吧，应该是权限配置问题，从新配置下看看！ fso权限未开启

---