📄 post.asp
字号:
document.re_post.name.focus();
}
}
}
// 发送请求
ajaxobj.send("post_back.asp?hi="+num+"&id="+theid+"&op="+op);
}
//-->
</SCRIPT>
<div style="position:absolute;left:130px;">
<img src="..\images\sub01_05.jpg" align="absmiddle" >
<font color="#183978" size="3" face="华文仿宋">当前岗位ID:<%=res(0)%></font>
</div>
<br/><br/>
<form action="Post.asp?op=5&id=<%=e_id%>" method="post" name="re_post" onSubmit="return Validator.Validate(this,2)">
<table width="70%" border="1" align="center" cellpadding="0" cellspacing="0" class="table1">
<tr>
<td height="35" class="td1"><div align="center">岗位名称:</div></td>
<td height="35" colspan="3">
<input name="name" type="text" value="<%=res(1)%>" onKeyUp="testlen(this,10,0)" onBlur="ajaxfuct(this.value,'<%=e_id%>','1_1')">
<b id="p_name"></b>
</td>
</tr>
<tr>
<td width="16.67%" height="35" class="td1"><div align="center">岗位状态:</div></td>
<td width="33.33%" height="35"><div align="center"><%=res(2)%></div></td>
<td width="16.67%" height="35" class="td1"><div align="center">创建时间:</div></td>
<td width="33.33%" height="35"><div align="center"><%=res(3)%> </div></td>
</tr>
<tr>
<td height="35" class="td1"><div align="center"><a href="Post.asp?op=6&id=<%=e_id%>">行政级别配置:</div></td>
<td height="35" colspan="3">
<%
set res1=server.CreateObject("ADODB.recordset")
res1.open "select b.plevel_name from postlevel as a inner join plevel as b on a.level_id=b.plevel_id where a.post_id="&e_id,conn,3,3
if res1.EOF=true and res1.BOF=true then
Response.Write "<center>未设置</center>"
else
do while not res1.EOF
Response.Write res1.Fields(0).Value&";"
res1.MoveNext
loop
end if
res1.Close
set res1=nothing
%>
</td>
</tr>
<tr>
<td height="35" class="td1"><div align="center">岗位职责:</div></td>
<td height="35" colspan="3"><div align="left">
<input name="function" type="text" value="<%=res(4)%>" size="60" dataType="CEN" msg="岗位职责输入无效字符" onBlur="testlen(this,50)">
</div></td>
</tr>
<tr>
<td height="35" class="td1"><div align="center">岗位要求:</div></td>
<td height="35" colspan="3"><div align="left">
<input name="request" type="text" value="<%=res(5)%>" size="60" dataType="CEN" msg="岗位要求输入无效字符" onBlur="testlen(this,50)">
</div></td>
</tr>
<tr>
<td height="35" class="td1"><div align="center">岗位备注:</div></td>
<td height="35" colspan="3"><div align="left">
<input name="ps" type="text" value="<%=res(6)%>" size="60" dataType="CEN" msg="岗位备注输入无效字符" onBlur="testlen(this,50)">
</div></td>
</tr>
</table>
<table width="563" border="0" align="center">
<tr>
<td><div align="center">
<input name="" type="submit" value="确定" class="button">
<input name="" type="reset" value="重填" class="button">
</div></td>
</tr>
</table><br>
<table width="563" border="0" align="center">
<tr>
<td width="372"> </td>
<td width="181"><div align="center"><a href="Post.asp">返回</a></div></td>
</tr>
</table>
</form>
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''' 岗位信息修改处理
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif op = "5" then
pname = request.Form("name")
ppost = request.Form("post")
pfunction = request.Form("function")
prequest = request.Form("request")
pps = request.Form("ps")
e_id = request.QueryString("id")
on error resume next
conn.execute"update post set post_name='"&pname&"',high_post='"&ppost&"',post_function='"&pfunction&"',post_request='"&prequest&"',post_remark='"&pps&"' where post_meanid='"&e_id&"'"
if err.number = 0 then
Response.Write "<center>岗位信息修改成功!</center>"
else
response.Write "<center>岗位信息修改失败!</center>"
end if
Response.AddHeader "refresh","2;url=Post.asp"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''' 岗位级别分配操作
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif op = "6" then
e_id=Request.QueryString("id")
res.Open "select post_name from post where post_id="&e_id,conn,3,3
%>
<div style="position:absolute;left:120px;">
<img src="..\images\sub01_05.jpg" align="absmiddle" >
<font color="#183978" size="3" face="华文仿宋">当前岗位:<%=res(0)%></font>
</div>
<%
res.Close
res.Open "select plevel_id,plevel_name from plevel where plevel_state='启用'",conn,3,3
%>
<script type="text/javascript" src="../Include/ajaxrequest.js"></script>
<script type="text/javascript">
function ajaxfuct(num,currentpost,op)
{
// 创建AJAX对象
var ajaxobj=new AJAXRequest();
ajaxobj.method="post";
// 设置回调函数,输出响应内容
ajaxobj.callback=function(xmlobj)
{
if (op=="3")
{
document.getElementById("sp"+num).innerHTML=xmlobj.responseText;
if(xmlobj.responseText=="已有人员分配!")
{
document.getElementsByName("checkbox1")[num].checked=true;
}
}
}
//发送请求
ajaxobj.send("post_back.asp?hi="+document.getElementsByName("checkbox1")[num].value+"&post="+currentpost+"&op="+op);
}
function in_num(i,currentpost)
{
//var i;
var temp;
temp=document.getElementsByName("checkbox1");
if (temp[i].checked==false)
{
ajaxfuct(i,currentpost,'3');
}
}
function recheck()
{
var num;
num=confirm("确认此设置吗?");
if (num==true)
{
document.se_level.submit();
}
}
</SCRIPT>
<br/><br/>
<form action="Post.asp?op=6_1" method="post" name="se_level">
<table border='1'width='80%'align='center' cellspacing='0' cellpadding='0' class="table1">
<tr height="23"><td colspan='4' align='center' class="td1">行 政 级 别</td></tr>
<%
i=0
do while not res.EOF=true
if (i mod 4)=0 then '每4列输出一行
Response.write "<tr>"
end if
%>
<td width=25%""><INPUT type="checkbox" name=checkbox1 value="<%=res.Fields(0).Value%>"
<%
set res1=server.CreateObject("ADODB.recordset")
res1.Open "select level_id from postlevel where post_id="&e_id,conn,3,3
do while not res1.EOF=true
if res1.Fields(0).Value = res.Fields(0).Value then
Response.Write "checked"
end if
res1.MoveNext
loop
res1.Close
set res1=nothing
%> onClick="in_num('<%=i%>','<%=e_id%>')"><%=res.Fields(1).Value%> <span id="sp<%=i%>"></span></td>
<%
i=i+1
dim j
res.MoveNext
if (i mod 4)=0 or res.EOF=true then '每到4列时行结尾或者记录集读到最后时,行结尾
if res.EOF=true and (i mod 4)<>0 then '如果记录集读到最后,最后一行列数未到4列时,则补到4列
for j=1 to 4-(i mod 4)
Response.Write "<td> </td>"
next
end if
Response.write "</tr>"
end if
loop
%>
<tr height="23">
<td colspan='4' align='center'>
<input type="button" class="button" onClick="recheck()" value="确认">
<input type="button" class="button" onClick="window.location='Post.asp?op=4&id=<%=e_id%>'" value="返回">
<INPUT type="hidden" value="<%=e_id%>" name="p_id">
</td>
</tr>
</table>
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''' 岗位级别分配处理
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif op="6_1" then
dim se_level
se_level=Request.Form("checkbox1")
e_id=Request.Form("p_id")
dim t_array
t_array=split(se_level,",")
'Response.Write se_level&"<br>"
'Response.Write e_id
'Response.End
conn.execute "delete postlevel where post_id="&e_id '先删除原有记录
for i=0 to ubound(t_array)
conn.execute "insert into postlevel values("&trim(t_array(i))&","&e_id&")"
next
if err.number=0 then
Response.Write "设置成功!"
else
Response.Write "设置失败!"
end if
Response.AddHeader "refresh","3;url=Post.asp?op=4&id="&e_id
end if
if res.state=1 then
res.close
end if
conn.close
set res=nothing
set conn=nothing
%>
</p>
</div>
<!--#include file="../Include/bottom.asp"-->
<!--内容结束-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -