Microsoft VBScript 运行时错误“800a01a8”：需要对象

【问题标题】：Microsoft VBScript runtime error '800a01a8' : object requiredMicrosoft VBScript 运行时错误“800a01a8”：需要对象
【发布时间】：2019-08-22 04:39:24
【问题描述】：

您好，我有一个 ASP 页面，它使用 2 个参数调用函数

当我从 asp 页面调用函数时，我得到了这个错误

Microsoft VBScript 运行时错误“800a01a8” 所需对象：'AllPerInfo4xfm(...)'

我的代码是

set GetAllInv = new GetFunction
set MyOrsk = GetAllInv.AllPerInfo4xfm(ssgr,nat)

我的功能是

Public Function AllPerInfo4xfm(ssgr,nat) 
   dim sdir,sdir2,ssec,tlen,ssec2
   tlen=len(ssgr)      
   sql ="Select * from Personal"
   myors2.Open SQl,oConn,1,1
   set Allperinfo4xf = myors2
end function

我是不是错过了什么请指教

【问题讨论】：

标签： vbscript asp-classic

【解决方案1】：

假设AllPerInfo4xfm() 确实不返回一个对象，在

中松开Set

set MyOrsk = GetAllInv.AllPerInfo4xfm(ssgr,nat)

MyOrsk = GetAllInv.AllPerInfo4xfm(ssgr,nat)

更新评论：

如果AllPerInfo4xfm() 应该返回一个记录集，请确保该函数包含一行

Set AllPerInfo4xfm = objRecordset

（将 objRecordset 替换为您的变量名；现在，当然需要分配给 MyOrsk 的 Set）

更新 OT 的修订：

鉴于修改后的代码，GetAllInv 和 myors2 都应检查。行执行时它们是有效对象吗？

参见。 food for thought

【讨论】：

我收到另一个错误 Microsoft VBScript runtime error '800a01a8' Object required: '' cuz the function should return a record set