·您的位置: 首页 » 资源教程 » 编程开发 » ASP » ASP组件初级入门与精通系列之五

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

类别: ASP教程  评论数:0 总得分:0
经常我们可以看到在连接数据库,打开记录集的时候,如下:

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

%>

<P>&nbsp;</P>



</BODY>

</HTML>



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

32
32
-= 资 源 教 程 =-
文 章 搜 索
关键词:
类型:
范围:
纯粹空间 softpure.com
Copyright © 2006-2008 暖阳制作 版权所有
QQ: 15242663 (拒绝闲聊)  Email: faisun@sina.com
 纯粹空间 - 韩国酷站|酷站欣赏|教程大全|资源下载|免费博客|美女壁纸|设计素材|技术论坛   Valid XHTML 1.0 Transitional
百度搜索 谷歌搜索 Alexa搜索 | 粤ICP备19116064号-1