Asp组件初级入门与精通系列之五

guoyangvb870

　　
　　常常我们可以看到在衔接数据库，打开记载集的时候，如下：
　　rs.Open strsql, conn,adOpenDynamic ,adLockPessimistic
　　在键入”,”的时候，后面会呈现一个游标类型或者锁类型列表能够供抉择。
　　有时候咱们为了简化，直接rs.open strsql,conn,1,3
　　第一种方式是不是更加专业一些，我们来看看ASP中如何实现
　　打开VB6,新建Activex Dll工程。工程名修正为fCom,类名修改为fC5
　　Option Explicit
　　‘定义枚举类型
　　Public Enum Interfacedig
　　icfirst = 1
　　icsecond = 2
　　icthree = 3
　　icfour = 4
　　icfive = 5
　　icsix = 6
　　icserven = 7
　　iceight = 8
　　End Enum
　　'定义函数
　　Public Function CallDat(ByVal idig As Integer, ByVal ics As Interfacedig) As Variant
　　CallDat = idig * ics
　　End Function
　　Ok,一个组件就写好了，点击菜单-文件-生成fCom.dll文件
　　断定，在目录下就会有fCom.dll文件
　　测试
　　翻开visual interdev6.0,天生一个asp文件
　　%@ Language=VBScript %
　　HTML
　　BODY
　　%
　　‘定义,还可以把这一部分放到一个文件中,就像ado的记载集!--#include file=adovbs.inc--
　　const icfirst = 1
　　const icsecond = 2
　　const icthree = 3
　　const icfour = 4
　　const icfive = 5
　　const icsix = 6
　　const icserven = 7
　　const iceight = 8
　　set obj=server.CreateObject(fCom.fc5)
　　‘这里可以应用iceight或者8,然而前者使代码存在更好的可读性
　　a= obj.CallDat(4,iceight)
　　Response.Write a
　　Response.Write br
　　a= obj.CallDat(4,8)
　　Response.Write a
　　%
　　Pnbsp;/P
　　/BODY
　　/HTML
　　配置好虚构目录，在ie中履行此asp文件，得到成果如下:
　　32
　　32

文章出自： www.3baidu.net