是这样的，我在晚上下载了一个文章管理程序，本地测试一切正常，但上传到服务器后，显示“Microsoft VBScript 运行时错误 错误 '800a0046' 没有权限”这样的提示，不知是何原因，请大侠赐教，谢谢！

具体是这样一个网页

http://jwc.huazi.org.cn/

首页正常，单击所有连接都有这样的错误提示“Microsoft VBScript 运行时错误 错误 '800a0046' 没有权

我的QQ：4884822

[此贴子已经被作者于2005-12-5 12:56:39编辑过]

/Include/Function.asp，行 1222

这个附近的代码

'移动文件
Public Function MoveFileTo(SourceF,DestinationF)
dim fso,f
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Server.MapPath(SourceF)) Then
就是这一行 fso.MoveFile Server.MapPath(SourceF),Server.MapPath(DestinationF)
MoveFileTo = True
Else
MoveFileTo=False
End if
Set fso = nothing
End Function

Public Sub ShowFlush(StrShow)
Dim TableBeg,TableEnd
TableBeg="<table width=""98%"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""0"" class=""tableBorder""><tr class=""tdbg""><td>"
TableEnd="</td></tr></table>"
Response.Write TableBeg
Response.Write StrShow
Response.Write TableEnd
Response.Flush
End Sub

[/CODE]

麻烦版主给瞧一瞧，谢谢！

明白了

你的服务器支持FSO吗?

支持的啊

http://jwc.huazi.org.cn/aspcheck.asp