Question

为什么这个程序在我的服务器上不能运行

<%
'使用XMLHTTP生成
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "http://www.*****.net/main/index.asp", False
xml.Send
BodyText=xml.ResponseBody
BodyText=BytesToBstr(BodyText,"gb2312")
Set xml = Nothing
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.CreateTextFile(server.MapPath("../main/index.html"), True) '生成的html的文件名
MyFile.WriteLine(BodyText)
MyFile.Close

'使用Adodb.Stream处理二进制数据
Function BytesToBstr(strBody,CodeBase)
dim objStream
set objStream = Server.CreateObject("Adodb.Stream")
objStream.Type = 1
objStream.Mode =3
objStream.Open
objStream.Write strBody
objStream.Position = 0
objStream.Type = 2
objStream.Charset = CodeBase
BytesToBstr = objStream.ReadText
objStream.Close
set objStream = nothing
End Function
response.Write("<script>alert('静态首页生成成功！'); history.back();</script>")
%>

这是我网站的静态首页生成程序，访问时即可生成静态首页。在本地会被卡巴斯基视为木马程序，我把网站放到租用的空间上没有问题，但我把网站放到自己公司的服务器上却无法运行生成静态首页，所以在此想请教一下这是什么原因，会不会是我服务器那里有设置，应该如何更改？
谢谢！
网站目录文件夹有读取和写入的权限，访问用户隶属于guests

Answer 1

权限问题，你生成html的时候所在文件夹的权限要设置可写才行，如果你没设置的话，默认是只读