pc_add_x.asp

企业员工年度综合评测系统 Access(V1.060118)版

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%>
<!--#include file="forbidon.asp" -->
<!--#include file="Connections/conn.asp" -->
<%
var unameid=Request("nameid");
var nameid=Session("nameid");
var dp=Request("dp");
var uname=Request("name");
var department=Session("departmentid");
var s11=Request("s11");
var s12=Request("s12");
var s13=Request("s13");
var s14=Request("s14");
var s21=Request("s21");
var s22=Request("s22");
var s23=Request("s23");
var s24=Request("s24");
var s31=Request("s31");
var s32=Request("s32");
var s33=Request("s33");
var s34=Request("s34");
var s41=Request("s41");
var s42=Request("s42");
var s43=Request("s43");
var s44=Request("s44");
var s51=Request("s51");
var s52=Request("s52");
var s53=Request("s53");
var s54=Request("s54");
var total1=parseInt(s11)+parseInt(s12)+parseInt(s13)+parseInt(s14)+parseInt(s21)+parseInt(s22)+parseInt(s23)+parseInt(s24)+parseInt(s31)+parseInt(s32)+parseInt(s33)+parseInt(s34)+parseInt(s41)+parseInt(s42)+parseInt(s43)+parseInt(s44)+parseInt(s51)+parseInt(s52)+parseInt(s53)+parseInt(s54);
        //部门员工评测个人总分计算机公式
  
var rs1 = Server.CreateObject("ADODB.Recordset");
rs1.ActiveConnection = MM_conn_STRING;
rs1.Source = "SELECT id FROM score WHERE nameid="+unameid+"  AND fromnameid="+nameid+"";
rs1.CursorType = 0;
rs1.CursorLocation = 2;
rs1.LockType = 1;
rs1.Open();
if(!rs1.EOF||!rs1.BOF)
   {Response.Write("<script language='javascript'>window.alert('您已对该人评测过！');history.go(-1);</script>");
    Response.End();
	}
if(rs1.EOF&&rs1.BOF)
{  
 if(unameid!=nameid) 
  {	
rs1.Close;  
var cmd = Server.CreateObject("ADODB.Command");
cmd.ActiveConnection = MM_conn_STRING;
cmd.CommandText = "INSERT INTO score (nameid,name,departmentid,fromnameid,frompart,s11,s12,s13,s14,s21,s22,s23,s24,s31,s32,s33,s34,s41,s42,s43,s44,s51,s52,s53,s54,total)  VALUES ('"+ unameid + "','"+uname+ "','"+ dp + "','"+ nameid + "','"+department + "','"+s11+"','"+s12 + "','"+ s13 + "','"+ s14 + "','"+ s21 + "','"+ s22 + "','"+ s23 + "','"+ s24 + "','"+ s31+ "','"+ s32 + "','"+ s33 + "','"+ s34 + "','"+ s41 + "','"+ s42 + "','"+ s43 + "','"+ s44 + "','"+ s51 + "','"+ s52 + "','"+ s53 + "','"+ s54 + "','"+ total1+ "') ";
          //添加员工详细分数
cmd.CommandType = 1;
cmd.CommandTimeout = 0;
cmd.Prepared = true;
cmd.Execute();
   {var rs2 = Server.CreateObject("ADODB.Recordset");
    rs2.ActiveConnection = MM_conn_STRING;
    rs2.Source = "SELECT *  FROM all_user  WHERE nameid="+ unameid + "";
    rs2.CursorType = 0;
    rs2.CursorLocation = 2;
    rs2.LockType = 1;
    rs2.Open();
	var norno=rs2.Fields.Item("norno");
    var nors=rs2.Fields.Item("nors");
	var n=norno+1;
    var total2=(norno*nors+total1)/n;//部门员工评测平均分计算机公式，取整
	rs2.Close;
    }
     {var cmd1 = Server.CreateObject("ADODB.Command");
      cmd1.ActiveConnection = MM_conn_STRING;
      cmd1.CommandText = "UPDATE  all_user SET norno='"+n+"',nors='"+total2+"' WHERE  nameid="+unameid+"";　
      cmd1.CommandType = 1;
      cmd1.CommandTimeout = 0;
      cmd1.Prepared = true;
      cmd1.Execute();
	 }
	  //添加平均总分

Response.Write("<script language='javascript'>window.alert('对该员工评测成功！');location=('main.asp');</script>");
}
 if(unameid==nameid)
    {
	  var cmd = Server.CreateObject("ADODB.Command");
      cmd.ActiveConnection = MM_conn_STRING;
      cmd.CommandText = "INSERT INTO score (nameid,name,departmentid,fromnameid,frompart,s11,s12,s13,s14,s21,s22,s23,s24,s31,s32,s33,s34,s41,s42,s43,s44,s51,s52,s53,s54,total)  VALUES ('"+ unameid + "','"+uname+ "','"+ dp + "','"+ nameid + "','"+department + "','"+s11+"','"+s12 + "','"+ s13 + "','"+ s14 + "','"+ s21 + "','"+ s22 + "','"+ s23 + "','"+ s24 + "','"+ s31+ "','"+ s32 + "','"+ s33 + "','"+ s34 + "','"+ s41 + "','"+ s42 + "','"+ s43 + "','"+ s44 + "','"+ s51 + "','"+ s52 + "','"+ s53 + "','"+ s54 + "','"+ total1+ "') ";
          //添加自评详细分数
         cmd.CommandType = 1;
         cmd.CommandTimeout = 0;
         cmd.Prepared = true;
         cmd.Execute();   
	  
	  var cmd1 = Server.CreateObject("ADODB.Command");
      cmd1.ActiveConnection = MM_conn_STRING;
      cmd1.CommandText = "UPDATE  all_user SET self='"+total1+"' WHERE  nameid="+unameid+" AND nameid="+nameid+"";　
      cmd1.CommandType = 1;
      cmd1.CommandTimeout = 0;
      cmd1.Prepared = true;
      cmd1.Execute();//自评添加
	 }
  Response.Write("<script language='javascript'>window.alert('自评添加成功！');location=('main.asp');</script>");	 
}
%>