conn

<%

    dim conn
    ' 定义变量
   
    set conn=server.createobject("adodb.connection")
    ' 创建一个数据库实例指派给 conn
   
    conn.connectionstring="Provider = Microsoft.Jet.OLEDB.4.0;Data Source="&server.mapPath("friend.mdb")
    ' 设置数据库的连接字符串
   
    conn.open
    ' 打开数据库连接
   
    response.Write("恭喜你，数据库连接打开了！")
    ' 对数据库的操作 execute
   
    conn.close
    ' 关闭数据库连接
   
    set conn=null
    ' 释放 conn 对象
   
%>