熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

Asp組件初級入門與精通系列之五

2013-11-13 10:15:21  來源: .NET編程 

  經常我們可以看到在連接數據庫打開記錄集的時候如下
  
  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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.