test.asp

武汉软件园人力资源管理系统完整源代码,希望大家能够多多交流.

<!--#include file="../Include/conn.asp"-->
<!--#include file="../Include/Syscheck.asp"-->
<%
Response.Buffer=false
Response.CharSet="GB2312"
call checkin_sys(session("UsersId"),session("PerId"),36)
dim op,res,usertype,sqlstr,i

op=Request.QueryString("op")
usertype=Request.QueryString("usertype")
set res=server.CreateObject("ADODB.recordset")

if op="" then
    dim currentpage,rowcount
    currentpage=Request.QueryString("page")
    if currentpage="" then
    currentpage="1"
    end if

	dim p_name

	if usertype="ad" then
	    sqlstr="select distinct a.users_id as '用户编号',a.users_name as '用户名',b.personnel_name as '员工姓名',c.dept_name as '部门',d.post_name as '岗位' from users as a inner join personnel as b on a.personnel_id=b.personnel_id inner join dept as c on b.dept_id=c.dept_id inner join post as d on b.post_id=d.post_id inner join roleuser as e on a.users_id=e.users_id"
	    res.Open sqlstr,conn,3,1
        if res.RecordCount=0 then
           Response.Write "无符合条件记录!"
        else
	    res.PageSize=5
	    res.AbsolutePage=currentpage
		Response.Write "<table border='1'width='100%'align='center' cellspacing='0' cellpadding='0' class='table1'>" 
		Response.Write "<tr height='22'>"
		for i=0 to res.Fields.count-1
		    Response.Write "<td class='td1'>"&res.Fields(i).name&"</td>"
		next
		Response.Write "<td class='td1'>操作选项</td>"
		Response.Write "</tr>"

		do while not res.EOF=true and rowcount<res.PageSize
		Response.Write "<tr height='22'>"
		    for i=0 to res.Fields.count-1
		        Response.Write "<td>"&res.Fields(i).Value&"</td>"            '
		    next
		%>
		<td><a href="#" onclick="javascript:ajaxfuct('<%=res.Fields(0).Value%>','1')">角色设置</a></td>
		<%
		Response.Write "</tr>"
		res.MoveNext
		rowcount=rowcount+1
		loop
	    Response.Write "</table>"
	%>
	    <center>
	    <a href="#" onclick="javascript:ajaxfuct('ad','',1)">首页&nbsp;&nbsp;
	    <a href="#" onclick="javascript:ajaxfuct('ad','',<%
	                                                       if currentpage-1<=1 then
	                                                           Response.Write "1"
	                                                       else
	                                                           Response.Write currentpage-1
	                                                       end if
	                                                     %>)">上页&nbsp;&nbsp;
	    <a href="#" onclick="javascript:ajaxfuct('ad','',<%
	                                                       if currentpage+1>=res.PageCount then
	                                                           Response.Write res.PageCount
	                                                       else
	                                                           Response.Write currentpage+1
	                                                       end if
	                                                     %>)">下页&nbsp;&nbsp;
	    <a href="#" onclick="javascript:ajaxfuct('ad','',<%=res.PageCount%>)">尾页 
	    </center>  
	<%  end if
	       
	else
	    p_name=mid(usertype,3,len(usertype)-2)                  '截出姓名
	    'Response.Write p_name
	    'Response.End 
	    sqlstr="select distinct a.users_id as '用户编号',a.users_name as '用户名',b.personnel_name as '员工姓名',c.dept_name as '部门',d.post_name as '岗位' from users as a inner join personnel as b on a.personnel_id=b.personnel_id inner join dept as c on b.dept_id=c.dept_id inner join post as d on b.post_id=d.post_id where b.personnel_name like '%'+'"&p_name&"'+'%' and a.users_id not in(select distinct users_id from roleuser)"	    
	    res.Open sqlstr,conn,3,1
        if res.RecordCount=0 then
           Response.Write "无符合条件记录!"
        else
	    res.PageSize=5
	    res.AbsolutePage=currentpage
	    
		Response.Write "<table border='1'width='100%'align='center' cellspacing='0' cellpadding='0' class='table1'>" 
		Response.Write "<tr height='22'>"
		for i=0 to res.Fields.count-1
		    Response.Write "<td class='td1'>"&res.Fields(i).name&"</td>"
		next
		Response.Write "<td class='td1'>操作选项</td>"
		Response.Write "</tr>"

		do while not res.EOF=true and rowcount<res.PageSize
		Response.Write "<tr height='22'>"
		    for i=0 to res.Fields.count-1
		        Response.Write "<td>"&res.Fields(i).Value&"</td>"            '
		    next
		%>
		<td><a href="#" onclick="javascript:ajaxfuct('<%=res.Fields(0).Value%>','1')">角色设置</a></td>
		<%
		Response.Write "</tr>"
		res.MoveNext
		rowcount=rowcount+1
		loop
	    Response.Write "</table>"
	%>
	    <center>
	    <a href="#" onclick="javascript:ajaxfuct('cm','',1)">首页&nbsp;&nbsp;
	    <a href="#" onclick="javascript:ajaxfuct('cm','',<%
	                                                       if currentpage-1<=1 then
	                                                           Response.Write "1"
	                                                       else
	                                                           Response.Write currentpage-1
	                                                       end if
	                                                     %>)">上页&nbsp;&nbsp;
	    <a href="#" onclick="javascript:ajaxfuct('cm','',<%
	                                                       if currentpage+1>=res.PageCount then
	                                                           Response.Write res.PageCount
	                                                       else
	                                                           Response.Write currentpage+1
	                                                       end if
	                                                     %>)">下页&nbsp;&nbsp;
	    <a href="#" onclick="javascript:ajaxfuct('cm','',<%=res.PageCount%>)">尾页
	    </center>   
