一、ASP内部对象的“引用”
在Dll里,不能直接使用ASP的内部对象,要使用ASP的内部对象,必须引用“COM+ 服务类型库(Comsvcs.dll)”和ASP.Dll。如何访问Visual Basic COM组件内的Active Server Pages内部对象,详见:http://support.microsoft.com/kb/299634/zh-cn。
也就是说,编写组件,如果在dll中使用Asp的内部对象——比如Response,Request,Session,Application,Server等,必须引用:
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 Application As Application
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 Application = objContext("Application")
Set Session = objContext("Session")
End Sub
Private Sub Class_Terminate()
Set ojbSContext = Nothing
Set Response = Nothing
Set Request = Nothing
Set Server = Nothing
Set Application = Nothing
Set Session = Nothing
End Sub
二、使用ADO则必须引用 Microsoft ActiveX Data Objects 2.7 Library
代码参考如下:
'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
三、使用FSO,则必须引用 Microsoft Scripting Runtime (FSO—Scrrun.dll)
代码参考如下:
Set mmFSO = New FileSystemObject
If Err Then
Response.Write "<li>您的空间不支持FSO,或者没有相关权限,不能使用本程序。此错误描述如下:" & Err.Description & "</li>"
Err.Clear
Response.End
End If
四、其它
如果使用上下文环境,需要使用Microsoft Active Server Pages ObjectContext Object Library,主要是事务的使用,如setcomplete等等。一般来说,使用Microsoft Active Server Pages Object Library就够了,如果使用事务,可以使用ado的