📄 foster_p.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file=DataBase/conn.asp-->
<!--#include file=yan.asp-->
<!--#include file=purview.asp-->
<%
call tianjiarenyuan
'任务列表
set rs=server.CreateObject("adodb.recordset")
sql="select * from tb_FosterRole order by id desc"
rs.open sql,conn,1,1
'培训部门
set rsd=server.CreateObject("adodb.recordset")
sqld="select * from tb_Dept order by up"
rsd.open sqld,conn,1,1
'人员
set rsr=server.CreateObject("adodb.recordset")
sqlr="select * from tb_Employee where kong=1"
rsr.open sqlr,conn,1,1
'添加对象
if request("post")<>"" then
select case request("duixiang")
case "部门"
point=request("dept")
case "个人"
point=request("geren")
case "全部"
point="全部"
end select
set rsa=server.CreateObject("adodb.recordset")
sqla="select * from tb_FosterRole where id="&request("renwu")
rsa.open sqla,conn,1,3
rsa("duixiang")=request("duixiang")
rsa("point")=point
rsa.update
rsa.close
response.Write("<script language=javascript>alert('对象添加成功')</script>")
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
.style2 {color: #0000FF}
.style3 {color: #FF0000}
-->
</style>
<link href="CSS/css.css" rel="stylesheet" type="text/css">
</head>
<body topmargin="0">
<form name="form1" method="post" action="">
<table width="550" border="0" align="center">
<tr>
<td width="55%" height="30"> - <span class="style3">培训管理</span>→<span class="style2">培训计划</span>→<span class="style3"></span><span class="style3">添加人员列表</span></td>
</tr>
</table>
<table width="550" border="0" align="center" cellspacing="1" bgcolor="#000000">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" height="28" border="0" align="center" cellspacing="0">
<tr>
<td background="images/index_24.gif"> </td>
</tr>
</table>
<table width="550" border="0" align="center" cellspacing="0" >
<tr>
<td width="88" align="center">培训名称：</td>
<td width="366"><select name="renwu" id="select3">
<% do while not rs.eof %>
<option value="<%=rs("id")%>"><%=rs("title")%></option>
<%
rs.movenext
loop
%>
</select>
<input name="post" type="hidden" id="post" value="true"></td>
</tr>
<tr>
<td align="center">培训对象：</td>
<td><table width="350" border="0" cellspacing="０">
<tr>
<td width="84"><input name="duixiang" type="radio" value="部门" checked>
部门</td>
<td width="256"><select name="dept" id="dept">
<%
if not rsd.eof then
for i=1 to rsd.recordcount
xian=""
for j=1 to rsd("level")-1
xian = xian&"├"
next
xian=xian&"〖"&rsd("title")&"〗<br>"
%>
<option value="<%=rsd("id")%>"><%=xian%></option>
<%
rsd.movenext
next
end if
%>
</select></td>
</tr>
<tr>
<td><input type="radio" name="duixiang" value="个人">
个人</td>
<td><select name="geren" size="5" id="select4">
<%
do while not rsr.EOF
set rss=server.CreateObject("adodb.recordset")
sqls="Select * from tb_dept where id="&rsr("suoshu")&" order by up"
rss.Open sqls,conn,1,1
%>
<option value="<%=rsr("id")%>">〖<%=rss("title")%>〗<%=rsr("name")%> </option>
<%
rsr.movenext
loop
%>
</select></td>
</tr>
<tr>
<td><input type="radio" name="duixiang" value="全部">
全部员工</td>
<td> </td>
</tr>
</table></td>
</tr>
<tr align="center">
<td height="60" colspan="2"><input name="Submit" type="submit" class="botton" value=" 提 交 ">
<input name="Submit2" type="reset" class="botton" value=" 重 置 "></td>
</tr>
</table></td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -