📄 on_dept.asp
字号:
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office">
<!--[if !mso]>
<style>
v\:* { behavior: url(#default#VML) }
o\:* { behavior: url(#default#VML) }
.shape { behavior: url(#default#VML) }
</style>
<![endif]-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>人力资源管理系统</title>
<link href="../Include/type.css" rel="stylesheet" type="text/css">
</head>
<body >
<!--#include file="../Include/conn.asp"-->
<!--#include file="../Include/Head.asp"-->
<!--#include file="../Include/Syscheck.asp"-->
<div id="content" style="position:absolute; width:90%; z-index:1; left: 48px; top: 168px;"><!--内容开始-->
<div id="childmenu" style="position:absolute;top:60px;left:2%;width:12%;height:80px;z-index:2;"><!--子菜单-->
<li><a href="On_numbers.asp">基于人数分析</a></li>
<li><a href="On_dept.asp">基于部门分析</a></li>
</div><!--子菜单结-->
<div id="mainop" style="position:absolute; width:80%; height:90%; z-index:2; left: 18%; top: 0px;"><!--主操作开始-->
<div id="condt" style="position:absolute; width:50%; z-index:2; left: 0; top: 30px;"><!--分析条件开始-->
<%
call checkin_sys(session("UsersId"),session("PerId"),28)
dim con_f,dept_f,res
con_f=Request.QueryString("select1")
dept_f=Request.QueryString("select2")
set res=server.CreateObject("ADODB.recordset")
%>
<form name="se_condt" method="get" action="On_dept.asp">
<select name="select2" onchange="javascript:document.getElementById('select1').children[0].selected=true;document.getElementById('view').innerHTML=''">
<option value="" <%if dept_f="" then
Response.Write "selected"
end if
%>>-请选择-
<%
res.Open "select dept_id,dept_name from dept where dept_state='启用' and dept_level<>1",conn,1,1
do while not res.EOF=true
%>
<option value="<%=res("dept_id")%>" <%if dept_f<>"" then
if cint(dept_f)=res("dept_id") then
Response.Write "selected"
end if
end if%>><%=res("dept_name")%>
<%
res.MoveNext
loop
res.close
%>
</select>
<select name="select1" id="select1" onchange="javascript:document.se_condt.submit();">
<option value="" <%if con_f="" then
Response.Write "selected"
end if%>>-请选择-</option>
<option value="gz" <%if con_f="gz" then
Response.Write "selected"
end if%>>按工作性质</option>
<option value="zt" <%if con_f="zt" then
Response.Write "selected"
end if%>>按员工状态</option>
<option value="jb" <%if con_f="jb" then
Response.Write "selected"
end if%>>按行政级别</option>
<OPTION value="xl" <%if con_f="xl" then
Response.Write "selected"
end if%>>按学历</OPTION>
<OPTION value="xb" <%if con_f="xb" then
Response.Write "selected"
end if%>>按性别</OPTION>
</select>
</form>
</div><!--分析条件结束-->
<div id="view" style="position:absolute; width:66%; z-index:2; left: 34%; top:30px; background-color:#eeeeee"><!--查询结果开始-->
<script type="text/javascript" src="zhu.js"></script>
<script type="text/javascript">
var dataArray = new Array();
var nameArray = new Array();
function indata(data,name) //向数据数组赋值；参数为数据，名称
{
var data_arr=data.split(",");
var name_arr=name.split(",");
var i;
for(i=0;i<data_arr.length-1;i++)
{
dataArray[i]=parseInt(data_arr[i]);
nameArray[i]=name_arr[i].toString();
}
}
function sedata(data,name) //调用控件
{
indata(data,name)
var total= new Array(dataArray,nameArray);
table1(total,80,30,20,30,400,200,document.getElementById("show"));
}
function setable(data,name)
{
indata(data,name);
var total= new Array(nameArray,dataArray);
var mytable=document.createElement("table");
var caption=document.createTextNode("人事分析");
mytable.createCaption().appendChild(caption);
var mytbody=document.createElement("tbody");
var i,j;
for(i=0;i<total.length;i++)
{
var row=document.createElement("tr");
for(j=0;j<total[i].length;j++)
{
var cell=document.createElement("td");
cell.setAttribute("align", "center");
if (i==0)
{cell.setAttribute("bgColor", "#eeeeee");}
else
{cell.setAttribute("bgColor", "#f8f8f8");}
var text=document.createTextNode(total[i][j]);
cell.appendChild(text);
row.appendChild(cell);
}
row.setAttribute("height","38");
mytbody.appendChild(row);
}
mytable.appendChild(mytbody);
mytable.setAttribute("border", "0");
mytable.setAttribute("align", "center");
mytable.setAttribute("width", "70%");
mytable.setAttribute("cellSpacing", "2");
mytable.setAttribute("cellPadding", "0");
mytable.setAttribute("class", "table1");
document.getElementById("show").innerHTML=""
show.appendChild(mytable);
}
</script>
<%
dim str_data,str_name
if con_f<>"" and dept_f<>"" then
if con_f="gz" then
res.Open "select work_property,count(work_property) as '人数' from personnel where (personnel_state='在职' or personnel_state='试用') and dept_id="&dept_f&" group by work_property",conn,1,1
do while not res.EOF=true
str_name=str_name&trim(res("work_property"))&","
str_data=str_data&trim(res("人数"))&","
res.MoveNext
loop
res.close
res.Open "select dept_name from dept where dept_id="&dept_f,conn,1,1
Response.Write res("dept_name")
res.close
elseif con_f="zt" then
res.Open "select personnel_state,count(personnel_state) as '人数' from personnel where (personnel_state='在职' or personnel_state='试用') and dept_id="&dept_f&" group by personnel_state",conn,1,1
do while not res.EOF=true
str_name=str_name&trim(res("personnel_state"))&","
str_data=str_data&trim(res("人数"))&","
res.MoveNext
loop
res.Close
res.Open "select dept_name from dept where dept_id="&dept_f,conn,1,1
Response.Write res("dept_name")
res.close
elseif con_f="jb" then
res.Open "select a.plevel_name,b.人数 from plevel as a inner join (select plevel_id,count(plevel_id) as '人数' from personnel where (personnel_state='在职' or personnel_state='试用') and dept_id="&dept_f&" group by plevel_id) as b on a.plevel_id=b.plevel_id",conn,1,1
do while not res.EOF=true
str_name=str_name&trim(res("plevel_name"))&","
str_data=str_data&trim(res("人数"))&","
res.MoveNext
loop
res.Close
res.Open "select dept_name from dept where dept_id="&dept_f,conn,1,1
Response.Write res("dept_name")
res.close
elseif con_f="xl" then
res.Open "select personnel_educ,count(personnel_educ) as '人数' from personnel where (personnel_state='在职' or personnel_state='试用') and dept_id="&dept_f&" group by personnel_educ",conn,1,1
do while not res.EOF=true
str_name=str_name&trim(res("personnel_educ"))&","
str_data=str_data&trim(res("人数"))&","
res.MoveNext
loop
res.Close
res.Open "select dept_name from dept where dept_id="&dept_f,conn,1,1
Response.Write res("dept_name")
res.close
elseif con_f="xb" then
res.Open "select personnel_sex,count(personnel_sex) as '人数' from personnel where (personnel_state='在职' or personnel_state='试用') and dept_id="&dept_f&" group by personnel_sex",conn,1,1
do while not res.EOF=true
str_name=str_name&trim(res("personnel_sex"))&","
str_data=str_data&trim(res("人数"))&","
res.MoveNext
loop
res.Close
res.Open "select dept_name from dept where dept_id="&dept_f,conn,1,1
Response.Write res("dept_name")
res.close
end if
%>
分析结果已得到!
<INPUT type="button" value="表格显示" name=button1 onclick="setable('<%=str_data%>','<%=str_name%>')">
<INPUT type="button" value="柱图显示" name=button2 onclick="sedata('<%=str_data%>','<%=str_name%>')">
<%
else
Response.Write "请选择分析条件！"
end if
%>
</div><!--查询结果结束-->
<div id="show" style="position:absolute; width:100%; z-index:3; left: 0; top:100px;" ></div><!--柱图显示-->
</div><!--主操作结束-->
<!--#include file="../Include/bottom.asp"-->
</div><!--内容结束-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -