我用VB按MVC的构架写组件供ASP调用
BLL层Private Dal As New moonPotato_DAL
Public Sub inSertUser(Model As moonPotato_Model)
Dal.InSertCls (Model)
End SubASP中调用Set BLL = server.CreatoObject("tttt.moonPotato_BLL")
Set Model= server.CreatoObject("tttt.moonPotato_Model")
Model.userName="123"
Model.userLevel="456"
BLL.inSertUser(Model)这样就提对象不支持该属性或方法
如果BLL在VB中写,直接写在ASP中就正可正常执行,这是什么原恩
BLL层Private Dal As New moonPotato_DAL
Public Sub inSertUser(Model As moonPotato_Model)
Dal.InSertCls (Model)
End SubASP中调用Set BLL = server.CreatoObject("tttt.moonPotato_BLL")
Set Model= server.CreatoObject("tttt.moonPotato_Model")
Model.userName="123"
Model.userLevel="456"
BLL.inSertUser(Model)这样就提对象不支持该属性或方法
如果BLL在VB中写,直接写在ASP中就正可正常执行,这是什么原恩
另外不知道你在VB里是否将类或对象的属性设置正确了
如果是类,请将instancing属性设置为5.
Dal.InSertCls (Model)
改成
Dal.InSertCls Model