📄 pop_xzry.asp

📁 OFFICE办公自动化
💻 ASP
字号:
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
	Response.Expires=0
	Response.Buffer=true	
%>
<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css" type=text/css>
<title>选择人员</title>

<body>

<table align="center" border=0 width="260" cellpadding=0 cellspacing=1>
<tr>
<td valign="top">

	<!--Here Edit Your Form-->
	<form method="POST" id="formSV" name="formSV" >  
	<input type="hidden" name="rybh">
	<input type="hidden" name="iNumber">
	<table width=100% border=0 class="tab" align=center cellpadding=2 cellspacing=1>
	  <tr class=td2> 
      <td class="InputLabelCell"><nobr>选择部门</nobr></td>
      <td class="InputAreaCell">
      <select name="select1" size="1" onchange="SelectX()" style="width:150">
      <%
      dim rs
      dim sql
	  	sql = "select distinct tbioaDepartment.id,tbioaDepartment.name from tbioaDepartment order by tbioaDepartment.id"
	  	set rs = oConn.execute(sql)
	  	if rs.eof then
	  		Response.Write"无部门可选！"
	  	else 	
	  		Response.Write"<option value='all'>所有</option>"
	  		do while not rs.eof
	  			Response.Write"<option value='"& rs(0) &"'>"& rs(1) &"</option>"
	  			rs.movenext
	  		loop
	  		rs.close
	  		set rs = nothing
	  	end if
	  	
      %>
      </select>
      </td>    
	  </tr>
	  <tr class=td2> 
	  	<td class="InputLabelCell"><nobr>人员列表</nobr></td>
      <td class="InputAreaCell">      
      <select id="select2" name="select2" size="7" style="height: 180; width: 150" ondblclick="javascript:select_ok();">
      </select>    
      </tr>		
	  	
	  	
	  	<!--Here Edit Your Button Of Form-->
	  	<tr class=td1>
	  			<td align="center" colspan="4">		
	  				<input type="button" name="btn_ok" value="确定" class="button" onclick="javascript:select_ok();">
          <input type="button" name="btn_cancel" value="关闭" class="button" onclick="javascript:window.close();">
	  			</td>
	  		</tr>	
	  	</table>
	  </td>	
	  </tr>	
	</table>
	</form>     
 
<script language="vbscript">
function  SelectX()
dim sValue,icount,i
i = 0
sValue = document.formSV.select1.value
<%
 dim rec 
 dim ssql
 dim iNumber
 dim sstr()
 iNumber = 0 
 set rec = server.createObject("ADODB.RecordSet")
	 ssql="select  A.Department as ssbm,A.id as ygbh,A.name as ygxm" _
	 & ",B.name as bmmc from tbioaUser A,tbioaDepartment B where A.Department=B.id  order by A.name asc"
	 rec.open ssql,oConn,1,1
	 if rec.eof then
	 else
		do while not rec.eof						
			redim preserve sstr(3,clng(iNumber))
			sstr(0,iNumber)= rec("ssbm")
			sstr(1,iNumber) = rec("ygbh")
			sstr(2,iNumber) = rec("ygxm")
			sstr(3,iNumber) = rec("bmmc")
			iNumber = iNumber +1			
			rec.movenext
		loop
	end if
	rec.close
	set rec = nothing	
%>
	
	dim sList(2,<%=iNumber-1%>)
	<%for i=0 to iNumber-1%>
	sList(0,<%=i%>) = "<%=sstr(0,i)%>"
	'赋值人员编号，人员姓名，所属部门,部门名称
	sList(1,<%=i%>) = "<%=sstr(1,i) & vbTab & sstr(2,i) & vbTab & sstr(0,i) & vbTab & sstr(3,i)%>" 
	sList(2,<%=i%>) = "<%=sstr(2,i)%>"
	<%next%>		
	for i=0 to document.formSV.select2.length
		document.formSV.select2.options.remove(0)		
		document.formSV.select2.options.remove(1)		
	next
	dim e 
	if sValue = "all" then
		for i=0 to <%=iNumber-1%>
			   set e = document.createElement("option")	 		
			   e.value = sList(1,i)		   
		       e.text= sList(2,i)
		       formSV.select2.options.add(e)		
		next	
	else
		for i=0 to <%=iNumber-1%>
			 if sList(0,i) = sValue then
				   set e = document.createElement("option")	 		
				   e.value = sList(1,i)		   
			       e.text= sList(2,i)
			       formSV.select2.options.add(e)
			end if		
		next
	end if
end function
</script>
<script language="javascript">
function select_ok(){
	
	var svalue = document.formSV.select2.value;		
	if (svalue != "") {		
		//alert(svalue);
		window.returnValue = svalue;
		window.close();
	}else{
		alert("您没有选择选择人员!");
		return;
	}
}

selectx()
</script>
<%
oConn.close
set oConn=nothing
%>
</body>

</html>
⌨️ 快捷键说明

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