📄 dept_grade.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>人力资源管理系统</title>
<link href="../Include/type.css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include file="../Include/conn.asp"-->
<!--#include file="../Include/Head.asp"-->
<!--#include file="../Include/Syscheck.asp"-->
<script type="text/javascript" src="../Include/regtest.js"></script>
<div id="content" style="position:absolute; width:90%; z-index:1; left: 48px; top: 168px;">
<div id="childmenu" style="position:absolute;top:60px;left:2%;width:12%;height:80px;z-index:2;"><!--子菜单-->
<li><a href="Cert_manage.asp">证照信息设置</a></li>
<li><a href="Tech_title.asp">职称信息设置</a></li>
<li><a href="Dept_grade.asp">部门级别设置</a></li>
<li><a href="Contract_info.asp">合同信息设置</a></li>
</div>
<div id="mainop" style="position:absolute; width:80%; height:90%; z-index:2; left: 18%; top: 30px;"><!--主操作-->
<%
call checkin_sys(session("UsersId"),session("PerId"),33)
dim op,i,dept_name
op=Request.QueryString("op")
dim res
set res=server.CreateObject("ADODB.recordset") 'select * from certificate
%>
<!--内容开始-->
<%
if op="" then
%>
<script type="text/javascript" src="../Include/ajaxrequest.js"></script>
<script language="javascript">
function dis1(id,name)
{
//alert("aaa")
document.getElementById("add1").style.display="none";
document.getElementById("update1").style.display="inline";
document.alter_gd.a_id.value=id;
document.alter_gd.text2.value=name;
document.getElementById("op_title").innerHTML="修改名称";
}
function ajaxfuct(num,id,op)
{
// 创建AJAX对象
var ajaxobj=new AJAXRequest();
ajaxobj.method="post"; //设置请求方式
// 设置回调函数，输出响应内容
ajaxobj.callback=function(xmlobj)
{
if (op=="3")
{
document.getElementById("r_name").innerHTML=xmlobj.responseText;
if(xmlobj.responseText=="该部门等级已存在!")
{
alert("请重新输入！")
document.addgd.text1.focus();
}
}
if (op=="3_1")
{
document.getElementById("r2_name").innerHTML=xmlobj.responseText;
if(xmlobj.responseText=="该部门等级已存在!")
{
alert("请重新输入！")
document.alter_gd.text2.focus();
}
}
}
// 发送请求
ajaxobj.send("Sysinf_bk.asp?hi="+num+"&id="+id+"&op="+op);
}
</script>
<%
dim currentpage,rowcount
currentpage=Request.QueryString("page")
if currentpage="" then
currentpage="1"
end if
res.Open "select dept_level as '等级编号',dlevel_name as '等级名称' from deptlevel",conn,3,3
if res.EOF<>true or res.BOF<>true then
res.PageSize=5
res.AbsolutePage=currentpage
%>
<table border='1'width='80%'align='center' cellspacing='0' cellpadding='0' class="table1">
<tr height="25">
<td width='20%' align="center" class="td1"><%=res.Fields(0).name%></td>
<td width='20%' align="center" class="td1"><%=res.Fields(1).name%></td>
<td align="center" class="td1">操作选项</td>
</tr>
<%
do while not res.EOF=true and rowcount<res.PageSize
Response.Write "<tr height='25'>"
for i=0 to res.Fields.count-1
Response.Write "<td>"&res.Fields(i).value&"</td>"
next
%>
<td align="center">
<a href="#"onClick="dis1(<%=res.Fields(0).Value%>,'<%=res.Fields(1).Value%>')">修改</a>
</td>
<%
Response.Write "</tr>"
res.MoveNext
rowcount=rowcount+1
loop
%>
<tr>
<td colspan="3" align="center">
<a href="Dept_grade.asp?page=1">首页</a>
<a href="Dept_grade.asp?page=<%
if currentpage-1<=1 then
Response.Write "1"
else
Response.Write currentpage-1
end if
%>">上页</a>
<a href="Dept_grade.asp?page=<%
if currentpage+1>=res.PageCount then
Response.Write res.PageCount
else
Response.Write currentpage+1
end if
%>">下页</a>
<a href="Dept_grade.asp?page=<%=res.PageCount%>">尾页
</td>
</tr>
<%
else
Response.Write "数据库无记录!"
end if
%>
<tr>
<td colspan="3" align="center" id="op_title">
<a href="#" onClick="javascript:document.getElementById('add1').style.display='inline'">新增等级</a>
</td>
</tr>
<tr id="add1" style="display:none;"><td colspan="3" align="center">
<form method="post" action="Dept_grade.asp?op=1" name="addgd" onSubmit="return Validator.Validate(this,2)">
请输入等级名称:<INPUT type="text" name="text1" dataType="CEN" msg="输入项为空或输入无效字符！" onblur="ajaxfuct(this.value,'',3);testlen(this,10,0);">
<INPUT type="submit" value="新增" name=submit1>
</form>
<li style="list-style-type:none;">
<font color="red" id="r_name"></font>
</li>
</td></tr>
<tr id="update1" style="display:none;"><td colspan="3" align="center">
<form method="post" action="Dept_grade.asp?op=2" name="alter_gd" onSubmit="return Validator.Validate(this,2)">
请输入等级名称:<INPUT type="text" name="text2"dataType="CEN" msg="输入项为空或输入无效字符！" onblur="ajaxfuct(this.value,document.alter_gd.a_id.value,'3_1');testlen(this,10,0);">
<INPUT type="hidden" name="a_id">
<INPUT type="submit" value="修改" name=submit2>
<a href="Dept_grade.asp">返回</a>
</form>
<li style="list-style-type:none;">
<font color="red" id="r2_name"></font>
</li>
</td></tr>
</table>
<%
elseif op="1" then
dept_name=request.form("text1")
on error resume next
conn.execute ("insert into deptlevel values('"&dept_name&"')")
if err.number=0 then
response.Write "添加等级成功！"
else
response.Write("添加等级失败！")
end if
response.addHeader "refresh","3;url=Dept_grade.asp"
elseif op="2" then
id=request.form("a_id")
dept_name=request.form("text2")
conn.execute "update deptlevel set dlevel_name='"&dept_name&"' where dept_level="&id
on error resume next
if err.number=0 then
response.Write "修改成功！"
else
response.Write("修改失败！")
end if
response.addHeader "refresh","3;url=Dept_grade.asp"
end if
%>
</div>
<!--#include file="../Include/bottom.asp"-->
<!--内容结束-->
<%
if res.State=1 then
res.Close
end if
conn.close
set res=nothing
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -