[技术散分]ASP调用VB编写的组件
在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!
相关问答：
当结束时间大于开始时间则显示未完成
当结束时间小于开始时间则显示未达到任务
没有时间则显示正在进行中
asp代码应该怎么写
如:开始时间 结束时间 & ......
我用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 c ......
Function listPages(LinkFile)
if not (rs.eof and rs.bof) then
gopage=currentpage
totalpage=n
blockPage=Int((gopage-1)/10)*10+1
If LCase(Request.ServerVariables("HT ......
function mistake(preString)
Dim texts
Dim seed
Dim i,length
prestring = trim(preString)
......
