📄 x_company.asp
字号:
<img src="skins/sb/0.png" width="50" height="50" /><b>新部门</b><br />
<input type="radio" name="q_l" value="1" <% if thiss=1 then Response.Write("checked=checked") %> />
<img src="skins/sb/1.png" width="50" height="50" /><b>新职位</b></td>
</tr>
<tr>
<td width="20%" align="right">新部门/职位属于：</td>
<td width="79%">
<%
'读部门ID
blei="顶层部门/职位,0"
brs.open ("select * from nnt_quan where q_s=0 and q_id<>0"&+editid&" "),conn,1,1
for bs=1 to int(brs.recordcount)
blei=blei&"||下属 "&brs("q_name")&","&brs("q_id")
if brs("q_id")=int(thislei) then
blei="默认下属 "&brs("q_name")&","&brs("q_id")&"||"&blei
end if
brs.movenext
next
brs.close
set brs=nothing
call nnt_select("q_lei",blei) %></td>
</tr>
<tr>
<td align="right">新部门/职位名称：</td>
<td><input name="q_name" type="text" class="nnt_input" id="q_name" value="<%= thisname %>" /></td>
</tr>
<tr>
<td align="right" valign="top">部门/职位介绍：</td>
<td><textarea name="q_jie" cols="70" rows="4" id="q_jie"><%= lei_jie %></textarea>
<br />
此信息将显示在对内对外公开位置请认真填写</td>
</tr>
<tr>
<td align="right">部门/职位权限：</td>
<td><input name="q_quan" type="radio" value="0" <% if thisquan=0 then Response.Write("checked=checked") %> />
个人管理
<input type="radio" name="q_quan" value="1" <% if thisquan=1 then Response.Write("checked=checked") %>/>
部门管理
<input type="radio" name="q_quan" value="2" <% if thisquan=2 then Response.Write("checked=checked") %>/>
公司管理
<input type="radio" name="q_quan" value="3" <% if thisquan=3 then Response.Write("checked=checked") %>/>
<font color="#FF3300"> 超级管理员</font></td>
</tr>
<tr>
<td align="right">
部门/职位业务类：</td>
<td><% set lrs= Server.CreateObject("adodb.recordset")
lrs.open ("select * from nnt_ylei order by y_id "),conn,1,1
if lrs.eof then Response.Write("无业务类")
for lx=1 to int(lrs.recordcount) %>
<input name="y_lei" type="checkbox" value="|<%= lrs("y_id") %>|" <% if instr(thisylei,"|"&lrs("y_id")&"|")>0 then Response.Write("checked=checked") %> /><%= lrs("y_name") %>
<%lrs.movenext
next
lrs.close
set lrs=nothing %>
<br />
<font color="#CCCCCC">不设置则自动继承上级</font></td>
</tr>
<tr>
<td align="right"> </td>
<td><input name="Submit2" type="submit" class="nnt_submit" value="提交" /></td>
</tr></form>
</table>
<% case else
qleiid=Trim(Request.QueryString("qleiid"))
set lrs= Server.CreateObject("adodb.recordset")
if qleiid<>"" then
'生成当前位置,
qleis=split(qleiid,"||")
for qs=0 to ubound(qleis)
clei=replace(qleis(qs),"|","")
hrefs=hrefs&"|"&clei&"|"
dleinames=dleinames&" > <a href='?chuli=bumen&l=0&qleiid="&hrefs&"'>"&request.cookies("q_"&clei)("qname")&"</a>"
next
'获得最后一个ID为当前类
thisleiid=clei
lrs.open ("select * from nnt_quan where q_id="&thisleiid&" "),conn,1,1
thisleiname=lrs("q_name")
thisjie=lrs("q_new")
thisshangji=lrs("q_lei")
thiss=lrs("q_s")
lrs.close
thisjief=split(thisjie,"[||@@@@||]")
lei_jie=thisjief(0)
end if
%>
<style type="text/css">
<!--
.quanlei {
padding: 5px;
height: 50px;
width: 20%;
float: left;
margin: 5px;
}
.quanlei:hover {
padding: 4px;
border: 1px solid #9DCEFF;
}
-->
</style>
<% if thisleiid<>"" then %>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td colspan="2" class="td_heng">当前位置：<a href="x_company.asp?chuli=bumen&l=0">公司部门列表首页</a><%= dleinames %></td>
</tr>
<tr>
<td><img src="skins/sb/<%= thiss %>.png" width="30" align="absmiddle" /><b><font color="#000000" size="2"><%= thisleiname %> </font></b></td>
<td width="28%"> </td>
</tr>
<tr>
<td height="80" valign="top"><%= left(lei_jie,150) %>......
</td>
<td valign="top"><a href="x_company.asp?chuli=bumen&l=1&editid=<%= thisleiid %>"><img src="skins/sb/feedicon_028.png" border="0" /> 修改</a><br />
<a href="c_company.asp?chuli=delbumen&delid=<%=thisleiid%>&fanid=<%= thisshangji %>"><img src="skins/sb/feedicon_034.png" border="0" /> 删除</a></td>
</tr>
</table>
<% End If %>
<%
if thisleiid<>"" then
lrs.open ("select * from nnt_quan where q_lei='"&thisleiid&"' order by q_s "),conn,1,1
else
lrs.open ("select * from nnt_quan where q_lei='0' order by q_s "),conn,1,1
end if
if not lrs.eof then Response.Write("<div class='td_heng'>下属部门/职位列表</div>")
for ql=1 to int(lrs.recordcount)
%>
<a href='?chuli=bumen&l=0&qleiid=<%= qleiid %>|<%= lrs("q_id") %>|' class="quanlei" ><img src="skins/sb/<%= lrs("q_s") %>.png" border="0" /><br />
<%= lrs("q_name") %> </a>
<%
lrs.movenext
next
lrs.close
set lrs=nothing
end select %>
<% case ""
set rs= Server.CreateObject("adodb.recordset")
rs.open ("select * from nnt_quan where q_s=0 "),conn,1,1
bumenzongshu=int(rs.recordcount)
rs.close
rs.open ("select * from nnt_quan where q_s=1 "),conn,1,1
zhiweishu=int(rs.recordcount)
rs.close
rs.open ("select * from nnt_ylei "),conn,1,1
yewuleishu=int(rs.recordcount)
rs.close
set rs=nothing %>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td colspan="2" class="td_heng">公司信息概括</td>
</tr>
<tr>
<td>公司总部门数：<%= bumenzongshu %></td>
<td>公司总职位：<%= zhiweishu %></td>
</tr>
<tr>
<td>公司总业务类：<%= yewuleishu %></td>
<td> </td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td class="td_heng">公司设置面板 功能介绍</td>
</tr>
<tr>
<td><b>公司基本设置</b></td>
</tr>
<tr>
<td>公司的一些基本信息填写,设置系统logo</td>
</tr>
<tr>
<td><b>公司业务类设置</b></td>
</tr>
<tr>
<td>设置您公司的几大业务类型,方便分配给每个部门对应的权限,职员在提交业务时和业务查询时需要使用.</td>
</tr>
<tr>
<td><b>公司部门设置</b></td>
</tr>
<tr>
<td>分配公司部门,以及部门下的职位,整个系统必须的设置.并可以给每个职位设置对应的权限和业务类.</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<% end select %>
</td>
<td background="skins/list/l7.gif"> </td>
</tr>
<tr>
<td><img src="skins/list/l4.gif" width="7" height="8" /></td>
<td background="skins/list/l5.gif"></td>
<td><img src="skins/list/l6.gif" width="8" height="8" /></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="x_di.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -