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

📄 skill_list.asp

📁 武汉软件园人力资源管理系统完整源代码,希望大家能够多多交流.
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<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"-->
<%
call checkin_sys(session("UsersId"),session("PerId"),22)
datadel=request.QueryString("del")
id=request.QueryString("id")
if datadel<>"" then
set del=server.CreateObject("adodb.recordset")
del.open "delete from skill where skill_id="&datadel&"",conn,3,3
response.Write "<script>alert('删除成功!');window.location.href('Skill_list.asp?id="&id&"');</script>"
end if
%>
<div id="content" style="position:absolute; width:90%; height:115px; z-index:3; left: 48px; top: 190px;">
<!--内容开始-->
<%
id=request.QueryString("id")
set res=server.CreateObject("adodb.recordset")
res.open "select * from skill where personnel_id="&id&"",conn,1,1 
%>
<table width="95%" border="1" align="center" cellpadding="0" cellspacing="0" class="table1">
  
  <tr class="td1">
    <td width="18%"><div align="center">员工编号</div></td>
    <td width="18%"><div align="center">技能名称</div></td>
    <td width="18%"><div align="center">技能职称</div></td>
    <td width="18%"><div align="center">技能描述</div></td>
    <td><div align="center">备注</div></td>
    <td><div align="center">操作</div></td>
  </tr>
<%while not res.eof%>
  <tr>
    <td width="18%"><div align="center"><%=res("personnel_id")%></div></td>
    <td><div align="center"><%=res("skill_technic")%>
	<%'edu=res("skill_technic")
	'set resedu=server.CreateObject("adodb.recordset")
	'resedu.open "select * from certificate where certificate_id="&edu&"",conn,1,1
	'response.Write resedu(1)
	%></div></td>
    <td><div align="center">&nbsp;
	<%
		 dim lev
		 set lev=server.CreateObject("ADODB.recordset")
		 lev.open "select tp_id,tp_name from techpost",conn,1,1
		 while not lev.eof=true
			if lev.Fields(0).value=res("skill_level") then
				response.Write (lev.Fields(1).value) 
			end if
			lev.movenext
		 wend
		 lev.Close
		 set lev=nothing
	%>
	</div></td>
    <td><div align="center"><%=res("skill_descript")%></div></td>
    <td><div align="center">&nbsp;<%=res("skill_remark")%></div></td>
    <td><div align="center"><a href="Skill.asp?Sid=<%=res("skill_id")%>">修改</a>/<a href="Skill_list.asp?del=<%=res("skill_id")%>&id=<%=res("personnel_id")%>">删除</a></div></td>
  </tr>  
  
  <%
res.movenext
wend
%>
<tr>
    <td colspan="6"><div align="center"><a href="Search.asp?id=<%response.Write id%>">返回</a>&nbsp;|&nbsp;<a href="Skill_add.asp?id=<%response.Write id%>">新增档案</a></div></td>
    </tr>
</table>
<%
res.close
Set res=Nothing 
%>

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

⌨️ 快捷键说明

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