|
經常我們可以看到在連接數據庫，打開記錄集的時候，如下：
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> </P>
</BODY>
</HTML>
配置好虛擬目錄，在ie中執行此asp文件，得到結果如下:
32
32
|
