⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 grade.asp

📁 武汉软件园人力资源管理系统完整源代码,希望大家能够多多交流.
💻 ASP
字号:
<%@ Language=VBScript Transaction="Required"%>
<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%; height:115px; z-index:3; left: 48px; top: 178px;">
<%
call checkin_sys(session("UsersId"),session("PerId"),3)
dim op,res,i
dim lname,lstate,ldes,lps,ldate1,ldate2
dim e_id
op = request.QueryString("op")
set res = server.CreateObject("adodb.recordset")
if op = "" then
%>
<script type="text/javascript" src="../Include/ajaxrequest.js"></script>
<script type="text/javascript">
function ajaxfuct(num,dno,op)
{
                               // 创建AJAX对象
  var ajaxobj=new AJAXRequest();
  
  ajaxobj.method="post";
                               // 设置回调函数,输出响应内容
  ajaxobj.callback=function(xmlobj) 
  {
    if (op=="2")
    {
      document.getElementById("ts"+dno).innerHTML=xmlobj.responseText;
      if(xmlobj.responseText=="已撤消!")
      {
        document.getElementById("ts"+dno).parentElement.children[2].innerHTML="<center>撤消</center>";
        document.getElementById("ts"+dno).parentElement.children[3].innerHTML="&nbsp";
      }
    }
  }
                                   // 发送请求
   ajaxobj.send("Grade_back.asp?hi="+num+"&op="+op);
}

</SCRIPT>

<center>行政级别信息列表</center>
<%
res.open "select plevel_id,plevel_name,plevel_state from plevel where plevel_state='启用'",conn,1,1
i=0
%>
<br/>
<table width="85%" border="1" align="center" cellpadding="0" cellspacing="0" class="table1">
  <tr height="25">
    <td width="12%" class="td1"><div align="center">级别编号</div></td>
    <td width="12%" class="td1"><div align="center">级别名称</div></td>
    <td width="12%" class="td1"><div align="center">级别状态</div></td>
    <td width="24%" class="td1"><div align="center">操作选项</div></td>
    <td width="40%" class="td1"><div align="center">提示</div></td>
  </tr>
<%while not res.eof%>
  <tr height="25">
    <td><div align="center"><%=res(0)%></div></td>
    <td><div align="center"><%=res(1)%></div></td>
    <td><div align="center"><%=res(2)%></div></td>
    <td align="center">      
      <a href="Grade.asp?op=3&id=<%=res(0)%>">查看</a>&nbsp;&nbsp;
      <a href="Grade.asp?op=4&id=<%=res(0)%>">修改</a>&nbsp;&nbsp;
      <a href="#" onclick="javascript:var num=confirm('确实要撤消吗?');if(num==true){ajaxfuct('<%=res(0)%>','<%=i%>','2')}">撤销</a>
    </td>
    <td id="ts<%=i%>">&nbsp;</td>
  </tr>
<%
res.movenext
i=i+1
wend
%>
</table>
<br/>
<center>
<input type="button" onclick="document.location='Grade.asp?op=1'" value="新增级别" id=button1 name=button1 class="button">
</center>

<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''                                  创建行政级别操作
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif op = "1" then
%>
<script type="text/javascript" src="../Include/ajaxrequest.js"></script>
<script type="text/javascript">
function ajaxfuct(num,op)
{
                               // 创建AJAX对象
  var ajaxobj=new AJAXRequest();
  
  ajaxobj.method="post";       //设置请求方式
                               // 设置回调函数,输出响应内容
  ajaxobj.callback=function(xmlobj) 
  {
    if (op=="1")
    {
      document.getElementById("g_name").innerHTML=xmlobj.responseText;
      if(xmlobj.responseText=="该级别名称已存在!")
          {
            alert("请重新输入!")
            document.add_grd.name.focus();
          }
      
    }
  }
  
                                 // 发送请求
  ajaxobj.send("Grade_back.asp?hi="+num+"&op="+op);
}
//-->
</SCRIPT>

