aspµ÷ÓÃDLL·µ»ØrsµÄÎÊÌâ

²ÉÓÃÈý²ã£¬ÎÒÖ»ÌùÏà¹Ø´úÂë
SqlHelper²¿·Ö
VBScript code:

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



Dal²¿·Ö
VBScript code:

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²¿·Ö
VBScript code:

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



ÒÔÉϲ¿·Ö±àÒë³ÉÁËDLLÎļþ

ASP²¿·Ö
VBScript code:

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 ÔËÐÐʱ´