Question

浏览ASP时遇到以下错误： Microsoft VBScript 运行时错误 错误 '800a01ad' ActiveX 部件不能创建对象

windows2003中安装好了IIS,浏览ASP时遇到以下错误：
Microsoft VBScript 运行时错误 错误 '800a01ad' ActiveX 部件不能创建对象
/...../commonuser.asp，行 14
commonuser.asp内容如下：
<%
function Createtpi40conn()
dim f_conn1,f_conn
dim f_Returnvalue
dim f_UserName
dim f_PassWord
dim f_HostIP

f_UserName="sa"
f_PassWord=""
f_HostIP="127.0.0.1"

if Isobject(session("tpi40_connection"))=false then
set f_conn=server.CreateObject("tpiado.connection")

set session("tpi40_Connection") = f_conn
' set session("Connection") = f_conn
f_Returnvalue=f_conn.Open(f_HostIP,f_UserName,f_PassWord)
if f_Returnvalue < 0 then
call CommonError(f_Returnvalue)
end if
end if
end function

function Closetpi40conn()
dim f_conn1
dim f_returnvalue

if Isobject(session("tpi40_connection"))=true then
set f_conn1=session("tpi40_connection")
f_returnvalue=f_conn1.close()
' Response.Write returnvalue
set f_conn1=nothing
session("tpi40_connection")=""
end if
end function

请高手帮忙！！！！谢谢！！！！！
问题解决方法：开始-运行-cmd,然后输入 cscript C:\inetpub\adminscripts\adsutil.vbs SET W3SVC/AppPools/Enable32bitAppOnWin64 true ,回车运行就可解决问题

Answer 1

开始 > 运行
分别输入命令：重新注册FSO文件管理/重新注册ADODB.Stream组件
regsvr32 scrrun.dll
regsvr32 "C:\Program Files\Common Files\System\ado\msado15.dll"

上面的代码是你自己写的嘛?
你试试。
1 检查是否安装了 MDAC 2.x
2 试试看命令行注册 RegSvr32 c:\program files\common files\System\MSADO15.dll
3 检查用户IUSR_<Server> AND IWAM_<Server>的权限，确保以下目录有有读/执行权限：
\program files\common files\System
\Windows (或 Winnt)
\InetPub\WWWRoot
4 检查默认Web站点是否配置了有效的IP地址。
更改后重启WEB服务器

Answer 2

echo 正在修复，这个过程可能需要几分钟，请稍候……
rundll32.exe advpack.dll /DelNodeRunDLL32 %systemroot%\System32\dacui.dll
rundll32.exe advpack.dll /DelNodeRunDLL32 %systemroot%\Catroot\icatalog.mdb
regsvr32 /s comcat.dll
regsvr32 /s asctrls.ocx
regsvr32 /s oleaut32.dll
regsvr32 /s shdocvw.dll /I
regsvr32 /s shdocvw.dll
regsvr32 /s browseui.dll
regsvr32 /s browseui.dll /I
regsvr32 /s msrating.dll
regsvr32 /s mlang.dll
regsvr32 /s hlink.dll
regsvr32 /s mshtml.dll
regsvr32 /s mshtmled.dll
regsvr32 /s urlmon.dll
regsvr32 /s plugin.ocx
regsvr32 /s sendmail.dll
regsvr32 /s mshtml.dll /i
regsvr32 /s scrobj.dll
regsvr32 /s corpol.dll
regsvr32 /s jscript.dll
regsvr32 /s msxml.dll
regsvr32 /s imgutil.dll
regsvr32 /s cryptext.dll
regsvr32 /s inseng.dll
regsvr32 /s iesetup.dll /i
regsvr32 /s cryptdlg.dll
regsvr32 /s actxprxy.dll
regsvr32 /s dispex.dll
regsvr32 /s occache.dll
regsvr32 /s iepeers.dll
regsvr32 /s urlmon.dll /i
regsvr32 /s cdfview.dll
regsvr32 /s webcheck.dll
regsvr32 /s mobsync.dll
regsvr32 /s pngfilt.dll
regsvr32 /s licmgr10.dll
regsvr32 /s hhctrl.ocx
regsvr32 /s inetcfg.dll
regsvr32 /s trialoc.dll
regsvr32 /s tdc.ocx
regsvr32 /s MSR2C.DLL
regsvr32 /s msident.dll
regsvr32 /s msieftp.dll
regsvr32 /s xmsconf.ocx
regsvr32 /s ils.dll
regsvr32 /s msoeacct.dll
regsvr32 /s wab32.dll
regsvr32 /s wabimp.dll
regsvr32 /s wabfind.dll
regsvr32 /s oemiglib.dll
regsvr32 /s directdb.dll
regsvr32 /s inetcomm.dll
regsvr32 /s msoe.dll
regsvr32 /s oeimport.dll
regsvr32 /s msdxm.ocx
regsvr32 /s dxmasf.dll
regsvr32 /s laprxy.dll
regsvr32 /s l3codecx.ax
regsvr32 /s acelpdec.ax
regsvr32 /s mpg4ds32.ax
regsvr32 /s danim.dll
regsvr32 /s Daxctle.ocx
regsvr32 /s lmrt.dll
regsvr32 /s datime.dll
regsvr32 /s dxtrans.dll
regsvr32 /s dxtmsft.dll
regsvr32 /s wshom.ocx
regsvr32 /s wshext.dll
regsvr32 /s vbscript.dll
regsvr32 /s scrrun.dll mstinit.exe /setup
regsvr32 /s msnsspc.dll /SspcCreateSspiReg
regsvr32 /s msapsspc.dll /SspcCreateSspiReg
echo.
echo.
echo 修复成功！任意键退出！
pause>nul
把以上代码由TXT格式转换为BAT格式，打开BAT格式的就运行成功了（把TXT格式的另存为例如：123.bat 这样的）

Answer 3

set f_conn=server.CreateObject("tpiado.connection")
改成
set f_conn=server.CreateObject("Adodb.connection")

Answer 4

查下服务器是否开启fso权限

Answer 5

应该是权限问题吧