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

经常我们可以看到在连接数据库，打开记录集的时候，如下：

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 文件

1@ Language=VBScript

1<html>
2<body>

‘ 定义 , 还可以把这一部分放到一个文件中 , 就像 ado 的记录集

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

1
2<p> </p>
3</body>
4</html>

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

32
32