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

Question

嗨，我有一个 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

我错过了什么吗请指教

Answer 1

假设 AllPerInfo4xfm() 不返回对象，请松散Set

set MyOrsk = GetAllInv.AllPerInfo4xfm(ssgr,nat)

=>

MyOrsk = GetAllInv.AllPerInfo4xfm(ssgr,nat)

更新评论：

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

Set AllPerInfo4xfm = objRecordset 

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

更新 wrt OT 的修订版：

鉴于修订后的守则，应检查GetAllInv和myors2。执行行时它们是有效的对象吗？

参考 深思