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 运行时�
相关问答：
conn.asp
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&server.MapPath("Connt ......
我有一个asp源码，但是出现一个文件，我用asp解密都是乱码
请教
VBScript code:
??
% # , #&')*) -0-(0%()(?
(((((((((((((((((((((((((( ......
最近我通过学习，感觉自己学的还可以了，想做一网站，但是一直都找不到题材，不知道做什么，希望各位给我点意见，如果有需求文档就更好了！希望大家给我点意见，谢谢！
先做个企业网站吧，我感觉一个人做网站不适宜 ......
HTML code:
sql = "select top 1 * from cm_info where lm2='"&lm2&"' and (name='"&Request("name")&"' or haoma='"&Request("haoma")&a ......
