在dll裡,不能直接使用asp的內部物件,要使用asp的內部物件,必須引用「com+ 服務型別庫(comsvcs.dll)」和asp.dll。如何訪問visual basic com元件內的active server pages內部物件,詳見:
1、com+ services type library 即「com+ 服務型別庫(comsvcs.dll)」
2、microsoft active server pages object library 物件庫asp.dll
private response as response
private request as request
private server as server
private session as session
private objcontext as objectcontext
private sub class_initialize()
set objcontext = getobjectcontext()
set response = objcontext("response")
set request = objcontext("request")
set server = objcontext("server")
set session = objcontext("session")
end sub
private sub class_terminate()
set ojbscontext = nothing
set response = nothing
set request = nothing
set server = nothing
set session = nothing
end sub
'conn 得到資料庫連線物件 adodb.connection
public property let cls_getconn(byval tmpdb as string)
set mmconn = new adodb.connection
mmconn.open "provider=microsoft.jet.oledb.4.0;data source=" & tmpdb
end property
' adodb.recordset
public sub cls_ins()
dim n
mmsql = "select * from " & mmtable
set mmrs = new adodb.recordset
mmrs.open mmsql, mmconn, 1, 3
mmrs.addnew
for n = 0 to ubound(mmfieldsarr)
mmrs(mmfieldsarr(n)) = mmvaluesarr(n)
next
mmrs.update
end sub
adodb.stream物件
set mmosm = new adodb.stream
if err.number = -2147221005 then
response.write "非常遺憾,您的主機不支援adodb.stream,不能使用本程式"
err.clear
response.end
end if
set mmfso = new filesystemobject
if err then
err.clear
response.end
end if
如果使用上下文環境,需要使用microsoft active server pages objectcontext object library,主要是事務的使用,如setcomplete等等。一般來說,使用microsoft active server pages object library就夠了,如果使用事務,可以使用ado的 中引用vb編寫的
private declare sub make lib makebar.dll ucdata as byte,byval nlen as long,byval szfilename as string,byval nclumn as long,byval nerr as long,byval nh...
在vb,vc中呼叫vb編寫的DLL
假設用vb編寫了乙個activex 元件,名稱為bioxsend,裡面生成乙個類test,類裡面有乙個方法hello 並且已經在電腦上註冊,下面分別描述怎樣在vb和vc中呼叫。1.vb呼叫 1 方法1 直接在project reference裡引用該dll,然後在使用時宣告就可以了,如下 dim a...
vb呼叫 vc 編寫的DLL 聯合除錯
vc 2008 vs 編寫的dll vb6 編寫 的exe 在dll專案中進行斷點除錯,見下方 在 解決方案資源管理器 中選擇 dll 專案。從 檢視 選單中,選擇 屬性頁 在 project 屬性頁 視窗的 配置 下拉列表中,選擇 除錯 開啟 配置屬性 資料夾並選擇 除錯 類別。在 要啟動的偵錯程...