找一个ASP上用的TREEVIEW控件,500分
要求:附带有使用的例子,谢谢,分数另给 问题点数：100、回复次数：4Top
1 楼summercat（飘轩(灌篮高手)）回复于 2003-06-02 15:58:27 得分 45
http://lucky.myrice.com/temp/XML.zip MSDN & CSDN XML树型菜单
Top
2 楼summercat（飘轩(灌篮高手)）回复于 2003-06-02 15:58:51 得分 10
这份代码是我在csdn以前一贴子上摘抄的，还算好用！！但希望原贴主别怪我多事！
数据库
depid depname upid deplevel depurl
1001 审批业务 no 1 1
2001 事项管理 1001 2 sxgl.asp
left.asp
-------------------------------------------
<%if session("manage")<>1then
response.Redirect("index.html")
end if
%>
<!--#include file =conn.asp-->
<%
sql1="select * from Cm_Tree1 where deplevel=1 order by depid" '调出一级部门的信息
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2,1%>
<html>
<script language=JavaScript>
<!--
function openwin(page,size)
{
//window.open(page,"newuser","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no,"+ size);
}
-->
</script>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="javascript" //预下载图片>
var img_plus="images/plus.gif";
var img_plus_start="images/plus_start.gif";
var img_plus_end="images/plus_end.gif";
var img_plus_start_end="images/plus_start_end.gif";
var img_minus="images/minus.gif";
var img_minus_start="images/minus_start.gif";
var img_minus_end="images/minus_end.gif";
var img_minus_start_end="images/minus_start_end.gif";
var img_folder_open="images/folder_open.gif";
var img_folder_open2="images/folder_open2.gif";
var img_folder_close="images/folder_close.gif";
</script>
<script language="javascript" src="file:///D|/web/zymis/CmZymis/menutree.js">
</script>
<style>
A:link{
font-family: 宋体;
FONT-SIZE: 14px;
COLOR: #000000;
TEXT-DECORATION: none
}
A:visited{
font-family: 宋体;
FONT-SIZE: 14px;
COLOR: #000000;
TEXT-DECORATION: none
}
A:active{
font-family: 宋体;
FONT-SIZE: 14px;
TEXT-DECORATION: none
}
A:hover{
font-family: 宋体;
COLOR: red;
TEXT-DECORATION: none
}
</style>
</head>
<body bgcolor="#69A5E0" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" style="MARGIN" scroll="no">
<form>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="60">
<%
vsl=0
vzsl=rs1.RecordCount
while not rs1.eof or bof
depid=""
vsl=vsl+1
dim jcpd1,jcpd2 '判断是否有二三级部门的变量
depid=trim(rs1("depid"))
sql2="select * from Cm_Tree1 where upid='"&depid&"' order by depid"
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,3
if rs2.eof or bof then '判断是否有二级部门
jcpd1="asdf"
end if
vcwd=1002 '为中间体
if vsl=1 then
vcwd=1001 '为头
end if
if vsl=vzsl then
vcwd=1003 '为尾
end if
%>
<input type="hidden" name="ty_<%=depid%>" value="off">
<input type="hidden" name="th_<%=depid%>" value="first">
<tr id="">
<td><div align="left"><font color="#FFFFFF">
<%if trim(rs1("depurl"))="1" then%>
<A href="javascript:void showmenu('<%=depid%>','<%=vcwd%>','<%=trim(rs1("depurl"))%>')">
<%else%><%if trim(rs1("depname"))<>"前台触摸屏管理" then%><a href="<%=trim(rs1("depurl"))%>" target="mainFrame"><%else%><a href="<%=trim(rs1("depurl"))%>" target="_blank"><%end if%>
<%end if%>
<%if not vsl=1 and not vsl=vzsl then%><IMG align="absMiddle" border="0" height="20" width="19" name="img_design_<%=depid%>" src="file:///D|/web/zymis/CmZymis/%0A%09%09%09%09%09%09%09%09images/plus.gif%0A%09%09%09%09%09%09%09"><IMG align="absMiddle" border="0" height="20" name="img_folder_<%=depid%>" src="file:///D|/web/zymis/CmZymis/images/folder_close.gif" width="19" >
<font size="2">
<%end if%>
<%if vsl=1 then%>
</font> <IMG align="absMiddle" border="0" height="20" width="19" name="img_design_<%=depid%>" src="file:///D|/web/zymis/CmZymis/%0A%09%09%09%09%09%09%09%09images/plus_start.gif%0A%09%09%09%09%09%09%09"><IMG align="absMiddle" border="0" height="20" name="img_folder_<%=depid%>" src="file:///D|/web/zymis/CmZymis/images/folder_close.gif" width="19" >
<font size="2">
<%end if%>
<%if vsl=vzsl then%>
</font> <IMG align="absMiddle" border="0" height="20" width="19" name="img_design_<%=depid%>" src="file:///D|/web/zymis/CmZymis/%0A%09%09%09%09%09%09%09%09images/plus_end.gif%0A%09%09%09%09%09%09%09"><IMG align="absMiddle" border="0" height="20" name="img_folder_<%=depid%>" src="file:///D|/web/zymis/CmZymis/images/folder_close.gif" width="19" ><font size="2">
<%end if%>
<%=trim(rs1("depname"))%></font></A></font></div></td>
</tr>
<%
if not rs2.eof or bof then
vsl2=0
vzsl2=rs2.RecordCount
'response.write rs2.recordcount
while not rs2.eof or bof '显示二级部门
depid2=""
vsl2=vsl2+1
depid2=trim(rs2("depid"))
sql3="select * from Cm_Tree1 where upid='"&depid2&"' order by depid"
'set rs3=conn.execute(sql3)
set rs3=server.createobject("adodb.recordset")
rs3.open sql3,conn,3
if rs3.eof or bof then '判断是否有三级部门
jcpd2="asdf"
end if
vcwd2=2002
if vsl2=1 then
vcwd2=2001
end if
if vsl2=vzsl2 then
vcwd2=2003
end if
%>
<input type="hidden" name="ty_<%=depid&depid2%>" value="off">
<input type="hidden" name="th_<%=depid&depid2%>" value="second">
<tr style="display:none" id="menu_<%=depid&depid2%>">
<td><div align="left"><font color="#FFFFFF"><IMG align="absMiddle" border="0" height="20" width="19" src="file:///D|/web/zymis/CmZymis/%0A%09%09%09%09images/line.gif%0A%09%09%09"><A href="javascript:void showmenu('<%=depid&depid2%>','<%=vcwd2%>','<%=trim(rs2("depurl"))%>')"><IMG align="absMiddle" border="0" height="20" width="19" name="img_design_<%=depid&depid2%>" src="file:///D|/web/zymis/CmZymis/%0A%09%09%09%09%09%09%09%09images/minus.gif%0A%09%09%09%09%09%09%09"><font size="2"><IMG align="absMiddle" border="0" height="20" name="img_folder_<%=depid&depid2%>" src="file:///D|/web/zymis/CmZymis/images/folder_open.gif" width="19" ><%=rs2("depname")%></font></A></font></div></td>
</tr>
<%
'if not jcpd1="asdf" and not jcpd2="asdf" then '如有三级部门则继续显示
vsl3=0
vzsl3=rs3.recordcount
while not rs3.eof or bof '显示三级部门
vsl3=vsl3+1
depid3=trim(rs3("depid"))
vcwd3=3002
if vsl3=1 then
vcwd3=3001
end if
if vsl3=vzsl3 then
vcwd3=3003
end if
%>
<input type="hidden" name="ty_<%=depid&depid2&depid3%>" value="off">
<input type="hidden" name="th_<%=depid&depid2&depid3%>" value="third">
<tr style="display:none" id="menu_<%=depid&depid2&depid3%>">
<td><div align="left"><font color="#FFFFFF"><IMG align="absMiddle" border="0" height="20" width="19" src="file:///D|/web/zymis/CmZymis/%0A%09%09%09%09images/line.gif%0A%09%09%09"><img align="absMiddle" border="0" height="20" width="19" src="file:///D|/web/zymis/CmZymis/%0A%09%09%09%09images/line_tri.gif%0A%09%09%09"><A href="javascript:void showmenu('<%=depid&depid2&depid3%>','<%=vcwd3%>','<%=trim(rs3("depurl"))%>')"><IMG align="absMiddle" border="0" height="20" width="19" name="img_design_<%=depid&depid2&depid3%>" src="file:///D|/web/zymis/CmZymis/%0A%09%09%09%09%09%09%09%09images/plus.gif%0A%09%09%09%09%09%09%09"><font size="2"><IMG align="absMiddle" border="0" height="20" name="img_folder_<%=depid&depid2&depid3%>" src="file:///D|/web/zymis/CmZymis/images/folder_close.gif" width="19" ><%=rs3("depname")%></font></A>
</font></div></td>
</tr>
<%
rs3.movenext
wend
'end if
asdf="asdfghjkl"
%>
<%
rs2.movenext
wend
end if
%>
<%
jcpd1=""
jcpd2=""
rs1.movenext
wend
%>
</table>
</form>
<tr>
<td height="125" valign="bottom"></td>
</tr>
</body>
Top
3 楼fason（咖啡人生）回复于 2003-06-02 16:06:30 得分 45
楼上都答非所问吧?是treeview控件啊
参考一下江雨的这篇文章
http://expert.csdn.net/Expert/topic/1382/1382892.xml?temp=.5761835Top
4 楼new174（做愤青是没有好下场DI）回复于 2003-06-02 17:14:19 得分 0
1楼的虽然不是我想要的TREEVIEW树型控件的方法,不过也可试一下,二楼的谢谢你了,三楼的十分感谢,不过没调试了一下,总是说不支持此方法(增加节点时),不知道怎么回事,但是先谢谢你们了,一楼100分,二楼50分,三楼100分,谁能把楼上那位的TREEVIEW控件使用方法完整的贴一下啊,小弟不才,还是500分奖励,再次谢谢楼上3位Top
