sendfostersave.asp

来自「目前人力资源管理系统的发展已经相对成熟」· ASP 代码 · 共 80 行

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file=DataBase/conn.asp-->
<%
if request("id")<>"" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from tb_FosterRole where id="&request("id")
rs.open sql,conn,1,1
if not rs.eof then
if rs("duixiang")="没有选择对象" then
response.Write("<script language=javascript>alert('没有选择对象不能发送');location='javascript:history.go(-1)'</script>")
else
select case rs("duixiang")
case "部门"
set rse=server.CreateObject("adodb.recordset")
sqle="select * from tb_FosterRole where id="&request("id")
rse.open sqle,conn,1,3
rse("fasong")="是"
rse.update
rse.close


set rsb=server.CreateObject("adodb.recordset")
sqlb="select * from tb_Employee where suoshu="&rs("point")
rsb.open sqlb,conn,1,1

do while not rsb.eof
set rsa=server.CreateObject("adodb.recordset")
sqla="select * from tb_Foster_f"
rsa.open sqla,conn,1,3
rsa.addnew
rsa("renwu")=rs("id")
rsa("jieshouzhe")=rsb("id")
rsa("time")=now()
response.Write("<script language=javascript>alert('发送成功');location='sendfoster.asp?p="&request("p")&"'</script>")
rsa.update
rsa.close
rsb.movenext
loop

case "个人"
set rsa=server.CreateObject("adodb.recordset")
sqla="select * from tb_Foster_f"
rsa.open sqla,conn,1,3
rsa.addnew
rsa("renwu")=rs("id")
rsa("jieshouzhe")=rs("point")
rsa("time")=now()
response.Write("<script language=javascript>alert('发送成功');location='sendfoster.asp?p="&request("p")&"'</script>")
rsa.update
rsa.close
case "全部"
set rsb=server.CreateObject("adodb.recordset")
sqlb="select * from tb_Employee where kong=1"
rsb.open sqlb,conn,1,1
do while not rsb.eof 
response.Write(rsb("id"))
set rsa=server.CreateObject("adodb.recordset")
sqla="select * from tb_Foster_f"
rsa.open sqla,conn,1,3
rsa.addnew
rsa("renwu")=rs("id")
rsa("jieshouzhe")=rsb("id")
rsa("time")=now()
response.Write("<script language=javascript>alert('发送成功');location='sendfoster.asp?p="&request("p")&"'</script>")
rsa.update
rsa.close
rsb.movenext
loop
end select
set rse=server.CreateObject("adodb.recordset")
sqle="select * from tb_FosterRole where id="&request("id")
rse.open sqle,conn,1,3
rse("fasong")="是"
rse.update
rse.close

end if
end if
end if
%>