func_userlist.asp

企业办公简单管理系统,可以发布信息以及论坛

<SCRIPT LANGUAGE="JavaScript">
<!--
	function MM_jumpMenu(targ,selObj,restore)
	{ //v3.0
	  	eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
	  	if (restore) selObj.selectedIndex=0;
	}
	function DoSubmit0(value)
	{
		document.selectform.id.value=value;
		document.selectform.submit();
	}

	function DoSubmit1(value,value2)
	{
		if(value2==1)
		{
			if(!confirm("删除后将无法恢复，一定要删除吗？"))
				return;	
		}
		document.deleform.deleteid.value=value;
		document.deleform.deleteflag.value=value2;
		document.deleform.submit();
	}
	
	function CheckInput()
{
	if(!dochange(document.theform.telephone))
		return false;
	
	return true;
}	
function dochange(object)
{
		var i,strText,s;
		s=object.value;
		strText="请输入正确值，必须用阿拉伯数字填写";
		 for (i = 0; i < s.length; i++)
		{   
			// Check that current character is number.
			var c = s.charAt(i);
			if (!(((c >= "0") && (c <= "9")) || c == "."))
			{
				object.focus();
				window.alert(strText);
				
				return false;
			}
		}
		return true;
}	
//-->
</SCRIPT>
<!-- #include file="func_verify.asp" -->
<%
dim sumcount,saveserial

set rs = Server.CreateObject("ADODB.Recordset")

if request("deleteflag")="1" then
	sql="update cci_oa_emreg set status=0 where id=" & request("deleteid")
	ConnObj.execute(sql)
	msg="员工删除成功，编号为:" & request("deleteid")
	response.Write("<div align=center><font color=#FF0000>" &msg & "</font></div>")
end if


