📄 addnew.asp

📁 功能齐全的oa系统
💻 ASP
字号:
<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/MyFunc.asp" -->
<!-- #include virtual="Include/Page.asp" -->
<!-- #include virtual="Include/SelectValue.asp" -->
<%
	Dim ObjDB,ObjRS,StrSQL
	Dim C,ArrList,i
	Dim StrSelectTrueName
	Dim IntDepID,IntID,rs,sql,oRs
	IntID=Request.QueryString("IntID")
  'Response.End
	
	IntDepID = Request.QueryString("ParentID")
  'Response.Write "OK" & "<BR>"
  'Response.Write IntDepID
	
	Set ObjDB = Server.CreateObject("ADODB.Connection")
	OpenDBH ObjDB

	If Request.Form.Count > 0 Then
    Set rs = Server.CreateObject("ADODB.Recordset")
    Sql="select * from T_Hrms_Dep_Account"
    'Response.Write request("RightC")
    'Response.End
    rs.open sql,ObjDB,3,3
    ArrList = split(request("RightC"),",")
    For i = 0 TO UBound(ArrList)
      Sql="select Count(*) from T_Hrms_Dep_Account where DepID=" & IntDepID & " and Pos=" & ArrList(i)
      Set ObjRS = ObjDB.Execute(Sql)
      if ObjRS(0) = 0 Then
        rs.addnew
		    rs("DepID")=IntDepID
		    rs("Pos")=ArrList(i)
  		  rs.update
  		End if
		Next
    rs.close
		ObjDB.Close
		Set ObjDB = Nothing
%>
<script language=javascript>
parent.doList()
</script>
<%
	Else
	 Set oRs = Server.CreateObject("ADODB.Recordset")
	  strsql="select * from T_Hrms_Sys_Job"
	  
     oRs.Open strsql,ObjDB,1,1
   
   %>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">


<script language="javascript">
<!--
function addin()
{
	var i = 0;

	for (i; i <document.frmSelect.selectallusers.length; i++)
	{

		if (document.frmSelect.selectallusers[i].selected == true)
		{
			if (isinlist(document.frmSelect.selectallusers[i].value) == false)
			{
				var oOption = document.createElement("OPTION");
				oOption.text = document.frmSelect.selectallusers[i].text;
				oOption.value = document.frmSelect.selectallusers[i].value;
				selectusers.add(oOption);
			}
		}
	}
}

function isinlist(name)
{
	var i = 0;
	for (i; i < selectusers.length; i++)
	{
		if (selectusers[i].value == name)
		{
			return true;
		}
	}
	
	return false;
}

function delout()
{
	var i = 0;
	for (i; i < selectusers.length; i++)
	{
		if (selectusers[i].selected == true)
		{
			selectusers.remove(i);
			i--;
		}
	}
}


function gook()
{
	var str = "";
	var i = 0;
	
	for (i; i < selectusers.length; i++)
	{
	 
		if ( i + 1 == selectusers.length)
			str = str + selectusers[i].value;
		else
			str = str + selectusers[i].value + ",";
			}

	document.frmSelect.RightC.value= str;
  //alert(document.frmSelect.RightC.value);
	dep_onchange(frmSelect);
	}
	
	function dep_onchange(frmSelect) {
   frmSelect.submit(); 
}

//-->
</script>
</head>
<body topmargin="0"  leftmargin="0">
<table width="100%" border="0" bgcolor="#E7F5FE">
  <tr>
    <td>&nbsp;</td>
  </tr>
  <tr> 
    <td><table width="450" border="0" align="center" >
        <tr> 
          <form name="frmSelect" method="Post" >
            <input type=hidden name=_DepID value="<%=IntDepID%>" >
            <input type=hidden name=RightC >
            <td width="40%"><select name="selectallusers" size="10"  style="width:120"  onDblClick="return addin()">
                <%
Do while not oRs.EOF
	if Request.Form("selectallusers") = oRs("JobName") then 'if this is the selected one then display as selected
		Response.Write "<OPTION VALUE = '" & oRS ("ID") & "' SELECTED>"
		Response.Write oRs("JobName") & "</Option>"
		oRs.MoveNext 
	else
		Response.Write "<OPTION VALUE = '" & oRs ("ID") & "'>"
		Response.Write oRs("JobName") & "</Option>"
		oRs.MoveNext 
	end if
loop
	oRs.close
		ObjDB.Close
		Set ObjDB = Nothing		
	%>
              </select></td>
            <td width="20%" align="center"> <input type="button" name="add" value="添 加-->>" onClick="return addin()"> 
              <br> <input type="button" name="Submit2" value="<<--删 除" class="sbttn" language="javascript" onClick="delout()"> 
            </td>
          </form>
          <td width="40%"><select name="selectusers"   size="10" style="width:120">
            </select> </td>
        </tr>
      </table></td>
  </tr>
  <tr class=LHtr> 
    <td >
<table width="451" align="center" cellpadding=3 cellspacing=1 >
        <tr > 
          <td> <div align="center"> 
              <input type="button"  name="Submit" class=Button value="提 交" LANGUAGE=javascript onclick="gook()" >
              　　　　 
              <input type="button" class=Button value="取 消" LANGUAGE=javascript onclick="javascript:history.back(-1);"  id=button12 name=button1>
            </div></td>
        </tr>
      </table></td>
  </tr>
</table>
</body>
</html>
<%
end if
%>
💿 文件大小 29478 K
👤 上传用户 z3021440
📂 所属分类 OA系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -