userlist.asp

来自「OFFICE办公自动化」· ASP 代码 · 共 130 行

ASP
130 行
字号 
<%
'功能：批量选择下属员工
%>
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
'变量申明区
dim Rsdepart
dim Sqldepart
%>
<%
'显示部门
set Rsdepart=server.createobject("adodb.recordset")
    Sqldepart="select * from tbioadepartment"
Rsdepart.open Sqldepart,oconn,1,3
%>

<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css" type=text/css>
<title>选择接受者</title>
<SCRIPT language=javascript>
<!--
function unselectall()
{
    if (document.frm.checuser.checked){
	document.frm.checuser.checked = document.frm.checuser.checked&0;
    }
}

function selectall()
{
    var length=document.frm.checuser.length ;
    document.frm.checuser.checked = document.frm.all.checked|0;

    if (length == 0 ){
          return;
    }
    if (length ==1 )
    {
       document.frm.checuser.checked=document.frm.all.checked ;
    }
   if (length>1)
    {
      for (var i = 0; i < length; i++)
       {
        	document.frm.checuser[i].checked=document.frm.all.checked;
       }
    }


}
function chec()
{
  var checstr=",";
  var name="";
  var tempstr
  var length=document.frm.checuser.length ;
  for(var i=0;i<length;i++)
  {
    tempstr="";
    if(document.frm.checuser[i].checked)
     {
	    tempstr=(document.frm.checuser[i].value).split("/");
	    checstr=checstr+tempstr[0]+",";
            name=name+tempstr[1]+"  ";
     }
 }
 
   self.opener.document.eventfrm.userlist.value=name;
   self.opener.document.eventfrm.userid.value=checstr;
   window.close();
}
//-->
</SCRIPT>
</HEAD>

<body topmargin="0" leftmargin="0">
<center>

<form name="frm" method="POST" action="">
    <table width="75%" border="0"  cellspacing="10" cellpadding="0">
      <tr> 
        <td colspan="5" class="tdTop"><div align="center">用户列表</div></td>
      </tr>
      <%
set Rsuser=server.CreateObject("adodb.recordset")
kk=0
do while not Rsdepart.eof
   Rsuser.open "select * from tbioaUser where department='" &Rsdepart("id")& "'",oconn,1,3
%>
      <tr> 
        <td colspan="5"  align="left"><%=Rsdepart("name")%>&nbsp;</td>
      </tr>
      <% 
i=0
do while not Rsuser.eof
kk=kk+1
   if (i mod 5= 0) then response.write ("</tr><tr>")
  i=i+1
%>
      <td ><input type="checkbox" name="checuser" value="<%=Rsuser("loginname")%>/<%=Rsuser("name")%>" >
        <%=Rsuser("name")%> </td>
      <%
Rsuser.movenext
loop
Rsuser.close
Rsdepart.movenext
loop
%>
     <tr>
       <td>
        <input type="checkbox" name="all" id="Sall" value=1 onClick=selectall()>
        <label for="Sall" style="CURSOR: hand">全 选</label
       </td>
     </tr>
      <tr>
        <td ><div align="center"> 
            <input type="button" name="Submit" value="确定" class="button0" onClick="chec()">
          </div></td>
		</tr>
    </table>
  </form>
</center>
</body>
</html>

userlist.asp - 源码说明

本页面展示了「OFFICE办公自动化」中的 userlist.asp 源码文件，采用 ASP 编程语言编写，共 130 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与Office自动化相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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