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

缺少对象: 'xcryptDll'

F:\网站模板\WWW\ADMIN\../include/inc_connxml.asp，行 63
''对象初始化
    private sub class_initialize()
        on error resume next
        set xmldom=Server.CreateObject(MsxmlVersion)
        if int(err.number)> 0 then
            response.write err.description
            err.clear
            response.end
        end if
        set xcryptDll=Server.CreateObject("Cuttle.CCrypt")
        if int(err.number)> 0 then
            response.write err.description
            err.clear
            response.end
        end if
    end sub


''开始加载XML文件
    public sub load_xmltxt(filepath)
        if isnull(xmldom)=false then    ''新增的判断
            dim isok_loadxml,xmldoc_txt
''            xmldoc_txt=get_file(filepath)    ''适用于XML文件为gb2312格式的读取
            xmldoc_txt=get_formatfile(filepath,-1)    ''重新编码xml文件内容（Unicode）
''            xmldoc_txt=stream_getfile(filepath,1)    ''适用于XML文件为gb2312格式的读取
            xmldoc_txt=xcryptDll.Decrypt(xmldoc_txt) 63行
            
            xmldom.async=false    ''必需属性定义
            isok_loadxml=xmldom.loadXML(xmldoc_txt)
            if isok_loadxml=false then
                Response.Write "初始化的XML数据不存在！"
                Response.End
                exit sub
            end if
            xmldom.PreserveWhitespace=false
            set xml_root=xmldom.documentElement
        end if
    end sub


   

xcryptDll这个变量你可能没有声明，如果这个是ActiveX的组件，可能没有安装这个组件

那怎么安装呢？

学习

regsvr32 组件路径
这个是需要在服务器端的操作系统上运行的命令
比如
regsvr32 c:\abc.dll