程序代码：

 

 <%

Dim DBPath,Conn,Connstr

DBPath = "/Inc/data1.Mdb"

Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)

Sub DB_Conn()

    If Not IsObject(Conn) Then

        On Error Resume Next

        Set Conn = Server.CreateObject("Adodb.Connection")

        Conn.Open Connstr

        If Err Then Err.Clear : Response.Write Lang_ConnectionData_Error : Response.End

    End If

End Sub

%>

程序代码：

<%
dim conn
dim connstr
'on error resume next
connstr="DBQ="+server.mappath("/Inc/data2.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
set rs=server.createobject("adodb.recordset")
sub CloseConn()
    conn.close
    set conn=nothing
end sub
%>