易截截图软件、单文件、免安装、纯绿色、仅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!




相关问答:

ASP判断的问题,郁闷了!判断不出来!

HTML code:

dim jf
set conn=server.createobject("adodb.connection")
connstr="Driver={Sql Server};Server="&Sqlip&";Database="&Sqldb&";Uid="& ......

一段asp转php

<%if request.QueryString("start") <>"" then%>
<%if cint(start)>0 then%>
<a href="search.asp?q= <%=q%>&start= <%if request.Query ......

假前最后一帖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 c ......

ASP 文件上传后将文件信息插入数据库的问题

能上传但不能插入数据库信息。ASP文件代码如下:

<%
  Response.Buffer = True
  Server.ScriptTimeOut=9999999
  On Error Resume Next
%>
<!DOCTYPE html PUBLIC ......

[高分求助]帮忙转下代码(ASP(VBSCRIPT) TO C#)谢谢~!

function mistake(preString)
      Dim texts
      Dim seed
      Dim i,length
      prestring = trim(preString)
    ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号