📄 dbtree.asp

📁 物业管理和办公自动化系统
💻 ASP
字号:
<%@ Language=VBScript %>
<% Response.expires = 0%>
<!-- #include file="..\wuye\include\common.inc" -->
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<SCRIPT LANGUAGE=javascript>
<!--// --------------------------Client Code Start-------------------------------
/*
''''''''''''''''''''''''''''''''''''''''''''''
''功能：树形结构的显示（树形菜单） 
''说明：该程序容易理解，算法清晰，您只需使用，无需做什么修改就可以适用于各种环境
''使用中如遇问题，请与我联系
''Version 1.0
''作者：陶建波 taojianbo@263.net

''**NEW**２００１．１０．１０陶建波
''性能评测：
''　　以本程序所提供的算法，对处理少量的数据来说，是一种简单快捷的方法，但是如果是大量的数据呢
''比如：数据库的记录达到1k（千）,1m（百万）会如何呢？如果是用来人口统计呢？
''假设树的平均层次为layer,记录数为n,则计算：
''文件大小：length=2000(附加的固定大小部分)+(layer*130+280+$)*n
'' $的大小有layer,n与实际情况决定，但一般大于100
''最后计算length，文件的大小可能是nk
''由此看来，该算法不适用与大的数据量的情况，请用户考虑好
''为了改变这种不利情况，最新的算法版本请见powertree.asp,该程序将在目前功能的基础上着重考虑性能问题
'''''''''''''''''''''''''''''''''''''''''''''''
*/
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">
<!--
body		{font-size:9pt;
		scrollbar-face-color:#dddddd;
		scrollbar-shadow-color:white;
		scrollbar-highlight-color:white;
		scrollbar-3dlight-color:#508CFF;
		scrollbar-darkshadow-color:#508CFF;
		scrollbar-track-color:#FFFFFF;
		scrollbar-arrow-color:#508CFF}
#treeroot	{font-size:9pt;}
a:link		{ font-size: 9pt; color: #000000; text-decoration: none;}
a:visited	{ font-size: 9pt; color: #000000; text-decoration: none;}
a:hover		{ font-size: 9pt; color: #0000FF; background-color: #FFFFFF; text-decoration: none; font-weight:600}
a:active	{ font-size: 9pt; color: #000000; background-color: #FFFFFF; text-decoration: none}
.item		{ font-size: 9pt}
-->
</style>
</HEAD>
<BODY leftmargin=0 rightmargin=0>
<table border=0 cellspacing=0 cellpadding=0 height="100%" width="100%">
<tr><td valign=top nowrap>
<%
'''''''''''''''''''''''''''''''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{row_id,nodename,par_id,...}
	''不要在未看清楚之前修改任何一条语句
	''在代码中，在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><a style='cursor:hand' onclick=""javascript:parent.document.all.content.src='contents/" & treedata(i,3)& "';oImg"&parid&i&".onclick();"">" & treedata(i,1)& "</a>")
			Response.write("<span class=item>&nbsp;</span><a style='cursor:hand' onclick=""javascript:parent.document.all.content.src='contents/" & treedata(i,3)& "';"">" & treedata(i,1)& "</a>")

			''上面一行用户可以自行添加修改一满足实际情况。
			''''''''''''''''''''''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=""JScript:window.event.returnValue=true;"";")
				'Response.write("oImg"&parid&i&".onclick=""javascript:window.alert('aaa');"";")
				'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/lineleaf.gif';</script>")
	end if
	layer=layer-1 '退出递归，层次减一
	listchild=blnchild '返回是否有子节点
end function
%> 

<%
''SQL 语句书写要求：
'' 在记录集的前面三个字段必须依次为：row_id（惟一的主键）、name（菜单条显示的内容）、par_id（父节点row_id)，其它根据需要输出与显示

strsql="select id as row_id, description as name, parent_id as par_id, url from T_Help order by row_id"

dim conn, rs
Set conn=DBConnection
Set rs = OpenStaticRs(conn, strsql)
'response.write strsql
'response.end
'set rs = crs.OpenStatic(dbLocal, strsql)
rs.MoveFirst

rowcount=rs.RecordCount 
'response.write rowcount
'response.end
colcount=4 '这个值根据实际情况设定
dim treedata,i,j
redim treedata(rowcount,colcount)
rs.MoveFirst
i=0
'response.write rs.Fields(0).Value&"<br>"
'response.write rs.Fields(1).Value&"<br>"
'response.write rs.Fields(2).Value&"<br>"
'response.write rs.Fields(3).Value&"<br>"
'
'treedata(0,0)=rs.Fields(0).Value
'treedata(0,1)=rs.Fields(1).Value
'treedata(0,2)=rs.Fields(2).Value
'treedata(0,3)=rs.Fields(3).Value
'response.end
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

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

Response.write("<span id='treeroot' style='display:block' border=0>")
Response.Write("<span style='color:#508CFF;font-weight:600;font-size:11pt'>信息大楼OA帮助系统</span><br>")
listchild(0)
Response.write("</span>")
rs.Close()
''''''''''''''''''''''''''''''''Server Code END '''''''''''''''''''
%></td>

</tr></table>
</BODY>
</HTML>
💿 文件大小 16987 K
👤 上传用户 jzp_home_2009
📂 所属分类 OA系统
🏷️ 相关标签

#物业管理 #办公自动化系统
⌨️ 快捷键说明

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