Microsoft VBScript 运行时错误错误 '800a004c'

2009-07-23 10:57:11 839 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

在ASP 调用 VB.net 编写的dll 出错提示:Microsoft VBScript 运行时错误错误 '800a01ad' ActiveX 部件不能创建对象 WIN2008 SERVER或者WIN2012 SERVER，ASP 调用 VB.net 编写的dll 出错提示: Microsoft VBScript 运行时错误错误 '800a01ad' ActiveX 部件不能创建对象出错原因：网站对应的应用程序池中的“启用32位应用程序”设置为"True"导致错误应该将“启用32位应用程序”改为"False"，改为False 阅读详情

Microsoft VBScript 运行时错误错误 '800a004c'

路径未找到

/fun/fso.asp，行 123

'***********************************************
'函数名：MoveFileAs
'作用：把原始文件移动到指定文件包并重命名
'参数：FileUrl：原始文件路径/文件名，为网站下的相对路径
' FileUrlTo：目标文件路径/文件名，为网站下的相对路径
'返回值：MoveFileAs (0表示源文件不存在而移动失败，1表示移动成功)
'***********************************************
function MoveFileAs(FileUrl,FileUrlTo)
FiLePaTh = FileUrl

if instr(FileUrl,":/")=0 and instr(FileUrl,":\")=0 then FiLePaTh = Server.MapPath(trim(FileUrl))
FiLePaThTo =FileUrlTo
if instr(FileUrlTo,":/")=0 and instr(FileUrlTo,":\")=0 then FiLePaThTo = Server.MapPath(trim(FileUrlTo))

Set fso = CreateObject("Scripting.FileSystemObject")
MoveFileAs=0
If Fso.FileExists(FiLePaTh) = True Then
Set f2 = fso.GetFile(FiLePaTh)
f2.Move (FiLePaThTo) -----------------------------------------123 行
MoveFileAs=1
end if
set f2=nothing
set fso=nothing
End function
%>

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

代码是别人给的。应该是正确完整的。到我服务器上就不可以用。

我估计是缺少了什么插件。或者没有写入权限之类的。

那位大哥，可以给与解答啊。

谢谢了

...全文