<div style="position:absolute;left:150px;">
<img src="..\images\sub01_05.jpg" align="absmiddle" ><font color="#183978" size="3" face="华文仿宋">输入级别信息</font> 
</div>
<br/><br/>
<form action="Grade.asp?op=2" method="post" name="add_grd" onSubmit="return Validator.Validate(this,2)">
<table width="563" border="1" align="center" cellpadding="0" cellspacing="0" class="table1">
  <tr>
    <td height="35" class="td1"><div align="center">级别名称:</div></td>
    <td height="35">&nbsp;
       <input name="name" type="text" onblur="ajaxfuct(document.add_grd.name.value,'1')" dataType="CEN" msg="名称输入无效字符" onkeyup="testlen(this,15,0)">
       <b id="g_name"></b>
     </td>
  </tr>
  <tr>
    <td height="35" class="td1"><div align="center">级别描述:</div></td>
    <td height="35">&nbsp;<input name="des" type="text" size="55" dataType="CEN" msg="描述输入无效字符" onblur="testlen(this,50,0)"></td>
  </tr>
  <tr>
    <td height="35" class="td1"><div align="center">备注:</div></td>
    <td height="35">&nbsp;<input name="ps" type="text" size="55" dataType="CEN" msg="备注输入无效字符" onblur="testlen(this,50,0)"></td>
  </tr>
</table><br>
<table width="563" border="0" align="center">
  <tr>
    <td><div align="center">
      <input name="" type="submit" value="创建" class="button">
      &nbsp;
      <input name="" type="reset" value="重填" class="button">
    </div></td>
  </tr>
</table><br>
<table width="563" border="0" align="center">
   <tr>
      <td width="372">&nbsp;</td>
      <td width="181"><div align="center"><a href="Grade.asp">返回</a></div></td>
   </tr>
</table>
</form>

<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''                                 级别创建处理
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

elseif op = "2" then

lname = request.Form("name")
ldes = request.Form("des")
lps = request.Form("ps")
ldate1 = cstr(year(date))&"-"&cstr(month(date))&"-"&cstr(day(date))
on error resume next
res.open "insert into plevel(plevel_name,plevel_state,plevel_description,plevel_remark,plevel_createdate) values('"&lname&"','启用','"&ldes&"','"&lps&"','"&ldate1&"')",conn,3,3
 if err.number = 0 then
     Response.Write "<center>行政级别创建成功!</center>"
  else
     response.Write "<center>行政部门创建失败!</center>"
end if
     Response.AddHeader "refresh","2;url=Grade.asp"


%>

<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''                        级别信息查看
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

elseif op = "3" then
dim s_id
s_id = request.QueryString("id")
res.open "select * from plevel where plevel_id ="&s_id,conn,3,3
%>
<div style="position:absolute;left:150px;">
<img src="..\images\sub01_05.jpg" align="absmiddle" ><font color="#183978" size="3" face="华文仿宋">级别详细信息</font> 
</div>
<br/><br/>
<table width="563" border="1" align="center" cellpadding="0" cellspacing="0" class="table1">
  <tr>
    <td width="144" height="35" class="td1"><div align="center">级别编号:</div></td>
    <td height="35"><div align="center"><%=res(0)%></div></td>
    </tr>
  <tr>
    <td height="35" class="td1"><div align="center">级别名称:</div></td>
    <td height="35">
      
        <div align="center"><%=res(1)%></div></td>
    </tr>
  <tr>
    <td height="35" class="td1"><div align="center">级别状态:</div></td>
    <td height="35"><div align="center"><%=res(3)%></div></td>
    </tr>
  </tr>
    <tr>
    <td height="35" class="td1"><div align="center">创建时间:</div></td>
    <td height="35"><div align="center"><%=res(4)%></div></td>
    </tr> 
    <tr>
    <td height="35" class="td1"><div align="center">级别描述:</div></td>
    <td height="35"><div align="center"><%=res(2)%></div></td>
    </tr>
  <tr>
    <td height="35" class="td1"><div align="center">备注:</div></td>
    <td height="35"><div align="center"><%=res(6)%></div></td>
  </table>
