快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

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



<%@ 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
返回类别: 教程
上一教程: 禁止站外提交表单
下一教程: ASP开发10条经验总结

您可以阅读与"ASP组件初级入门与精通系列之五"相关的教程:
· Asp组件初级入门与精通系列之一
· ASP组件初级入门与精通系列之六
· ASP组件初级入门与精通系列之七
· ASP组件初级入门与精通系列之三
· ASP组件初级入门与精通系列之四
    微笑服务 优质保证 索取样品