- 在线时间
- 0 小时
- 最后登录
- 2007-9-23
- 注册时间
- 2004-9-10
- 听众数
- 3
- 收听数
- 0
- 能力
- 0 分
- 体力
- 9975 点
- 威望
- 7 点
- 阅读权限
- 150
- 积分
- 4048
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 1893
- 主题
- 823
- 精华
- 2
- 分享
- 0
- 好友
- 0
我的地盘我做主
该用户从未签到
|
作者: 慈勤强$ g6 R( O) H: u& b: A8 D, v }( u0 f3 O
Email : cqq1978@Gmail.com
8 y! I( b8 T) D; M! O& L. ~! \描述: Asp自身提供的几大对象在有些时候并无法满足我们的需要,这时候就需要我们1 Q: k# [4 q, ?" L
自己动手编写组件,然后在Asp中调用 , z& h# u8 e* O: _
最后修改: 2004-10-02. g, B: Y P0 Y5 }$ t# N1 p
**/ 3 f! S. u t& F9 C
<> 在用ASP做网站的时候,经常发现有些功能是Asp本身所无法实现的,就必须借助于) _; ^7 f7 r) n. H$ R5 H" [
3 Z8 z+ }4 S3 Y) U" T/ ^& j' L第三方的组件。 比如说发送Email,文件上传等等。
0 Y: j6 \/ Y& d: v/ V: G</P>
% c5 u& b& M% T& y<> 今天就以VB为例,简单的制作一个我们自己的组件,然后在Asp中调用它。</P>3 E' y: g0 g; j) _$ O
<> 首先,打开VB,在新建工程类型里面,我们选择ActiveX Dll,如果您的组件需要7 o9 y! s6 y5 t
9 k' _# h" y- c) f2 d
界面,也可以选择ActiveX控件。</P>1 ]$ f Q1 y3 I* ~+ R
<> 然后,系统默认生成一个类模块Class1,我们可以改成我们需要的名称,比如FirstClass。8 {% y& ?7 h1 V. `8 v
5 Z4 A8 D8 p1 f' v- B2 B
说明一下,我们在Asp中调用对象的时候,是这么写的:- U6 J3 ]$ h, ?+ _9 |& J
, f8 V, O; i+ y6 ?2 A) d Set obj = Server.CreateObject("AdoDB.Connection")
* \3 G# W+ W; G! k% y- q
# v. N- }6 k8 T" w0 r$ F9 c 我们都知道,AdoDB是一个对象库,里面有好多个对象,而Connection是其中的一个对象。0 T; ]" E: }; |7 \# K
0 O# p, I. |; O! Q# J
所以,我们在上面创建的类模块,其实就是具体的对象,与Connection的地位是一样的。. H6 i- L- b) W3 }9 T* U) K: Q
</P>9 @6 i& J1 n( |( H0 O# H* l# M
<> 下面,我们就可以给我们创建的对象FirstClass编写代码,实现我们的功能了。6 u* l" }2 Y/ q" ^( H: |' p( m+ K6 V
! H3 X: g7 U3 |8 _: O z
我们写个很简单的方法,就是返回一个字符串7 R) A. k, H/ v2 m1 d& ~) e/ Q6 m$ g) }
</P>
- v$ O* V, L. y% q: @2 Y<> Public Function getVersion() as String
; T$ T9 F4 N; m3 O$ R+ a7 d/ z. l( o& O& N: k
getVersion = "我的第一个DLL,版本1.0"
4 t' c: x b2 C4 e; q7 Z( N9 M' E) w+ s& U8 P5 C: F* _9 r5 ?, T
End Function</P>6 U O" b7 ?) W% y4 G
<> 写好之后,我们就要确定类库的名字,就像上面的AdoDB一样。 我们在工程菜单,工程属性: M7 P; [0 }/ W g
! L9 s R9 @' `' q2 n O
界面,可以看到一个工程名称,默认是”工程1“,这就是我们需要修改的地方,比如我们改成CqqLib. K% B( B3 d o' w, @
</P>( \( ~5 U: S! N, [( W& R6 F
<> 好了,生成相应的Dll, 这个时候系统就自动把这个组件注册到系统中了。 如果要用在其它* |$ P) w0 c. D
]# R2 [0 r& n: {% l0 A! N. p! W2 W- ~7 c 的电脑上,需要先注册, 就是在命令行下输入 regsvr32 a.dll 就可以了。 b" T5 p6 ~, V" T
</P>6 |- ]) r& M% k$ x' y, R4 U( r
<> 下面,我们看看在Asp中怎样使用这个Dll,很简单:
2 `: J: N8 c/ @" s* X5 f* i* w
% K$ U4 f* T4 b' y; Z8 ? <%
" L! }" K# K% v5 z8 o$ k Set obj = Server.CreateObject("CqqLib.FirstClass")2 r" [) k5 b% o+ B- W/ s/ r
response.write obj.getVersion; x! L8 V$ e4 X" F0 q- T' @! f
%>
" K8 z& | R9 m; P' R, k6 F1 @
G6 o( s/ z5 D9 r7 l. W- k2 h/ ?' |, x# {- [+ ]
就可以看到输出结果了,也就是 "我的第一个DLL,版本1.0"</P> |
zan
|