?? zuzhi.asp
字號:
<%
'////////////////////////////////////////////////////////////////
'/////文 件 名:/css.asp
'/////程序名稱:組織機構(gòu)目錄程序
'/////所屬模塊:公共
'/////輸入接口:1、Session變量:
'///// <1>:oconn:系統(tǒng)數(shù)據(jù)庫連接
'///// 2、Include File:
'///// <1>:/css.asp 樣式表
'///// <2>:/js/menu.js 動態(tài)菜單產(chǎn)生程序
'/////創(chuàng)建日期:2002-5-10
'/////創(chuàng) 建 人:羅向東
'/////修改記錄:
'///// 2002-7-24 羅向東 代碼歸整
'////////////////////////////////////////////////////////////////
Option Explicit
%>
<html>
<title>立人管理信息-組織機構(gòu)</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
'產(chǎn)生組織列表
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>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -