📄 skill.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"-->
<div id="content" style="position:absolute; width:90%; height:115px; z-index:3; left: 48px; top: 190px;">
<!--内容开始-->
<%
call checkin_sys(session("UsersId"),session("PerId"),22)
Sid=request.querystring("Sid")
Set res=server.CreateObject("adodb.recordset")
res.open"select * from skill where skill_id='"&Sid&"'",conn,1,1
%>
<form name="form1" method="post" action="Skill.asp?Sid=<%=res(0)%>">
<table width="60%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2" class="td1">
<img src="../images/sub01_05.jpg" height="25" align="middle">
<a href="Search_emly.asp?id=<%=res("personnel_id")%>">员工搜索</a>-->
<a href="Search.asp?id=<%=res("personnel_id")%>">档案维护</a>-->
<a href="Skill_list.asp?id=<%=res("personnel_id")%>">技能维护</a>-->
技能修改
</td>
</tr>
<tr>
<td width="17%"><div align="right">员工号：</div></td>
<td width="83%"> <%=res(1)%> </td>
</tr>
<tr>
<td><div align="right">技能：</div></td>
<td><input name="technic" type="text" size="15" value="<%=res(2)%>"></td>
</tr>
<tr>
<td><div align="right">技能职称：</div></td>
<td>
<select name="level">
<%
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"<option value='"&lev.Fields(0).value&"' selected>"&lev.Fields(1).value
else
response.Write"<option value='"&lev.Fields(0).value&"'>"&lev.Fields(1).value
end if
lev.movenext
wend
lev.Close
set lev=nothing
%>
</td>
</tr>
<tr>
<td><div align="right">技能描述：</div></td>
<td><input type="text" name="descript" value="<%=res(4)%>"></td>
</tr>
<tr>
<td valign="top"> <div align="right">备注：</div></td>
<td><textarea name="remark" cols="40" rows="10" ><%=res(5)%></textarea></td>
</tr>
<tr>
<td colspan="2"><div align="center">
<input type="submit" name="Submit" value="提交" class="button">
<input type="reset" name="Submit2" value="重置" class="button">
</div></td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td colspan="2" class="td1">
<div align="center" class="td1">
<a href="Skill_list.asp?id=<%=res(1)%>">返回</a>
</div>
</td>
</tr>
</table>
</form>
<%
If request.Form("submit")<>"" Then
Sid=request.querystring("Sid")
technic=Trim(request.Form("technic"))
level=Trim(request.Form("level"))
descript=Trim(request.Form("descript"))
remark=Trim(request.Form("remark"))
If technic<>"" Then
Set res=server.CreateObject("adodb.recordset")
res.open"update skill set skill_technic='"&technic&"',skill_level='"&level&"',skill_descript='"&descript&"',skill_remark='"&remark&"' where skill_id="&Sid&"",conn,3,3
response.redirect("skill_js.asp?Sid="&Sid&"")
Else
response.write"<script>alert('员工编号和技能职称不能为空！');window.location.href('skill.asp?Sid="&Sid&""');</script>"
End If
End If
%>
<!--#include file="../Include/bottom.asp"-->
<!--内容结束-->
</div>
</body>
</html>
<%
res.close
Set res=Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -