asp

位置:IT落伍者 >> asp >> 浏览文章

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


发布日期:2022年05月25日
 
Asp组件初级入门与精通系列之五

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

rsOpen strsql connadOpenDynamic adLockPessimistic

在键入的时候后面会出现一个游标类型或者锁类型列表可以供选择

有时候我们为了简化直接rsopen strsqlconn

第一种方法是不是更加专业一些我们来看看asp中如何实现

打开vb新建Activex Dll工程工程名修改为fCom类名修改为fC

Option Explicit

定义枚举类型

Public Enum Interfacedig

icfirst =

icsecond =

icthree =

icfour =

icfive =

icsix =

icserven =

iceight =

End Enum

定义函数

Public Function CallDat(ByVal idig As Integer ByVal ics As Interfacedig) As Variant

CallDat = idig * ics

End Function

Ok一个组件就写好了点击菜单>文件>生成fComdll文件

确定在目录下就会有fComdll文件

测试

打开visual interdev生成一个asp文件

<%@ Language=VBScript %>

<%

定义还可以把这一部分放到一个文件中就像ado的记录集#include file=adovbsinc>

const icfirst =

const icsecond =

const icthree =

const icfour =

const icfive =

const icsix =

const icserven =

const iceight =

set obj=serverCreateObject(fComfc)

这里可以使用iceight或者但是前者使代码具有更好的可读性

a= objCallDat(iceight)

ResponseWrite a

ResponseWrite

a= objCallDat()

ResponseWrite a

%>

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

上一篇:预编译 aspnet

下一篇:Asp编码优化技巧8则