📄 fosterpingguopen.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file=DataBase/conn.asp-->
<%if request("id")<>"" then
if request("post")<>"" then
if request("post1")="" then
response.Write("<script language=javascript>alert('请选择一个评估对象');location='fosterpingguopen.asp?id="&session("id")&"'</script>")
response.end()
else
set rse=server.CreateObject("adodb.recordset")
sqle="select * from tb_Foster_f where id="&request("post1")
rse.open sqle,conn,1,3
rse("pinggu")=request("pinggu")
rse.update
rse.close
response.Write("<script language=javascript>alert('提交成功')</script>")
end if
end if
'评估对象
session("id")=request("id")
set rs=server.CreateObject("adodb.recordset")
sql="SELECT dbo.tb_Employee.name, dbo.tb_Foster_f.id FROM dbo.tb_Foster_f INNER JOIN dbo.tb_Employee ON dbo.tb_Foster_f.jieshouzhe = dbo.tb_Employee.id WHERE dbo.tb_Foster_f.renwu = '"&request("id")&"'"
rs.open sql,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>培训结果评估</title>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
<link href="CSS/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
body {
background-color: #efefef;
}
-->
</style></head>
<body>
<form name="form1" method="post" action="">
<table width="398" height="200" border="0" align="center" cellspacing="0">
<tr>
<td width="60" height="23">评估对象</td>
<td width="358" align="left">评估内容
<input name="post" type="hidden" id="post" value="true">
<input name="post1" type="hidden" id="post1" value="<%=request("rid")%>"></td>
</tr>
<tr>
<td valign="top"><select name="menu1" size="8" class="wenben" onChange="MM_jumpMenu('parent',this,0)">
<%
do while not rs.eof
%>
<option value="fosterpingguopen.asp?rid=<%=rs("id")%>&id=<%=request("id")%>" <%if clng(request("rid"))=clng(rs("id")) then%>selected<%end if%>> <%=rs("name")%></option>
<%
rs.movenext
loop
%>
</select></td>
<td height="138" valign="top">
<%
if request("rid")<>"" then
set rsp=server.CreateObject("adodb.recordset")
sqlp="select * from tb_Foster_f where id="&request("rid")
rsp.open sqlp,conn,1,1
end if
%>
<textarea name="pinggu" cols="40" rows="8" class="wenben" id="pinggu"><%if request("rid")="" then%>请选择评估对象<%else%><%=rsp("pinggu")%><%end if%></textarea>
</td>
</tr>
<tr align="center">
<td colspan="2"><input name="Submit" type="submit" class="botton" value=" 提 交 ">
<input name="Submit2" type="button" class="botton" onClick="window.close()" value=" 关 闭 "></td>
</tr>
</table>
</form>
</body>
</html>
<%end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -