asp调用DLL返回rs的问题

[月光下的土豆]

采用三层，我只贴相关代码
SqlHelper部分

Public Function getObjRs(Sql)
    Set objRs = New ADODB.Recordset
    objRs.Open Sql, objConn, 1, 1
    Set getObjRs = obj
End Function

Dal部分

Public Function getItem(Model As moonPotato_Model)
    Sql = "Select * from Mpt_CostItem where CostItem_ParentID = " & Model.CostItem_ParentID & " order by CostItem_Order desc"
    Set getItem = SqlHelper.getObjRs(Sql)
End Function

BLL部分

Public Function getItem(Model As moonPotato_Model)
   Set getItem = Dal.getItem(Model)
End Function

以上部分编译成了DLL文件

ASP部分

	Set BLL = Server.CreateObject("OfficeNet.moonPotato_DAL")
	Set Model = Server.CreateObject("OfficeNet.moonPotato_Model")
	Model.CostItem_ParentID = 5
	Set rs =  BLL.getItem(Model)

错误提示
Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: 'BLL.getItem'
在asp中单独调用getObjRs 可以正常使用

[月光下的土豆]

谢谢啊,刚睡醒，感觉代码没有问题的。一会在仔细看看

[月光下的土豆]

不用实体传参就行可以了

[月光下的土豆]

怎么没有关注啊。顶一下

[黑心]

顶顶。接分。

[cngothic]

。。。。。。。。。。。。。ASP还分3层？有ASP有多层架构这种说法 ？汗。。。。
就是些子程序调用吗。。。

[mlasss1314]

....

[床上等您]

关注中。。

[Dogfish]

Public Function getObjRs(Sql)
    Set objRs = New ADODB.Recordset
    objRs.Open Sql, objConn, 1, 1
    '这里是否错了。好像应该是Set getObjRs = objRs
    Set getObjRs = obj
End Function

[月光下的土豆]

[Quote=引用 3 楼 cngothic 的回复:]
。。。。。。。。。。。。。ASP还分3层？有ASP有多层架构这种说法 ？汗。。。。
就是些子程序调用吗。。。
[/Quote]

程序就是思想。想到就能做到.
因为你不了解所以才会。。。。。

[月光下的土豆]

[Quote=引用 6 楼 dogfish 的回复:]
VBScript codePublicFunction getObjRs(Sql)Set objRs=New ADODB.Recordset
objRs.Open Sql, objConn,1,1'这里是否错了。好像应该是Set getObjRs = objRsSet getObjRs= objEnd Function
[/Quote]

谢谢。这里是个错误。发贴前我改了一下，是个手误。

[Dogfish]

Public Function getObjRs(Sql) as recordset

[月光下的土豆]

[Quote=引用 9 楼 dogfish 的回复:]
Public Function getObjRs(Sql) as recordset
[/Quote]
还是一样的提示

[Dogfish]

觉得是你的传入参数问题。就是调用BLL.getItem的时候