asp中数据库的连接方法

<%
'以下为ACCESS连接方法
dim conn
dim connstr
dim db
db="database/yiuwekdsodksldfslwifds.mdb"      '数据库文件的位置
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr

sub CloseConn()
 conn.close
 set conn=nothing
end sub
%>

<%
' ============================================
' 初始化数据库连接对象，SQLServer
' ============================================

Function GetSQLServerConnection( Computer, UserID, Password, Db )
 Dim Params, conn
 ' 如果数据库对象已打开，不要再打开
 If IsObject(conn) = True Then Exit Function 
 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 CloseConn()
 On Error Resume Next
 conn.Close
 Set conn = Nothing
End Function

Set conn = GetSQLServerConnection( "localhost", "username", "userpass", "DataName" )
%>