万能数据库连接程序(3)

  If Err.Number <> 0 Then Exit Function
  Set GetConnection = conn
End Function

'---------------------------------------------------
Function GetMdbRs( FileName, Source, Cursor, Password )
  Dim conn, rs

  On Error Resume Next
  Set GetMdbRs = Nothing
  If Len(Password) = 0 Then
      Set conn = GetMdbConnection( FileName )
  Else
      Set conn = GetSecuredMdbConnection( FileName, Password )
  End If
  If conn Is Nothing Then Exit Function

  Set rs = Server.CreateObject("ADODB.Recordset")
  If Err.Number <> 0 Then Exit Function

  rs.Open source, conn, Cursor, 2
  If Err.Number <> 0 Then Exit Function
  Set GetMdbRs = rs
End Function

'---------------------------------------------------
Function GetOtherRs( DataType, Path, SQL, Cursor )
  Dim conn, rs
  On Error Resume Next
  Set GetOtherRs = Nothing

  Select Case DataType
      Case "Dbf"
        Set conn = GetDbfConnection( Path )
      Case "Dbc"
        Set conn = GetDbcConnection( Path )
      Case "Excel"
        Set conn = GetExcelConnection( Path )
      Case "Text"
        Set conn = GetTextConnection( Path )
  End Select
  If conn Is Nothing Then Exit Function

  Set rs = Server.CreateObject("ADODB.Recordset")
  If Err.Number <> 0 Then Exit Function

  rs.Open SQL, conn, Cursor, 2
  If Err.Number <> 0 Then Exit Function
  Set GetOtherRs = rs
End Function

'---------------------------------------------------
Function GetSQLServerRs( Computer, UserID, Password, Db, source, Cursor )
  Dim conn, rs

  On Error Resume Next
  Set GetSQLServerRs = Nothing
  Set conn = GetSQLServerConnection( Computer, UserID, Password, Db )
  If conn Is Nothing Then Exit Function

  Set rs = Server.CreateObject("ADODB.Recordset")
  If Err.Number <> 0 Then Exit Function

  rs.Open source, conn, Cursor, 2
  If Err.Number <> 0 Then Exit Function
  Set GetSQLServerRs = rs
End Function
%>
使用方法是——复制下来存成一个文件，然后用#Include “文件名”就可以调用里面的子程序了。
有什么问题可以一起探讨！！！