- 在线时间
- 0 小时
- 最后登录
- 2007-9-23
- 注册时间
- 2004-9-10
- 听众数
- 3
- 收听数
- 0
- 能力
- 0 分
- 体力
- 9975 点
- 威望
- 7 点
- 阅读权限
- 150
- 积分
- 4048
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 1893
- 主题
- 823
- 精华
- 2
- 分享
- 0
- 好友
- 0

我的地盘我做主
该用户从未签到
 |
作者: 慈勤强7 J1 I% R/ S t1 X: j W( r) P
Email : cqq1978@Gmail.com
$ J0 S8 H' V, p: a描述: Asp自身提供的几大对象在有些时候并无法满足我们的需要,这时候就需要我们0 K, V8 f! o3 \6 ^( W
自己动手编写组件,然后在Asp中调用
1 O, s, b2 A7 R* F最后修改: 2004-10-02- I) U* N, ?1 Y! T. H* n0 n
**/
# L% f, u5 B/ s- G< > 在用ASP做网站的时候,经常发现有些功能是Asp本身所无法实现的,就必须借助于- i; X K6 y# n W$ u; a# R
: [' F2 h$ s' j
第三方的组件。 比如说发送Email,文件上传等等。
, k4 _/ ? `8 ~% e. v' r</P>/ j5 w) }8 Z3 O/ C) O- s8 O- s5 v
< > 今天就以VB为例,简单的制作一个我们自己的组件,然后在Asp中调用它。</P>- D, M4 h1 J! U. S$ n
< > 首先,打开VB,在新建工程类型里面,我们选择ActiveX Dll,如果您的组件需要! Y, G: ^( d7 n- u6 l& Q0 Q7 M# @' ?
# @9 y+ B) _( K5 \$ @% d ~5 w: t2 y5 t
界面,也可以选择ActiveX控件。</P>
5 _, g$ v/ l4 h< > 然后,系统默认生成一个类模块Class1,我们可以改成我们需要的名称,比如FirstClass。
0 \1 ~5 z# D: d3 O3 G- R
' Z6 Q ]5 B/ Y4 f! v* j0 u说明一下,我们在Asp中调用对象的时候,是这么写的:+ m9 ^& Z' o9 J$ b# d1 K+ M4 p( y; O
7 \% Q6 f' W; N: r Set obj = Server.CreateObject("AdoDB.Connection")
* j5 b- O+ \6 E8 Y# N2 c0 }3 h. d6 a" o1 f3 n- F
我们都知道,AdoDB是一个对象库,里面有好多个对象,而Connection是其中的一个对象。
, G% g: U" V4 y8 ~2 X' D7 g' p+ _2 x9 R6 E! |
所以,我们在上面创建的类模块,其实就是具体的对象,与Connection的地位是一样的。, r C" J7 ^& c1 o4 s
</P>
# K% d, E8 A( l9 m$ W$ }6 d1 z< > 下面,我们就可以给我们创建的对象FirstClass编写代码,实现我们的功能了。- m8 ^% D: y0 T" B
9 @' U3 C2 C: F. H/ \+ J 我们写个很简单的方法,就是返回一个字符串
0 ]: F9 m+ S) ]& d+ N</P>) S8 F. q8 I0 X" a4 M9 G: @
< > Public Function getVersion() as String% B1 t3 y# Y, M/ v% Y% d; q# M
% B; x- q4 R' g& I9 D. W getVersion = "我的第一个DLL,版本1.0"6 H0 w( R# }6 ?+ h# @/ L: ^
, a* P4 K1 b* M, y& Q2 |" h5 v0 G8 N
End Function</P>
1 ~& ^; g. J, |' C1 A< > 写好之后,我们就要确定类库的名字,就像上面的AdoDB一样。 我们在工程菜单,工程属性0 z2 i- y x" }2 W5 ^+ `
9 H, L; Q. v$ s/ D9 g 界面,可以看到一个工程名称,默认是”工程1“,这就是我们需要修改的地方,比如我们改成CqqLib
: t' R1 `' n. D. m</P>
8 `! J) v7 _5 z. e+ p& v< > 好了,生成相应的Dll, 这个时候系统就自动把这个组件注册到系统中了。 如果要用在其它
. y6 R& O n; \+ r, ]7 J6 _; u& y; x- w- w4 P$ t
的电脑上,需要先注册, 就是在命令行下输入 regsvr32 a.dll 就可以了。/ H* T- ~; `8 N
</P>& z, F6 C2 d: K: E3 O/ q! i
< > 下面,我们看看在Asp中怎样使用这个Dll,很简单:
: M- D$ A, ^6 c4 f' T$ C( P- k6 y% l0 Y& V. x# L0 B
<%$ b8 P" b, g+ u# m+ e
Set obj = Server.CreateObject("CqqLib.FirstClass")
5 J( {0 M/ G# d! J, c4 f response.write obj.getVersion/ D* F- o9 P% N0 ]% D
%>7 {* W5 ]! b) h* v2 Y
0 H6 U, X! J7 `" f
; Y' s: p, }0 D! x4 c# B& L 就可以看到输出结果了,也就是 "我的第一个DLL,版本1.0"</P> |
zan
|