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

2022-07-15 80酷酷网 80kuku.com

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

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的记录集

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 "
"

a= obj.CallDat(4,8)

Response.Write a

%>

<P> </P>

</BODY>

</HTML>

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

32
32