📄 复件 department_tree.asp

📁 北京华信东方网络办公系统

💻 ASP

字号:

<%@ Language=VBScript %>
<html>
<head>
<meta name="GENERATOR" Content="Microsoft Visual Studio.NET 7.0">	
<link href="../../js/hystudio.css" rel="stylesheet" type="text/css">
<!--#include file= "../dbase.asp"-->
</head>
<body>
<%
dim rs
set rs=server.CreateObject("adodb.recordset")
sql=" SELECT v_DepartmentCode, v_DepartmentName, i_ID, v_logo "&_
	" FROM hxdf_department_form "&_
	" ORDER BY v_DepartmentCode "
	rs.Open sql,conn,1,1
if not rs.EOF then
rstree=rs.GetRows
else
dim rstree(2,0)
rstree(0,0)="00"
rstree(1,0)="部门没有初始化"
rstree(2,0)=""
end if
rs.Close
dim codelength
codelength=len(rstree(0,0))
%><table><tr><td>
华信东方
<%for i= 0 to ubound(rstree,2)%>
<%
if codelength < len(rstree(0,i)) then
response.Write("</td></tr></table>")
response.Write("<table id='t"& rstree(0,i-1) &"' style='display:none'><tr><td>")
codelength = len(rstree(0,i))
elseif codelength > len(rstree(0,i)) then
response.Write("</td></tr></table>")
response.Write("<table id='t"& rstree(0,i-1) &"' onclick=""if (t"& rstree(0,i) &") t"& rstree(0,i) &".style.display=''""><tr><td>")
codelength = len(rstree(0,i))
else
response.Write("</td></tr>")
response.Write("<tr><td onclick=""if (t"& rstree(0,i) &") t"& rstree(0,i) &".style.display=''"">")
end if
for j=1 to len(rstree(0,i))
response.Write("&nbsp;&nbsp;")
next
response.Write(rstree(1,i))%>
<%next%></td></tr>
</table>

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -