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文件得到結果如下:
　　
　　
　　
　　

From:http://tw.wingwit.com/Article/program/net/201311/13070.html