pop_xzzw.asp

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

ASP
130 行
字号 
<!--#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>

<%
    dim rs,sygbh
    set rs = server.CreateObject("ADODB.RecordSet")
    sygbh = request("ygbh")
    if sygbh="" then
		Response.Write "没有员工信息"
		Response.End		
    end if
    dim sqlstr,icount,ischeck,szwlb
		icount = 0
		szwlb = ""
		sqlstr = "select roleID from tbioaUser where id=" & sygbh
		rs.Open sqlstr,oConn,adOpenDynamic
		if not rs.EOF then
			szwlb = rs("roleID")
		end if
		rs.Close
		if szwlb = "" or isnull(szwlb) then
			Response.Write "该人员还没有担任任何职位"
			Response.End		
		end if
		'Response.Write szwlb
		sqlstr = "select A.id as zwbh,A.rolename as zwmc,B.name as bmmc,A.department as bmbh from tbioaRole A,tbioaDepartment B where" _
		& " A.id in (" & szwlb & ") and A.department = B.id"
		'Response.Write sqlstr
		'Response.End 
		rs.Open sqlstr,oConn,adOpenDynamic 		
    %>
    
 <table width=98% class="TitleBar" border=0 cellspacing="2" cellpadding="0" align=center>
	<tr>
	<td align="left">
	<nobr>	
	<div class="TableTitleText">职位列表</div>
	</nobr>		
	</td>		
	<td align="right">
	<nobr>	
	<input type="button" name="btn_ok" value="确定" class="button" onclick="javascript:select_ok();">&nbsp;
    <input type="button" name="btn_cancel" value="关闭" class="button" onclick="javascript:window.close();">
	</nobr>		
	</td>
	</tr>
</table>

<table class="tab" width="98%" align="center" border="0" cellpadding="2" cellspacing="1">
<tr align="center" class=td3>		
<!--Here Insert your form-->
<form name="formSV">  
<td class="listcellTitle" align="center" width="10"><nobr></nobr></td>
<td class="listcellTitle" align="center"><nobr>职位名称</nobr></td>
</tr>     
 <%while not rs.EOF
		icount = icount + 1
		if icount = 1 then
			ischeck = "checked"
		else
			ischeck = ""
		end if
 %>
 <tr class="td2">
    <td align="center" class="listcellrow" width="1"><input type="radio" name="ra_zw" value="<%=rs("zwbh") & vbTab & rs("zwmc") & vbTab & rs("bmbh") & vbTab & rs("bmmc")%>" <%=ischeck%>  ondblclick="javascript:select_ok();"></td>
    <td class="listcellrow" align="left"><%=rs("zwmc") &  "--(" & rs("bmmc") & ")"%></td>        
 </tr>
<%
		rs.MoveNext 	
	wend
	rs.Close
	set rs = nothing
%>
<tr class=td2>
<td height=10 class="td1" colspan=2 align="right">
</td></tr>
</form>

</table>  

<script language="javascript">
function select_ok(){
	
	var svalue = getzwxx();
	if (svalue != "") {		
//		alert(svalue);
		window.returnValue = svalue;
		window.close();
	}else{
		alert("您没有选择选择人员!");
		return;
	}
}
</script>
<script language="vbscript">
function getzwxx()
	dim m
	getzwxx = ""
	for each m in formSV.elements 
		if m.name="ra_zw" then
			if m.checked then
				getzwxx = m.value
				exit for
			end if
		end if
	next
end function
</script>
<%
oConn.close
set oConn=nothing
%>
</body>

</html>

pop_xzzw.asp - 源码说明

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

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

⌨️ 快捷键说明

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