QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 10783|回复: 2
打印 上一主题 下一主题

Asp中调用VB编写的DLL

[复制链接]
字体大小: 正常 放大
韩冰        

823

主题

3

听众

4048

积分

我的地盘我做主

该用户从未签到

发帖功臣 元老勋章

跳转到指定楼层
1#
发表于 2004-10-6 09:53 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
作者:   慈勤强5 l; u0 M7 e* o$ c
Email : cqq1978@Gmail.com* H( e7 V( q4 y% Q
描述: Asp自身提供的几大对象在有些时候并无法满足我们的需要,这时候就需要我们- x* b, ~0 G5 g2 m
      自己动手编写组件,然后在Asp中调用 $ U$ [  ]- @8 a2 n
最后修改: 2004-10-02
7 S( y$ g7 ?7 R/ y; s' `; o**/
0 ?" k6 H7 c/ @) s<>    在用ASP做网站的时候,经常发现有些功能是Asp本身所无法实现的,就必须借助于
  ?( L- }- b, k4 k% ~) G8 c  }# m! V, w' x4 I: j
第三方的组件。 比如说发送Email,文件上传等等。
: |" c+ s% N) ?! H</P>
1 @6 _3 ^+ j0 A  r- r9 o" ]<>    今天就以VB为例,简单的制作一个我们自己的组件,然后在Asp中调用它。</P>% R2 j8 O4 e, Y& d3 b$ o# `9 S
<>    首先,打开VB,在新建工程类型里面,我们选择ActiveX Dll,如果您的组件需要' A' }. q: i- i8 k* @/ q
1 m1 F% D& y+ C1 A: ~
界面,也可以选择ActiveX控件。</P>, J. c( X  y# d  q
<>    然后,系统默认生成一个类模块Class1,我们可以改成我们需要的名称,比如FirstClass。
, L# ?) V4 \$ K! P
1 h, s( f8 ~1 K& _说明一下,我们在Asp中调用对象的时候,是这么写的:' l6 U& S: h  S/ j

! l1 }2 z, _2 B  P- z: C* N$ ]    Set obj = Server.CreateObject("AdoDB.Connection")7 d& W7 X( g* O
, W+ J+ N4 K3 [: f, j' d% l9 }. z
    我们都知道,AdoDB是一个对象库,里面有好多个对象,而Connection是其中的一个对象。
( [5 L7 m) o; h# S/ n- r1 R0 C( `3 e
    所以,我们在上面创建的类模块,其实就是具体的对象,与Connection的地位是一样的。# J5 E/ C) p5 C$ I. x9 Y; u: A
</P>: f% x1 c1 i/ K: l# N/ a
<>    下面,我们就可以给我们创建的对象FirstClass编写代码,实现我们的功能了。
% U$ i$ K* |$ s. _+ ^
7 [5 }5 _8 g1 D3 |, n    我们写个很简单的方法,就是返回一个字符串
% h0 Z, W* }5 ?# e7 j6 J</P>4 Z" s8 k: f/ Z6 A6 F
<>    Public Function getVersion() as String+ O' W0 @* ^% R* N  `2 W9 L
3 z' {& D! l  f& }( F
            getVersion = "我的第一个DLL,版本1.0"% k; @! p  v. J* T; [5 O& Y. R
& h8 U& R5 C) @; P: {7 \2 B3 y
    End Function</P>: B3 t- F" c4 o6 N1 f
<>    写好之后,我们就要确定类库的名字,就像上面的AdoDB一样。 我们在工程菜单,工程属性
8 V! E( C/ {2 ]) c
1 f( d* W: C4 S' a( S9 I    界面,可以看到一个工程名称,默认是”工程1“,这就是我们需要修改的地方,比如我们改成CqqLib, [6 }/ d/ G5 |4 X( ?
</P>
2 b2 a5 K" Y* L7 ^' N' \9 g<>    好了,生成相应的Dll, 这个时候系统就自动把这个组件注册到系统中了。 如果要用在其它) }" Q6 t$ p4 b# ?$ A) Y  [# c( X
2 I# y6 S, I! S: a9 [% @
    的电脑上,需要先注册, 就是在命令行下输入 regsvr32 a.dll 就可以了。
5 f0 L7 J! b( D# \" v3 K</P>
2 d0 z6 N+ k5 A; M( ?9 K/ W3 a<>    下面,我们看看在Asp中怎样使用这个Dll,很简单:
* I8 K0 c# t  V3 q
' J3 h; Q; r1 \8 u6 {    &lt;%5 y+ u+ ~7 k. L7 o6 g$ X0 u5 ^; X
    Set obj = Server.CreateObject("CqqLib.FirstClass")6 R( {2 h2 v* G3 M+ _
    response.write obj.getVersion
3 i8 f8 f% D0 n& M# o     %&gt;5 U' k5 u5 V1 q# _. @. E- _
  T6 y& {. r/ P
5 t  |$ _$ K0 T$ S
     就可以看到输出结果了,也就是 "我的第一个DLL,版本1.0"</P>
zan
转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信

30

主题

3

听众

2324

积分

升级  10.8%

  • TA的每日心情
    奋斗
    2023-6-21 14:13
  • 签到天数: 17 天

    [LV.4]偶尔看看III

    自我介绍
    200 字节以内&amp;lt;br /&amp;gt;
    不支持自定义 Discuz! 代码

    邮箱绑定达人 新人进步奖 元老勋章 原创写作奖

    回复

    使用道具 举报

    absdswor        
    头像被屏蔽

    0

    主题

    5

    听众

    218

    积分

    升级  59%

  • TA的每日心情
    开心
    2013-11-28 06:02
  • 签到天数: 34 天

    [LV.5]常住居民I

    自我介绍
    斌晗溪言星
    提示: 作者被禁止或删除 内容自动屏蔽
    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 注册地址

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

    关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

    手机版|Archiver| |繁體中文 手机客户端  

    蒙公网安备 15010502000194号

    Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

    GMT+8, 2026-1-3 09:53 , Processed in 0.719887 second(s), 61 queries .

    回顶部