📄 tree.asp

📁 OFFICE办公自动化
💻 ASP
字号:
<%@ Language=VBScript%>
<%response.buffer=false%>
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/const.asp"-->
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" href="../css/main.css" type=text/css>
<SCRIPT LANGUAGE=javascript>
function showhide(objspan)
{
//显示，隐藏区域，达到菜单显示的目的
var temp;
eval("temp=oSpan"+objspan+".style.display");
if(temp=="none")
{
eval("oSpan"+objspan+".style.display='block'");
eval("oImg"+objspan+".src='../images/close.gif'");
}
else
{
eval("oSpan"+objspan+".style.display='none'");
eval("oImg"+objspan+".src='../images/open.gif'");
}

}//end function
//-----------------------------Client Code End--------------------------
//-->
</SCRIPT>
<style type="text/css">
<!--
.item{ font-size:14px}
-->
</style>
</HEAD>
<BODY class=td2 OnLoad="showhide('00')">
<img src="../images/tree.gif" align="absmiddle"> 地区列表
<hr>
<table width="100%">

<tr><td valign=top>
<%
'''''''''''''''''''''''''''''''Server code start'''''''''''''''''''''''''''''''

dim layer,seqer,rowcount,colcount ''全局变量定义
layer=0 '''树的层次计数器，初始化为0
seqer=0 '''顺序号计数器，初始化为0
rowcount=0 '''树组的第一维数
colcount=0 '''树组的第二维数
function listchild(id)
''参数:树的根结点ID
''可变部分：
''erect.gif,blank.gif,link.gif,line.gif,open.gif,close.gif 各图片的
''说明：在本程序中作了这样的假设，你的树在数据库存储的方法为 tree{ID,nodeName,ParentID,...}
''不要在未看清楚之前修改任何一条语句
''在代码中，在editable start 与editable end 之间的未可修改内容

dim parid,i,blnchild,lastobji
dim lastseqer
lastobji="" '本级的最后一个对象i值,初始化为空
parid=id '
i=0 '基数0
blnchild=false '该节点是否有子节点，初始化为false
lastseqer=0 '上一个节点的顺序号，初始化为0，及
while(i<rowcount)
    if(treedata(i,2)=parid) then
       lastobji=i '
    if(seqer-lastseqer>1 and lastseqer<>0) then
       k=lastseqer+1
       Response.write("<script language=javascript>")
       while(k<seqer )
          Response.write("oerectImg"&layer&k&".src='../images/erect.gif';")
          k=k+1
       wend
       Response.Write("</script>")
     end if
     j=0
     while(j<layer)
        Response.Write("<img id='oerectImg"&j&seqer&"' src='../images/blank.gif' border=0 align='absmiddle'>")
        '#b01# Response.Write("<img src='../images/blank.gif' border=0 align='absmiddle'>")
        ''如果觉得垂直线之间的宽度小了，可以去掉#b01# ,#b02#两条语句的注释，同时也可以通过更改图片的大小以达目的
        j=j+1
     wend

     Response.Write("<img id='olinkImg"&parid&i&"' src='../images/link.gif' border=0 align='absmiddle'>")
    '#b02# Response.Write("<img src='../images/line.gif' border=0 align='absmiddle'>")
    Response.Write("<img id='oImg"&parid&i&"' style='cursor:hand' src='../images/open.gif' border=0 align='absmiddle' onclick=showhide('"&parid&i&"')>")

    ''''''''''''''''''''''editable start'''''''''''''''''''''''''''''''''''''''
    Response.write("<span class=item>&nbsp;</span><nobr><a href='list.asp?id="&treedata(i,0)&"' target='Right' style=''>"&HtmlOut(treedata(i,1))&"</a></nobr>")

    ''上面一行用户可以自行添加修改一满足实际情况。
    ''''''''''''''''''''''editable end'''''''''''''''''''''''''''''''''''''''

    Response.Write("<br>")

lastseqer=seqer '取值在先，递加在后，其中lastseqer是局部变量，其值不会与seqer同步
seqer=seqer+1 '顺序号加一
layer=layer+1 '进入递归，层次layer加一
Response.write("<span id='oSpan"&parid&i&"' style='display:none '>")
if(listchild(treedata(i,0))=false) then
Response.write("<script language=javascript>oImg"&parid&i&".src='../images/leaf.gif';")
Response.write("oImg"&parid&i&".onclick='';")
'Response.write("oImg"&parid&i&".style='cursor:nw-resize';")''改变光标类型
Response.write("</script>")
end if
''''如果没有下一级，则修改前面的图标为close.gif
Response.write("</span>")
blnchild=true
end if
i=i+1

wend
if(lastobji<>"") then
Response.write("<script language=javascript>olinkImg"&parid&lastobji&".src='../images/../images/lineleaf.gif';</script>")
end if
layer=layer-1 '退出递归，层次减一
listchild=blnchild '返回是否有子节点
end function
%>
<%
//strconn="at"
strsql="select * from TbioaAreaSort"
strsqlTemp="select count(ID) as CountID from TbioaAreaSort"
''SQL 语句书写要求：在记录集的前面三个字段必须依次为：ID（惟一的主键）、Name（菜单条显示的内容）、ParentID（父节点ID),其它根据需要输出与显示
'set conn=server.createobject("ADODB.connection")
'conn.open strconn

set rs=server.createobject("ADODB.Recordset")
rs.open strsql,oConn,1,3
rs.MoveFirst

set rs1=server.createobject("ADODB.Recordset")
rs1.open strsqlTemp,oConn,1,3

%>
<%

rowcount=rs1("CountID")
'response.write rowcount
colcount=3 '这个值根据实际情况设定
dim treedata,i,j
redim treedata(rowcount,colcount)
rs.MoveFirst
i=0
while(not rs.EOF)
j=0
while(j<colcount)
	treedata(i,j)=rs.Fields(j).Value
j=j+1
wend
rs.MoveNext
i=i+1
wend
rs.Close
set rs=nothing

'''''''初始化完毕数组

Response.write("<span id='treeroot' style='display:block' border=0>")
Response.Write("<bold><img src='../images/lineleaf12.gif' border=0 align='left'>　<a href=map.asp target=Right>地区类别结构</a></bold><br>")
listchild(0)
Response.write("</span>")

''''''''''''''''''''''''''''''''Server Code END '''''''''''''''''''
%></td>
</tr></table>
</BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -