日期:2014-05-17  浏览次数:20655 次

数据库连接缺少对象。。。。
<html>      
    <head>      
    <META       name=VI60_defaultClientScript       content=VBScript>      
    <meta       http-equiv= "Content-Type "       content= "text/html;       charset=gb2312 ">      
    <title> asp树的研究 </title>      
    </head>      
    <style       type= "text/css ">      
    <!--      
    .aa       {      
    font-size:       14px;      
    color:       #000000;      
    text-align:       center;      
    vertical-align:       middle;      
    letter-spacing:       0px;      
    word-spacing:       0px;      
    }      
    -->      
    </style>      
    <body       bgcolor= "DEE3F7 ">      
    <%      
                            dim       cn,rs,rs1,SQL,Para,NumChild      
                            set       cn=server.CreateObject( "ADODB.connection ")      
                            set       rs=server.createobject( "ADODB.recordset ")      
                            set       rs1=server.createobject( "ADODB.recordset ")      
                            cn.Open     "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source= "   &   Server.MapPath( " "&tree.mdb& " ")                          
                            SQL= "Select       *       from       tree       order       by       ID "      
                            rs.open       SQL,cn,3,2                          
    do       while       not       rs.EOF          
    SQL= "Select       ID       from       tree       where       ID       like