分类
Asp组件初级入门与精通系列之五‖
| rs.Open strsql, conn | ,adOpenDynamic ,adLockPessim | istic |
| 在键入”,”的时候，后面会出现一个游标类型或者锁类型列表可以供选择。 |
| 有时候我们为了简化，直接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 Call Variant | Dat(ByVal idig As Integer, B | yVal ics As Interfacedig) As |
| CallDat = idig * ics |
| End Function |
| Ok,一个组件就写好了，点击菜单->文件->生成fCom.dll文件 |
| 确定，在目录下就会有fCom.dll文件 |
| 测试 |
| 打开visual interdev6.0,生成一个asp文件 |
| <%@ Language=VBScript %> |
| <% |
| ‘定义,还可以把这一部分放到一个文件中,就像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 |
| %> |
|
|
| 配置好虚拟目录，在ie中执行此asp文件，得到结果如下: |
| 32 |
| 32 |