大家帮我看看，在本地测试可以生成，上传到服务器上就是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
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>生成网站首页文件</title>
<LINK href="images/style.css"
type=text/css rel=stylesheet>
</head>
<body topmargin="1" leftmargin="1">
<%if mskrindex="ok" then%>
<table width="98%" border="0" align="center" cellpadding="8" cellspacing="1" bgcolor="#7EA9DE">
<tr>
<td width="100%" bgcolor="#FFFFFF"><font color="#FF0000">·成功:生成网站首页完成,时间<%=Now()%></font><br><br><font color="#FF0000">·</font><a target="_blank" href="<%=filename%>"><%=filename%></a></td>
</tr>
</table>
<%else%>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#7EA9DE" style="border-collapse: collapse">
<form name="frmAnnounce" method="post" action="">
<tr>
<td width="100%" height="30" bgcolor="BDDFFE">
生成网站首页:<a target="_blank" href="<%=filename%>"><%=filename%></a> 模版文件:<a target="_blank" href="index_mb.asp">index_mb.asp</a>
<input name="change" class=Submit value="生成首页(HTML页)" type='submit'>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="center">
<textarea style="width:100%; height:400;" rows="0" name="body" cols="0">
<!--#include file="index_mb.asp"-->
</textarea><br /><br />
<input name="change" class=Submit value="生成首页(HTML页)" type='submit'></div>
</td>
</tr>
</form>
</table>
<%end if%>
</body>
</html>
无法显示网页
您要访问的网页有问题，无法显示。
--------------------------------------------------------------------------------
请尝试以下操作:
打开
www.xp1100.com 主页，然后查找指向您感兴趣信息的链接。
单击刷新按钮，或以后再试。
单击搜索，寻找 Internet 上的信息。
也可查看相关站点列表。
HTTP 500 - 内部服务器错误
Internet Explorer
把报错的提示贴出来吧！
既然本地测试成功，那么你的代码没有问题，在服务器上却有问题，证明返洞服务器相关组件不支持，因为代码碧皮调用了文件操作组件，你查看一下你的服务器是不是禁用了Scripting.FileSystemObject相关的悔世差组件功能。
估计你服务器是IIS吧，应该是权限配置问题，从新配置下看看！ fso权限未开启