Private Dal As New moonPotato_DAL Public Sub inSertUser(Model As moonPotato_Model) Dal.InSertCls (Model) End Sub
ASP中调用 VB code:
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中就正可正常执行，这是什么原恩
呵呵。问题已经解决了。 Dal.InSertCls (Model) 改成 Dal.InSertCls Model