if request("saveflag")<>"" then
	dim msg
	saveserial=1
	msg=""

	if trim(request("name"))="" then
		msg=msg & saveserial & "、请输入员工姓名!<br>"
		saveserial=saveserial+1
	end if
	
	if trim(request("Sex"))="" then
		msg=msg & saveserial & "、请选择员工性别!<br>"
		saveserial=saveserial+1
	end if
	
	if trim(request("politics"))="" then
		msg=msg & saveserial & "、请选择员工政治面貌!<br>"
		saveserial=saveserial+1
	end if
	if trim(request("Marry"))="" then
		msg=msg & saveserial & "、请选择员工婚姻状况!<br>"
		saveserial=saveserial+1
	end if	
	if trim(request("Tech_post"))="" then
		msg=msg & saveserial & "、请输入员工职称!<br>"
		saveserial=saveserial+1
	end if	
	if trim(request("Stationid"))="" then
		msg=msg & saveserial & "、请选择员工职务!<br>"
		saveserial=saveserial+1
	end if
	if trim(request("stature"))="" then
		msg=msg & saveserial & "、请输入员工身高!<br>"
		saveserial=saveserial+1
	end if		

	if trim(request("IDCard"))="" then
		msg=msg & saveserial & "、请输入员工身份证号码!<br>"
		saveserial=saveserial+1
	end if
	
	if trim(request("Edu_level"))="" then
		msg=msg & saveserial & "、请输入员工学历!<br>"
		saveserial=saveserial+1
	end if
	if trim(request("degree"))="" then
		msg=msg & saveserial & "、请输入员工学位!<br>"
		saveserial=saveserial+1
	end if	
	if trim(request("speciality"))="" then
		msg=msg & saveserial & "、请输入员工专业!<br>"
		saveserial=saveserial+1
	end if	

	if trim(request("Register"))="" then
		msg=msg & saveserial & "、请输入员工户口地址!<br>"
		saveserial=saveserial+1
	end if
	if trim(request("Reg_postcode"))="" then
		msg=msg & saveserial & "、请输入员工户口地址邮编!<br>"
		saveserial=saveserial+1
	end if



	if saveserial<=1 then
		sql="select * from cci_oa_emreg"
		rs.open sql,connobj,3,3
		rs.addnew

		rs("Name")=request("name")
		rs("Sex")=request("Sex")
		rs("Birthday")=request("year") & "-" & request("month") & "-" & request("day") & " 00:00:00"
		rs("politics")=request("politics")
		rs("Marry")=request("Marry")
		rs("nation")=request("nation")
		rs("Tech_post")=request("Tech_post")
		rs("Stationid")=request("Stationid")	
		rs("InTime")=request("year2") & "-" & request("month2") & "-" & request("day2") & " 00:00:00"	
		rs("stature")=request("stature")	
		rs("IDCard")=request("IDCard")
		rs("Edu_level")=request("Edu_level")
		rs("degree")=request("degree")
		rs("speciality")=request("speciality")
		rs("WorkTime")=request("year3") & "-" & request("month3") & "-" & request("day3") & " 00:00:00"
		if trim(request("PCability"))<>"" then
			rs("PCability")=request("PCability")
		end if
		if trim(request("Application"))<>"" then
			rs("Application")=request("Application")
		end if
		if trim(request("StrongSuit"))<>"" then	
			rs("StrongSuit")=request("StrongSuit")
		end if
		if trim(request("avocation"))<>"" then	
			rs("avocation")=request("avocation")
		end if
		if trim(request("chinese"))<>"" then	
			rs("chinese")=request("chinese")
		end if
		if trim(request("englishL"))<>"" then	
			rs("englishL")=1
		end if
		if trim(request("EnglishT"))<>"" then
			rs("EnglishT")=1
		end if
		if trim(request("EnglishR"))<>"" then
			rs("EnglishR")=1
		end if
		if trim(request("englishW"))<>"" then
			rs("englishW")=1
		end if
		if trim(request("GuangDongL"))<>"" then
			rs("GuangDongL")=1	
		end if
		if trim(request("GuangDongT"))<>"" then
			rs("GuangDongT")=1	
		end if

		rs("Register")=request("Register")
		rs("Reg_postcode")=request("Reg_postcode")
		
		if trim(request("RegTel"))<>"" then
			rs("RegTel")=request("RegTel")
		end if
		if trim(request("Dwelling"))<>"" then	
			rs("Dwelling")=request("Dwelling")
		end if
		if trim(request("Dw_postcode"))<>"" then	
			rs("Dw_postcode")=request("Dw_postcode")
		end if
		if trim(request("DW_Tel"))<>"" then	
			rs("DW_Tel")=request("DW_Tel")
		end if
		if trim(request("Urgency_Tel"))<>"" then	
			rs("Urgency_Tel")=request("Urgency_Tel")
		end if
		if trim(request("Urgency_other"))<>"" then	
			rs("Urgency_other")=request("Urgency_other")
		end if

		rs("status")=1
	
			
		rs.update
		rs.close



		response.redirect "message.asp?rediurl=defaultA.asp&msgurl=首页&msginfo=员工基本信息保存成功！如果还要对该员工录入其他信息，请选择“员工档案维护”!"
	end if
	response.Write("<div align=center><font color=#FF0000>" &msg & "</font></div>")
end if


