rors
Dim errLoop As ADODB.Error
Dim strError As String
Dim i As Integer
'**********************************************************
'作用：处理可能的错误。
'**********************************************************

  If mAdoConn.State = adStateClosed Then GoTo Done
   i = 1
   Set adoErrs = mAdoConn.Errors
  For Each errLoop In adoErrs  '枚举错误集。      
     With errLoop
        strError = strError & vbCrLf & "   ADO Error   #" & .Number
        strError = strError & vbCrLf & "   Description  " & .Description
        strError = strError & vbCrLf & "   Source       " & .Source
        i = i + 1
     End With
  Next

Done:
  Err.Raise vbObjectError + 21, "", strError
End Sub

Private Sub Class_Initialize()
  mlngNumberOfFiles = 0
End Sub

Private Sub Class_Terminate()
Dim i As Integer
On Error GoTo Error_handler
   If mAdoRst.State = adStateOpen Then mAdoRst.Close  '关闭记录集。      
   If mAdoConn.State = adStateOpen Then mAdoConn.Close  '关闭连接。
      Set mAdoRst = Nothing
      Set mAdoConn = Nothing
Exit Sub

Error_handler:
  Call HandleError
End Sub

Error_handler:
  Call HandleError
End Sub


下一步是编译动态链接库。在文件（File）菜单里，单击建立（Make） ImageLoader.dll。VB会询问保存动态链接库的位
置，然后就编译项目。在要ASP文件里使用ImageLoader.dll这个动态链接库，必须在Windows注册表里注册它。操作方法
是，在NT的启动菜单里，选择运行（Run），然后在输入框里输入下面的命令行：

regsvr32 localpathImageLoader
注意，实际使用时要用动态链接库实际所在的完整路径替换上面命令行里的“localpath”。现在，就可以在程序里，比如
ASP文件里使用这个动态链接库了。

上一页  [1] [2]