<!-- #include file="conn.asp" -->
<!-- #include file="const.asp" -->
<%call chksun1()%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=dianming%> -三众科技荣誉出品</title>
<link href="../images/sunzom.css" rel="stylesheet" type="text/css"> 
</head>
<body scroll="no" <%if instr(allsx,"userkey")>0  and jiam=1 then%>onload="SendKeyInfo()"<%end if%>>
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgColor="#cccccc" style="color:#FFFFFF; font-size:12px;">
  <tr>
    <td height="38">
<script type=text/javascript>
function menuFix() {var sfEls = document.getElementById("nav1").getElementsByTagName("li");
for (var i=0; i<sfEls.length; i++) {
sfEls[i].onmouseover=function() {this.className+=(this.className.length>0? " ": "") + "sfhover";}
sfEls[i].onMouseDown=function() {this.className+=(this.className.length>0? " ": "") + "sfhover";}
sfEls[i].onMouseUp=function() {this.className+=(this.className.length>0? " ": "") + "sfhover";}
sfEls[i].onmouseout=function() {this.className=this.className.replace(new RegExp("( ?|^)sfhover\\b"),"");}}}
window.onload=menuFix;
</script>
<DIV id="nav1">
<%
if instr(allsx,"kjcd")>0 then
Response.Write "<LI>  <input type=""button"" value=""快捷菜单"">  <ul><dl "&mulu("desk.asp")&">返回桌面</dl>"
sql="select top 10 * from SZ_cd where instr(cdsx,'iskj')>0 and cdzt=1  order by cdpx desc,id asc"
set rsc2=conn.execute(sql)
if not rsc2.bof then
do while not rsc2.eof
id2=chk0(rsc2("id")):cdurl=rsc2("cdurl"):cdlx=rsc2("mxlx"):bbid=chk0(rsc2("bbid")):sid=rsc2("kzurl")
if bbid>0 then gid=bbid
cdurl=cdmx(cdlx,cdurl,chk0(rsc2("mxid")),0,0,gid,chk0(rsc2("bbid")),chk0(rsc2("bbzq")),sid,id2,x1id,0)
if instr(quanxs,"c"&id2&"d")>0  or nowuserid=1 then  Response.Write "<dl "&mulu(cdurl)&">"&rsc2("cdname")&"</dl>"
rsc2.movenext
loop
end if
rsc2.close:set rsc2=nothing
Response.Write "</LI></ul>"
end if

dim shu,ii
sql="select * from sz_cd where cla1=0 and cdzt=1 order by cdpx desc,id asc"  
set rsc1 =server.createobject("ADODB.RecordSet")	
rsc1.open sql,conn,1,3
shu=rsc1.recordcount
if not rsc1.bof then
for ii=1 to shu
'if rsc1.eof then exit for

id1=chk0(rsc1("id"))
cdurl1=rsc1("cdurl")
sid1=rsc1("kzurl")
cdlx1=rsc1("mxlx")
mx1id=chk0(rsc1("mxid"))

cdurl1=cdmx(cdlx1,cdurl1,mx1id,0,0,gid,chk0(rsc1("bbid")),chk0(rsc1("bbzq")),sid1,id1,x1id,0)

if instr(quanxs,"c"&id1&"d")>0 or nowuserid=1 then
if mx1id>0 then
Response.Write "<LI>  <input  "&mulu(cdurl1)&" type=""button"" value="""&rsc1("cdname")&""">  <ul>"
else
Response.Write "<LI>  <input type=""button"" value="""&rsc1("cdname")&""">  <ul>"
end if

sql="select * from SZ_cd where cla1="&id1&" and cdzt=1  order by cdpx desc,id asc"
set rsc2=conn.execute(sql)
if not rsc2.bof then
do while not rsc2.eof
id2=chk0(rsc2("id"))
cdurl=rsc2("cdurl")
sid=rsc2("kzurl")
cdlx=rsc2("mxlx")
cdurl=cdmx(cdlx,cdurl,chk0(rsc2("mxid")),0,0,gid,chk0(rsc2("bbid")),chk0(rsc2("bbzq")),sid,id2,x1id,0)
if instr(quanxs,"c"&id2&"d")>0  or nowuserid=1 then  Response.Write "<dl "&mulu(cdurl)&">"&rsc2("cdname")&"</dl>"
gid=0
rsc2.movenext
loop
end if
rsc2.close:set rsc2=nothing

Response.Write "</LI></ul>"
end if
aa=ii
rsc1.movenext
next
end if
rsc1.close:set rsc1=nothing
%>

<%if instr(quanxs,"x0t")>0 then%>
<li><input type="button" value="系统设置"><ul>
<%if instr(quanxs,"x1t")>0 then%><dl <%=mulu("system/config.asp")%>>基本信息设置</dl><%end if%>
<%if instr(quanxs,"x5t")>0 then%><dl><a <%=mulu("system/zu.asp")%>>部门管理</a>｜<a <%=mulu("system/zu_add.asp")%>>增加</a></dl><%end if%>
<%if instr(quanxs,"x6t")>0 then%><dl><a <%=mulu("system/zw.asp")%>>职位设置管理</a></dl><%end if%>
<%if instr(quanxs,"x7t")>0 then%><dl <%=mulu("system/user.asp")%>>员工设置管理</dl><%end if%>
<%if instr(quanxs,"x8t")>0 then%><dl <%=mulu("system/backup.asp")%>>数据库管理</dl><%end if%>
<%if instr(quanxs,"x9t")>0 then%><dl <%=mulu("system/rizi.asp")%>>系统操作日志</dl><%end if%>
</ul></li><%end if%>
</DIV>
</td>
    <td align="right" class="kjcd">
<%if instr(allsx,"isweb")>0 then%><a href="/index.asp">WEB首页</a><%end if%>
    <a href="/main.asp">左右版</a> <a href="system/user_modi_mima.asp" target="right">修改密码</a>
	  <A class=blue href="javascript:parent.location.href='exit.asp'" onClick="return confirm('确定要退出吗？');">退出系统</A>
	  &nbsp;&nbsp;
	</td>
  </tr>
</table>
<iframe src="desk.asp" name='right' id='right1' marginwidth="1" marginheight="1" width="100%" scrolling="yes" border="0" frameborder="0"  height="89%"></iframe>
<TABLE height="20" cellPadding=0 width="100%" border=0 bgcolor="#3A6592" id="boot">
        <TR>
          <TD align=right><img src="images/erp.gif" title="当前用户"></TD><TD align=right><%=nowuser%></TD>
          <TD align=right><img src="images/HardWare.gif"  title="所在部门"></TD>
		  <TD align=left><%=nowzw%>(<%=nowzu%>)</TD>
		  <TD align=right><img src="images/Announce.gif"></TD>
          <TD width="*"><MARQUEE onmouseover=this.stop() onmouseout=this.start() scrollAmount=1 scrollDelay=4 width=500 align="left"><%=gonggao%></MARQUEE></TD>
          <TD align=right>开发：<a target="_blank" href="http://www.sunzom.com"><font color="#FFFFFF"><span style="text-decoration: none">连云港三众软件科技有限公司</span></font></a>  服务热线：4006-0518-00
  </TD></TR></TABLE>
</body></html>

