28,406
社区成员
发帖
与我相关
我的任务
分享关于MIZZ树型控件的一个问题!
我下载了一个梅子雪的树形控件!在使用中也遇到了一些问题,是这样的!如下:
''注:类别记录集具有父接点和子接点等,在本例中,类别加载正常
''表记录集只有个ID值,也就是对应类别的接点!加载到类别下面
''表加载错误!!不能正常加载!
<%
Dim Conn, rs1,rs2
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs1 = Server.CreateObject("ADODB.Recordset") '类别记录集
Set rs2 = Server.CreateObject("ADODB.Recordset") '表记录集
Conn.Open "driver={sql server};server=(local);uid=sa;pwd=;database=fjky"
%>
<html>
<head>
<title>树形测试</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="author" content="黄方荣(meizz·梅花雪)://www.meizz.com">
<script language="JavaScript" src="MzTreeView10.js"></script>
<style>
A.MzTreeview
{
font-size: 9pt;
padding-left: 3px;
}
</style>
</head>
<body class=frame>
<SCRIPT LANGUAGE="JavaScript">
<!--
window.tree = new MzTreeView("tree");
tree.setIconPath(""); //可用相对路径
<%
rs1.open "Select * From design_classrelation where classid<>3 order by classid", Conn '类别记录集
rs2.open "Select * From design_tablerelation ",Conn '表记录集
''注:类别记录集具有父接点class_parent和子接点classid等,在本例中,类别加载正常
''表记录集只有个classid值,也就是对应类别的接点!加载到类别下面
''表加载错误!!不能正常加载!
Dim node
Dim reg : set reg = new RegExp : reg.global=True : reg.pattern=";"
Dim id, parentId, text, hint, icon, data, url, target, method
do while not rs1.eof
'若是树的条目比较多的时候(比如大于1000)而又相对稳定的时候将这些数据生成静态网页来访问
node = VBCrLf &" tree.nodes["""& rs1("class_parent") &"_"& rs1("classid") &"""] = """
node = node &"text:"& reg.replace(rs1("classname"), chr(15)) &";"
response.write node &"""" '生成节点信息
do while not rs2.eof
if rs1("classid")=rs2("classid") then
node = VBCrLf &" tree.nodes["""& rs2("classid") &"_"& rs1("classid") &"""] = """
node = node &"text:"& reg.replace(rs2("chntablename"), chr(15)) &";"
response.write node &"""" '生成节点信息
end if
rs2.movenext
loop
rs1.movenext
loop
%>
document.write(tree.toString()); //亦可用 obj.innerHTML = tree.toString();
//-->
</SCRIPT>
</body>
</html>
<%
rs1.close
rs2.close
conn.close
%>
''注:类别记录集具有父接点和子接点等,在本例中,类别加载正常
''表记录集只有个ID值,也就是对应类别的接点!加载到类别下面
''表加载错误!!不能正常加载!
<%
Dim Conn, rs1,rs2
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs1 = Server.CreateObject("ADODB.Recordset") '类别记录集
Set rs2 = Server.CreateObject("ADODB.Recordset") '表记录集
Conn.Open "driver={sql server};server=(local);uid=sa;pwd=;database=fjky"
%>
<html>
<head>
<title>树形测试</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="author" content="黄方荣(meizz·梅花雪)://www.meizz.com">
<script language="JavaScript" src="MzTreeView10.js"></script>
<style>
A.MzTreeview
{
font-size: 9pt;
padding-left: 3px;
}
</style>
</head>
<body class=frame>
<SCRIPT LANGUAGE="JavaScript">
<!--
window.tree = new MzTreeView("tree");
tree.setIconPath(""); //可用相对路径
<%
rs1.open "Select * From design_classrelation where classid<>3 order by classid", Conn '类别记录集
rs2.open "Select * From design_tablerelation ",Conn '表记录集
''注:类别记录集具有父接点class_parent和子接点classid等,在本例中,类别加载正常
''表记录集只有个classid值,也就是对应类别的接点!加载到类别下面
''表加载错误!!不能正常加载!
Dim node
Dim reg : set reg = new RegExp : reg.global=True : reg.pattern=";"
Dim id, parentId, text, hint, icon, data, url, target, method
do while not rs1.eof
'若是树的条目比较多的时候(比如大于1000)而又相对稳定的时候将这些数据生成静态网页来访问
node = VBCrLf &" tree.nodes["""& rs1("class_parent") &"_"& rs1("classid") &"""] = """
node = node &"text:"& reg.replace(rs1("classname"), chr(15)) &";"
response.write node &"""" '生成节点信息
do while not rs2.eof
if rs1("classid")=rs2("classid") then
node = VBCrLf &" tree.nodes["""& rs2("classid") &"_"& rs1("classid") &"""] = """
node = node &"text:"& reg.replace(rs2("chntablename"), chr(15)) &";"
response.write node &"""" '生成节点信息
end if
rs2.movenext
loop
rs1.movenext
loop
%>
document.write(tree.toString()); //亦可用 obj.innerHTML = tree.toString();
//-->
</SCRIPT>
</body>
</html>
<%
rs1.close
rs2.close
conn.close
%>
...全文
请发表友善的回复…
发表回复
