易截截图软件、单文件、免安装、纯绿色、仅160KB

[技术散分]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!




相关问答:

为什么C写DLL文件C、PB能调用VB不能调用

为什么C写的DLL文件C、PB能调用VB不能调用?
VB里为什么有的DLL直接通过引用可以使用?有的需要通过declare申明外部函数?这些DLL有什么差别?

1、为什么PB能通过DECLARE声明而VB不行?
2、如果这个dll中的 ......

用ASP怎么写以下代码

当结束时间大于开始时间则显示未完成
当结束时间小于开始时间则显示未达到任务
没有时间则显示正在进行中
asp代码应该怎么写


如:开始时间      结束时间      & ......

asp文件解密

我有一个asp源码,但是出现一个文件,我用asp解密都是乱码
请教

VBScript code:
??

 %# , #&')*)-0-(0%()(?

(((((((((((((((((((((((((( ......

我想问下,在asp中这段函数什么意思

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 ......

求改一个ASP小程序加上传功能和下载功能。。

文件:folder.inc
HTML code:

<%
Dim folderini,pos,pageName
fPath = Request.ServerVariables("PATH_TRANSLATED")
pos = instrRev(fPath,"\")
folderini = Left(fPath,pos)+&qu ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号