📄 card_list.asp
字号:
<%@language="vbscript" Codepage="936" %>
<%option explicit%>
<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"),23)
Dim datadel,id,del
datadel=request.QueryString("del")
id=request.QueryString("id")
if datadel<>"" then
set del=server.CreateObject("adodb.recordset")
del.open "delete from card where card_id="&datadel&"",conn,3,3
response.Write "<script>alert('删除成功');window.location.href('card_list.asp?id="&id&"');</script>"
end if
%>
<div id="content" style="position:absolute; width:90%; height:115px; z-index:3; left:48px; top:190px;">
<%
Dim res
id=request.QueryString("id")
set res=server.CreateObject("adodb.recordset")
res.open "select * from card where personnel_id="&id&"",conn,1,1
%>
<table width="95%" border="1" align="center" cellpadding="0" cellspacing="0" class="table1">
<tr>
<td width="10%" class="td1">
<div align="center">员工编号</div>
</td>
<td width="10%" class="td1">
<div align="center">证件名称</div>
</td>
<td width="10%" class="td1">
<div align="center">有效期</div>
</td>
<td width="10%" class="td1">
<div align="center">证件编号</div>
</td>
<td width="10%" class="td1">
<div align="center">发证机构</div>
</td>
<td width="10%" class="td1">
<div align="center">备注</div>
</td>
<td width="10%" class="td1">
<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">
<!--Dim edu,resedu
edu=res("certificate_id")
set resedu=server.CreateObject("adodb.recordset")
resedu.open "select * from certificate where certificate_id="&edu&"",conn,1,1
response.Write resedu("certificate_id")
-->
<%
dim edu
set edu=server.CreateObject("ADODB.recordset")
edu.open "select certificate_id,certificate_name from certificate",conn,1,1
while not edu.eof=true
if edu.Fields(0).value=res("certificate_id") then
response.Write (edu.Fields(1).value)
end if
edu.movenext
wend
edu.Close
set edu=nothing
%>
</div>
</td>
<td>
<div align="center">
<%=res("card_time")%>
</div>
</td>
<td>
<div align="center">
<%=res("card_number")%>
</div>
</td>
<td>
<div align="center">
<%=res("card_place")%>
</div>
</td>
<td>
<div align="center">
<%=res("card_remark")%>
</div>
</td>
<td>
<div align="center">
<a href="Card.asp?Cid=<%=res("card_id")%>">修改</a>/
<a href="Card_list.asp?del=<%=res("card_id")%>&id=<%=res("personnel_id")%>">删除</a>
</div>
</td>
</tr>
<%
res.movenext
wend
%>
<tr>
<td colspan="7">
<div align="center">
<a href="Search.asp?id=<%response.Write id%>">返回</a> |
<a href="Card_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 + -