SQL = "select a.id,a.Name,a.sex,a.Tech_post,b.Stationname,a.Edu_level,a.degree From cci_oa_emreg a,cci_station b where a.stationid=b.id and a.status=1"
Rs.Open Sql,connObj,1,1
sumcount=rs.recordcount
%>				
<table width="100%" align="center" cellpadding="1" cellspacing="1" class=tableBorder1>
        <tr> 
		<th  height="25" align="center"> 
		  <b><%=site_title%>员工档案维护</b> 
      <div align="right"></div></th>
        </tr>
       
        <tr> 
          <td  align="center" valign="top" bgcolor="#FFFFFF" > 
                  
             <table width="100%" cellpadding="1" cellspacing="1" class=tableborder1>
              <tr align="center" height=25> 
                
          <td class=TopLighNav width="50"><b>姓名</b></td>
          <td class=TopLighNav width="50"><b>性别</b></td>
          <td class=TopLighNav><b>职称</b></td>
          <td class=TopLighNav><b>岗位</b></td>
		  <td class=TopLighNav><b>学历</b></td>
		  <td class=TopLighNav width="50"><b>学位</b></td>		  
		  <td width="30" class=TopLighNav><b>修改</b></td>
		  <td width="30" class=TopLighNav><b>删除</b></td>
              </tr>
              <%
				If (Not Rs.Eof) And (Not Rs.Bof) Then
					page_size = 20
					Rs.pagesize = page_size
					page_count = Rs.pagecount
					Page = Request.QueryString("page")
					If Isnull(Page) or (Not Isnumeric(Page)) Then
						aPage = 1
					Else
						aPage = Cint(page)
						If aPage < 1 Then
							aPage = 1
						ElseIf aPage > Cint(page_count) Then
							aPage = page_count
						End If
					End If
					Rs.Absolutepage = aPage
					Ars = Rs.Getrows(page_size)
			  
					For i = 0 To Ubound(Ars,2)
				%>
              <tr bgcolor=#FFFFFF align="center" height= 20> 
                <td><a href=userinfo.asp?id=<%=Ars(0,i)%>><%=Ars(1,i)%></a></td>
                <td> <%
					if Ars(2,i)=1 then
			response.Write("男")
		elseif Ars(2,i)=0 then
			response.Write("女")
		elseif Ars(2,i)=2 then
			response.Write("不确定")
		end if
				
				  %> </td>
				<td> <% = Ars(3,i) %> </td>
				<td><%=Ars(4,i)%></td>
                <td><% 	if Ars(5,i)=1 then
			response.Write("初中")
		elseif Ars(5,i)=2 then
			response.Write("中专")
		elseif Ars(5,i)=3 then
			response.Write("高中")
	  	elseif Ars(5,i)=4 then
			response.Write("大专")
		elseif Ars(5,i)=5 then
			response.Write("本科")
		elseif Ars(5,i)=6 then
			response.Write("硕士")
		elseif Ars(5,i)=7 then
			response.Write("博士")
						
		end if
				
				
				
				
				%></td>
				<td><%=Ars(6,i)%></td>
				<td><input type=radio name=abc <%if request("selectid")=cstr(ars(0,i)) then response.Write(" checked")%>  onclick="DoSubmit0(<%=trim(Ars(0,i))%>)"></td>
				<td><input type=radio name=bcd onclick="DoSubmit1(<%=trim(Ars(0,i))%>,1)"></td>
              </tr>
              <%
			    
				Next
			Else
				Response.Write("<tr><td bgcolor=#FFFFFF align=center colspan=8>目前没有员工录入!</td></tr>")
			End If
			rs.close
				%>
            </table>
                
                </td>
              </tr>
              
                <tr bgcolor="#EEEEEE">  <form name="form1">
                  <td height="24" align="right" bgcolor="#ffffff" >
                    <%
						If sumcount > 0 Then
					%>
                            [共有 
                            <% = sumcount %>
                            条记录 页: 
                            <% = aPage %>
                            / 
                            <% = page_count %>
                            ] 
<%
	if Cint(aPage) > 1 then	
%>
                            [<a href="userlist.asp?page=<% = aPage - 1 %>">上一页</a>] 
<%
	else
	response.write "[上一页]"
	end if
	if (Cint(aPage) < Cint(page_count)) then
%>
                            [<a href="userlist.asp?page=<% = aPage + 1 %>">下一页</a>] 
<%
	else
	response.write "[下一页]"
	end if
%>
                            跳到
							<select name="menu1" onChange="MM_jumpMenu('parent',this,0)">
<%
		For i = 1 to page_count
		If i = aPage Then			
%>
		<option value="userlist.asp?page=<% = i %>" selected><% = i %></option>
<%
		else
%>
		<option value="userlist.asp?page=<% = i %>"><% = i %></option>
<%
		End If
		Next
%>
                            </select>页
<%
	Else
	Response.Write("&nbsp;")
	End If
%>
                  </td> </form>
                </tr>
             
          
      </table>

<form name=deleform action="" method=post>
<input type=hidden name=deleteid>
<input type=hidden name=deleteflag>
</form>
<form name=selectform action="usermodi.asp" method=post>
<input type=hidden name=id>
<input type=hidden name=selectflag value="1">
</form>