数据库连接缺少对象。。。。
<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