万能的数据库连接程序

我从来就不用DNS连接，我觉得那个很不方便，下面这部分程序可说是万能的数据库连接程序几乎可以连接所有的MS数据库，自己拿去研究吧（这个程序是“ASP网页制作教程”这本书里面的——一本好书）： 
<% 
'--------------------------------------------------- 
Function GetMdbConnection( FileName ) 
Dim Provider, DBPath Provider = "Provider=Microsoft.Jet.OLEDB.4.0;" 
DBPath = "Data Source=" & Server.MapPath(FileName) 
Set GetMdbConnection = GetConnection( Provider & DBPath ) 
End Function '--------------------------------------------------- 
Function GetSecuredMdbConnection( FileName, Password ) 
Dim Provider, DBPath Provider = "Provider=Microsoft.Jet.OLEDB.4.0;" 
DBPath = "Data Source=" & Server.MapPath(FileName) 
Set GetSecuredMdbConnection = GetConnection( Provider & DBPath & ";Jet OLEDB:Database Password=" & Password ) 
End Function '--------------------------------------------------- 
Function GetDbcConnection( FileName ) 
Dim Driver, SourceType, DBPath Driver = "Driver={Microsoft Visual FoxPro Driver};" 
SourceType = "SourceType=DBC;" 
DBPath = "SourceDB=" & Server.MapPath( FileName ) 
Set GetDbcConnection = GetConnection( Driver & SourceType & DBPath ) 
End Function '--------------------------------------------------- 
Function GetDbfConnection( Directory ) 
Dim Driver, SourceType, DBPath Driver = "Driver={Microsoft Visual FoxPro Driver};" 
SourceType = "SourceType=DBF;" 
DBPath = "SourceDB=" & Server.MapPath( Directory ) 
Set GetDbfConnection = GetConnection( Driver & SourceType & DBPath ) 
End Function '--------------------------------------------------- 
Function GetExcelConnection( FileName ) 
Dim Driver, DBPath Driver = "Driver={Microsoft Excel Driver (*.xls)};" 
DBPath = "DBQ=" & Server.MapPath( FileName ) 
Set GetExcelConnection = GetConnection( Driver & "ReadOnly=0;" & DBPath ) 
End Function '--------------------------------------------------- 
Function GetTextConnection( Directory ) 
Dim Driver, DBPath Driver = "Driver={Microsoft Text Driver (*.txt; *.csv)};" 
DBPath = "DBQ=" & Server.MapPath( Directory ) 
Set GetTextConnection = GetConnection( Driver & DBPath ) 
End Function '--------------------------------------------------- 
Function GetSQLServerConnection( Computer, UserID, Password, Db ) 
Dim Params, conn Set GetSQLServerConnection = Nothing 
Params = "Provider=SQLOLEDB.1" 
Params = Params & ";Data Source=" & Computer 
Params = Params & ";User ID=" & UserID 
Params = Params & ";Password=" & Password 
Params = Params & ";Initial Catalog=" & Db 
Set conn = Server.CreateObject("ADODB.Connection") 
conn.Open Params 
Set GetSQLServerConnection = conn 
End Function '--------------------------------------------------- 
Function GetMdbRecordset( FileName, Source ) 
Set GetMdbRecordset = GetMdbRs( FileName, Source, 2, "" ) 
End Function '--------------------------------------------------- 
Function GetMdbStaticRecordset( FileName, Source ) 
Set GetMdbStaticRecordset = GetMdbRs( FileName, Source, 3, "" ) 
End Function '--------------------------------------------------- 
Function GetSecuredMdbRecordset( FileName, Source, Password ) 
Set GetSecuredMdbRecordset = GetMdbRs( FileName, Source, 2, Password ) 
End Function '--------------------------------------------------- 
Function GetSecuredMdbStaticRecordset( FileName, Source, Password ) 
Set GetSecuredMdbStaticRecordset = GetMdbRs( FileName, Source, 3, Password ) 
End Function '---------------------------------------------------