<%
'以下为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" )
%>