dim conn,rs;//这里如果是调用外部文件就必须定义这里
这里是数据库创建联连方法

    sub opendb()
        set rs=server.CreateObject("adodb.recordset")
        set conn=server.CreateObject("adodb.connection")
        conn.connectionstring="provider=microsoft.jet.oledb.4.0; data source="&server.mappath("datasource/hhinfo.mdb")
        conn.open
    end sub

//这里是asp数据关闭方法
    sub closedb()
        if isobject(rs) then
            if not(rs is nothing) then
                rs.close
                set rs=nothing
            end if
        end if
        if isobject(conn) then
            if not(conn is nothing) then
                conn.close
                set conn=nothing
            end if
        end if
    end sub