zoukankan      html  css  js  c++  java
  • Asp组件初级入门与精通系列之四

    数组问题

    数组在程序中使用的很多,而且比较容易出问题

    我们通过小例子来看看

    打开vb6,新建Activex Dll工程。工程名修改为fCom,类名修改为fC4

    点击菜单->工具->添加过程

    我们在名称内输入AcceptArray1,类型选择子程序,范围选择公有,然后确定

    再次操作:在名称内输入AcceptArray2,类型选择函数,范围选择公有,然后确定即可

    功能:传递数组地址到组件,使用ByRef关键字,并赋值返回

    Public Sub AcceptArray1(ByRef varray As Variant) As Variant

        varray(0) = "龙卷风"

        varray(1) = "20"

    End Sub

    功能:返回一个字符串数组

    Public Function AcceptArray2() As Variant

           Dim a(2) as Variant

        a(0) = "龙卷风"

    a(1) = "20"

    AcceptArray2=a

    End Function

    Ok,一个组件就写好了,点击菜单->文件->生成fCom.dll文件

    确定,在目录下就会有fCom.dll文件

    测试

    打开visual interdev6.0,生成一个asp文件

    <%@ Language=VBScript %>

    <HTML>

    <BODY>

    <%

    dim obj

    set obj = server.createobject("fCom.fC4")

    dim a(2)

    '测试第一个组件方法

    obj.AcceptArray1(a)

    response.write a(0)

    response.write "<br>"

    response.write a(1)

    response.write "<br>"

    '测试第二个组件方法

    dim b

    b=obj.AcceptArray2()

    for i=0 to ubound(b)

    Response.Write b(i)

    response.write "<br>"

    next

    %>

    </BODY>

    </HTML>

    配置好虚拟目录,在ie中执行此asp文件,得到结果如下:

    龙卷风
    20
    龙卷风
    20

    总结一下:

    字符串,数字通过值传递或者作为返回值被返回

    如果使用引用传递,将参数的类型设为Variant。这样做可以避免一些错误。不过尽可能的减少引用传递参数

    未完待续

    申明

    非源创博文中的内容均收集自网上,若有侵权之处,请及时联络,我会在第一时间内删除.再次说声抱歉!!!

    博文欢迎转载,但请给出原文连接。

  • 相关阅读:
    Centos 7 zabbix 实战应用
    Centos7 Zabbix添加主机、图形、触发器
    Centos7 Zabbix监控部署
    Centos7 Ntp 时间服务器
    Linux 150命令之查看文件及内容处理命令 cat tac less head tail cut
    Kickstart 安装centos7
    Centos7与Centos6的区别
    Linux 150命令之 文件和目录操作命令 chattr lsattr find
    Linux 发展史与vm安装linux centos 6.9
    Linux介绍
  • 原文地址:https://www.cnblogs.com/Athrun/p/1127584.html
Copyright © 2011-2022 走看看