📄 zuzhi.asp
字号:
<%
'////////////////////////////////////////////////////////////////
'/////文 件 名：/css.asp
'/////程序名称：组织机构目录程序
'/////所属模块：公共
'/////输入接口：1、Session变量:
'///// <1>:oconn:系统数据库连接
'///// 2、Include File:
'///// <1>:/css.asp 样式表
'///// <2>:/js/menu.js 动态菜单产生程序
'/////创建日期：2002-5-10
'/////创 建 人：罗向东
'/////修改记录：
'///// 2002-7-24 罗向东 代码归整
'////////////////////////////////////////////////////////////////
Option Explicit
%>
<html>
<title>立人管理信息-组织机构</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!-- #include file="../inc/css.asp" -->
<script language=JScript src="../js/menu.js"> </script>
<style>
BODY {
margin : 0;
padding : 0;
color : ButtonText;
font : 9pt ;
border-color : ThreeDShadow ThreeDHighlight ThreeDHighlight ThreeDShadow;
border-style : solid;
border-width : 1px;
background: url(../images/<%=session("vleftbackimage")%>)}
td { font-size: 9pt; font-family: Verdana }
</style>
<body onLoad="constructmenu();" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" scroll=no class=vtext>
<ul id="mytree" style="display:none;" org=0 colorborder="<%=Session("vsubmenubordercolor")%>" color1="<%=Session("vsubmenubackcolor")%>" color2="#ffffff" img1="../images/<%=Session("vsubmenuimage")%>">
<%
dim t1,t2,temps
'产生组织列表
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from department where vnumber>0 order by vorder,vorder2",oconn,1,1
t1=""
t2=""
temps=""
while not rs.eof
if rs("vstyle") <> temps then
response.write( t1 & t2 & "</li>" )
t1="<li value='" & rs("vstyle") & "'>"
t2=""
end if
t2=t2 & "<ul alt='' imgsrc='' value='" & rs("vname") & "' href='department/disp.asp?Number=" & rs("vnumber") & "'></ul>"
temps=rs("vstyle")
rs.movenext
wend
response.write(t1 & t2 & "</li>")
RS.CLOSE
SET RS=NOTHING
%>
</ul>
<div id="menu">
</div>
<form name="auto1" action="<%=session("ZhuZhiStartPage")%>" target="main">
</form>
<script language=javascript>
document.all.auto1.submit()
</script>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -