无级分类，无级联动下拉菜单
作者:Sky 日期:2008-05-23
先说明一下，用的就是zl_class的那个无级向下分类的数据库。
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936" %>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("zl_class.mdb")
Conn.Open ConnStr
Set rs=conn.execute("Select * From zl_class order By orderID")
cplists=rs.Getrows
isql="select top 1 depth from zl_class order by depth desc"
Set irs=conn.execute(isql)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936" %>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("zl_class.mdb")
Conn.Open ConnStr
Set rs=conn.execute("Select * From zl_class order By orderID")
cplists=rs.Getrows
isql="select top 1 depth from zl_class order by depth desc"
Set irs=conn.execute(isql)