<%	    end if
	end if


elseif op="1" then

	res.Open "select users_name from users where users_id="&usertype,conn,3,3
	Response.Write "当前用户:"&res.Fields(0).Value
	res.close
	res.Open "select distinct a.* from role as a inner join rolefunction as b on a.role_id=b.role_id",conn,3,3

	Response.Write "<table border='1'width='100%'align='center' cellspacing='0' cellpadding='0' class='table1'>"
	Response.write "<tr><td colspan='4' align='center'>角&nbsp;&nbsp;色&nbsp;&nbsp;名</td></tr>"

	i=0

	do while not res.EOF=true
	    if (i mod 4)=0 then           '每4列输出一行
	        Response.write "<tr>"
	    end if
	%>
	   <td width=25%""><INPUT type="checkbox" name=checkbox1 value="<%=res.Fields(0).Value%>" 
	              <%
	                 dim res1
                     set res1=server.CreateObject("ADODB.recordset")
                     res1.Open "select role_id from roleuser where users_id="&usertype,conn,3,3
                     do while not res1.EOF=true
                         if res1.Fields(0).Value = res.Fields(0).Value then
                             Response.Write "checked"
                         end if
                     res1.MoveNext
                     loop
                     res1.Close
                     set res1=nothing 
               	   %>><%=res.Fields(1).Value%></td>
	<%
	    i=i+1
	    dim j
	    res.MoveNext
	    if (i mod 4)=0 or res.EOF=true then     '每到4列时行结尾或者记录集读到最后时,行结尾
	        if res.EOF=true and (i mod 4)<>0 then     '如果记录集读到最后,最后一行列数未到4列时,则补到4列
	            for j=1 to 4-(i mod 4) 
	                Response.Write "<td>&nbsp;</td>"
	            next
	        end if
	    Response.write "</tr>"
	    end if
	loop
	%>

	<tr><td colspan='4' align='center'><a href="#" onclick="javascript: var num;
																		num=confirm('确认该用户的角色吗?');
																		if (num==true)
																		{
																		  var temp;
																		  temp=document.getElementsByName('checkbox1'); 
																		  var i;
																		  var j='';
																		  for(i=0;i<temp.length;i++)
																		  {
																		    if (temp[i].checked==true)
																		    {
																		      j=j+(temp[i].value+' ');   
																		    }
																		  }
																		  ajaxfuct(j+'<%=usertype%>','2');
																		}">确认</a>&nbsp;&nbsp;
		 <a href="#" onclick="javascript:if (document.s_user.sel_user.value!='ad')
                                               {
                                                 document.s_user.sel_user.value='ad';
                                               }
                                             checksel();		 
		                                    ">返回</a>
		 </td>
	</tr><!--选择时找出被选择的多选项,并将值联结成用空格分隔的字符串,最后一个字符是id号-->
	<%
	Response.Write "</table>"
%>
    <center>
<%

elseif op="2" then

	dim role_array
	role_array=split(usertype)

	conn.execute "delete roleuser where users_id="&role_array(ubound(role_array))      '先删除原有记录,id号为数组的最后一个元素

	for i=0 to ubound(role_array)-1
	    conn.execute "insert roleuser values("&role_array(ubound(role_array))&","&role_array(i)&")"
	next

	if err.number=0 then
	    Response.Write "设置成功！"
	else
	    Response.Write "设置失败！"
	end if
%>
    <center><a href="#" onclick="javascript:if (document.s_user.sel_user.value!='ad')
                                               {
                                                 document.s_user.sel_user.value='ad';
                                               }
                                             checksel();
                                               ">返回</a></center>
<%

end if


if res.State=1 then
    res.Close
end if
set res=nothing
conn.close
set conn=nothing
%>