在VB按MVC的构架写组件供ASP调用
BLL层
VB code:
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)
这样就提对象不支持该属性或方法,问题指向Dal.InSertCls (Model)，在ASP中单独运行Dal.InSertCls没有问题
如果把以上BLL部分直接写在ASP中就正可正常执行，这是什么原恩
问题是Dal.InSertCls (Model)改成这样就Dal.InSertCls Model OK
看来（）能不用就不用。VB的语法确实不太规范，中午结贴。
如需要阅读该回复，请登录或注册CSDN!
<form id="form1" runat="server">
<div>
<script type="text/javascript">
function oo(a){
document.getEleme ......
<%if request.QueryString("start") <>"" then%>
<%if cint(start)>0 then%>
<a href="search.asp?q= <%=q%>&start= <%if request.Query ......
