selectemp.aspx

来自「ASP.NET的一些开发实例,有论坛管理系统等」· ASPX 代码 · 共 82 行

ASPX
82
字号
<%@ Page language="c#" Codebehind="SelectEmp.aspx.cs" AutoEventWireup="false" Inherits="BDStudioBase.SelectEmp" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
<HTML>
	<HEAD>
		<title>选择人员</title>
		<LINK href="Style_white.css" type="text/css" rel="stylesheet">
		<meta content="Microsoft Visual Studio 7.0" name="GENERATOR">
		<meta content="C#" name="CODE_LANGUAGE">
		<meta content="JavaScript" name="vs_defaultClientScript">
		<meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
	</HEAD>
	<body MS_POSITIONING="GridLayout">
		<form id="SelectEmp" method="post" runat="server">
			<TABLE id="Table1" style="Z-INDEX: 101; LEFT: 0px; POSITION: absolute; TOP: 1px" cellSpacing="1" cellPadding="1" width="450" border="0">
				<tr>
					<td width="20" rowSpan="3">&nbsp;
					</td>
					<td height="20">&nbsp;</td>
					<td width="20" rowSpan="3">&nbsp;</td>
				</tr>
				<tr>
					<td>
						<table height="100%" width="100%" border="0">
							<TBODY>
								<tr>
									<td align="middle"><asp:label id="Label02" runat="server" CssClass="txt_box">请选择人员</asp:label></td>
								</tr>
								<tr>
									<td align="left">
										<asp:Label id="Label1" runat="server" CssClass="txt_box">部门</asp:Label>
										<asp:DropDownList id="listDep" runat="server" AutoPostBack="True" Width="89px"></asp:DropDownList>&nbsp;&nbsp;&nbsp;&nbsp;
										<asp:CheckBox id="CheckBox1" runat="server" CssClass="txt_box" Text="所有人"></asp:CheckBox>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<asp:button class="table_list2" id="cb_save" runat="server" CssClass="cmd_but" Text="确定"></asp:button><FONT face="宋体">&nbsp;
											<INPUT class="cmd_but" type="button" value="取消" onclick="window.close()"></FONT>
										</FONT></td>
								</tr>
								<tr>
									<td align="left"><asp:checkboxlist id="Check_select" runat="server" RepeatDirection="Horizontal" Width="100%" BorderWidth="1px" BorderStyle="Dotted" BackColor="#FFE0C0" BorderColor="Blue" RepeatColumns="5" Font-Size="9pt" ForeColor="#C04000"></asp:checkboxlist></td>
								</tr>
							</TBODY>
						</table>
					</td>
				</tr>
				<tr>
					<td>&nbsp;</td>
				</tr>
			</TABLE>
		</form>
		<script language="vbscript">
		dim sObjectData,sObjectName,sSendWindow
		
		sObjectData="<%=sObjectData%>"
		sObjectName="<%=sObjectName%>"
		sSendWindow="<%=sSendWindow%>"

		if sObjectData<>"" then
			if sSendWindow="forums_main_topic_edit" then
				opener.forums_main_topic_edit.In_TextBox3.value=sObjectName
				opener.forums_main_topic_edit.In_TextBox9.value=sObjectData
			end if
			if sSendWindow="forums_main_topic_input1" then	
			    opener.forums_main_topic_input1.In_TextBox3.value=sObjectName
				opener.forums_main_topic_input1.In_TextBox15.value=sObjectData
			end if 
			if sSendWindow="system_work_plan11_input1" then
			    opener.system_work_plan11_input1.In_TextBox6.value=sObjectName
				opener.system_work_plan11_input1.In_TextBox11.value=sObjectData
			end if
			if sSendWindow="system_work_plan11_edit1" then
			    opener.system_work_plan11_edit1.In_TextBox6.value=sObjectName
				opener.system_work_plan11_edit1.In_TextBox9.value=sObjectData
			end if
			if sSendWindow="forums_main_topic_display" then
				'opener.forums_main_topic_display.In_TextBox3.value=sObjectName
				'opener.SendMessage.In_TextBox7.value=sObjectData
			end if
			window.close
		end if
		
		</script>
	</body>
</HTML>

⌨️ 快捷键说明

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