<br><br>
<table width="563" border="0" align="center">
   <tr>
      <td width="372">&nbsp;</td>
      <td width="181"><div align="center"><a href="Grade.asp">返回</a>&nbsp;&nbsp;<a href="Grade.asp?op=4&id=<%=s_id%>">编辑</a></div></td>
   </tr>
</table>



<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''                            级别信息修改操作
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif op = "4" then
e_id = request.QueryString("id")
res.open "select * from plevel where plevel_id ="&e_id,conn,3,3
%>
<script type="text/javascript" src="../Include/ajaxrequest.js"></script>
<script type="text/javascript">
function ajaxfuct(num,theid,op)
{
                               // 创建AJAX对象
  var ajaxobj=new AJAXRequest();
  
  ajaxobj.method="post";       //设置请求方式
                               // 设置回调函数,输出响应内容
  ajaxobj.callback=function(xmlobj) 
  {
    if (op=="1_1")
    {
      document.getElementById("g_name").innerHTML=xmlobj.responseText;
       if(xmlobj.responseText=="该级别名称已存在!")
          {
            alert("请重新输入!")
            document.re_grade.name.focus();
          }     
    }
  }
  
                                 // 发送请求
  ajaxobj.send("Grade_back.asp?hi="+num+"&id="+theid+"&op="+op);
}
//-->
</SCRIPT>
<div style="position:absolute;left:150px;">
<img src="..\images\sub01_05.jpg" align="absmiddle" ><font color="#183978" size="3" face="华文仿宋">编辑级别信息</font> 
</div>
<br/><br/>
<form action="Grade.asp?op=5&id=<%=e_id%>" method="post" name="re_grade" onSubmit="return Validator.Validate(this,2)">
<table width="563" border="1" align="center" cellpadding="0" cellspacing="0" class="table1">
  <tr>
    <td width="144" height="35" class="td1"><div align="center">级别编号:</div></td>
    <td height="35"><div align="center"><%=res(0)%></div></td>
    </tr>
  <tr>
    <td height="35" class="td1"><div align="center">级别名称:</div></td>
    <td height="35">
      <input name="name" type="text" value="<%=res(1)%>" onblur="ajaxfuct(this.value,'<%=e_id%>','1_1')" dataType="CEN" msg="名称输入无效字符" onkeyup="testlen(this,10,0)">
      <b id="g_name"></b>
    </td>
  </tr>
  </tr>
    <tr>
    <td height="35" class="td1"><div align="center">创建时间:</div></td>
    <td height="35"><%=res(4)%></td>
    </tr> 
  <tr>
    <td height="35" class="td1"><div align="center">级别描述:</div></td>
    <td height="35"><input name="des" type="text" value="<%=res(2)%>" dataType="CEN" msg="描述输入无效字符"></td>
    </tr>
  <tr>
    <td height="35" class="td1"><div align="center">备注:</div></td>
    <td height="35"><input name="ps" type="text" value="<%=res(6)%>" dataType="CEN" msg="备注输入无效字符"></td>
  </table><br>
<table width="563" border="0" align="center">
  <tr>
    <td><div align="center">
      <input name="" type="submit" value="确定" class="button">
      &nbsp;
      <input name="" type="reset" value="重填" class="button">
    </div></td>
  </tr>
</table><br>
<table width="563" border="0" align="center">
   <tr>
      <td width="372">&nbsp;</td>
      <td width="181"><div align="center"><a href="Grade.asp">返回</a></div></td>
   </tr>
</table>
</form>

<%
elseif op = "5" then
lname = request.Form("name")
ldes = request.Form("des")
lps = request.Form("ps")
e_id = request.QueryString("id")
on error resume next
conn.execute "update plevel set plevel_name='"&lname&"',plevel_description='"&ldes&"',plevel_remark='"&lps&"' where plevel_id="&e_id
 if err.number = 0 then
     Response.Write "<center>行政级别修改成功!</center>"
  else
     response.Write "<center>行政部门修改失败!</center>"
end if
     Response.AddHeader "refresh","2;url=Grade.asp"

end if
if res.state=1 then
 res.close
end if
conn.close
set res=nothing
set conn=nothing
%>



</div>
<!--#include file="../Include/bottom.asp"-->
<!--内容结束-->

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -