📄 h_affirm.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>
<div id="Layer2" style="position:absolute; left:815px; top:520px; width:102px; height:17px; z-index:4">
<div align="center"><a href="task.asp">返回</a> </div>
</div>
<!--#include file="../Include/conn.asp"-->
<!--#include file="../Include/Head.asp"-->
<!--#include file="Syscheck.asp"-->
<div id="content" style="position:absolute; width:90%; height:115px; z-index:3; left: 48px; top: 190px;">
<!--内容开始-->
<script type="text/javascript" src="../Include/date.js"></script>
<%
If session("PerId")="" Or session("UsersId")="" Then
response.write "<script language='javascript'>alert('网页超时，请重新登陆！');location.href='../index.asp'</script></center>"
response.End
End if
dim rs,rs1
set rs=server.CreateObject("adodb.recordset")
set rs1=server.CreateObject("adodb.recordset")
rs1.Open "select dept_id from personnel where personnel_id="&session("PerId"),conn,3,3 '获取登陆者的部门
intSysRight=checkin_sys(session("UsersId"),session("PerId"),5,rs1("dept_id"))
If intSysRight=0 Or intSysRight=1 Then
Response.Write "<center>您没有此操作权限，如有问题请与系统管理员联系！</center>"
response.end
End if
dim intTotalPut '总的记录条数
dim intCurrentPage '当前要显示的页数
dim intTotalPages '总的页数
if Not isempty(request("page")) then '判断当前要显示的页数是否为空，为空的话让他显示第一页
intCurrentPage=Cint(request("page")) '否则将接收的字符型数据转换为整型数据
else
intCurrentPage=1
end if
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from postlock where postlock_state='待处理' and dept_id="&rs1("dept_id"),conn,3,3
rs1.Close
if rs.BOF and rs.EOF then
Response.Write "<p align='center'> 数据库中无数据！</p>"
else
intTotalPut=rs.recordcount '将记录集中总的记录条数赋给totalPut
rs.PageSize=5
intTotalPages=rs.PageCount
if intCurrentPage<1 then
intCurrentPage=1
elseif intCurrentPage>intTotalPages then
intCurrentPage=intTotalPages
end if
rs.AbsolutePage = cint(intCurrentPage)
showContent
showpage intTotalput,intTotalPages,"H_affirm.asp"
end if
sub showContent
dim i
i=0
%>
<table width="87%" border="1" align="center" cellpadding="0" cellspacing="0" class="table1">
<tr>
<td colspan="5"><img src="..\images\sub01_05.jpg" align="absmiddle"><font size="3" face="华文仿宋" color="#183978">岗位空缺列表：</font></td>
</tr>
<tr bgcolor="#eeeeee">
<td width="21%" align="center">需求部门</td>
<td width="22%" align="center">需求岗位</td>
<td width="20%" align="center">需求人数</td>
<td width="18%" align="center">需求时间</td>
<td width="19%" align="center">操作</td>
</tr>
<%
i=0
do while not rs.EOF and i<rs.PageSize%>
<tr> <form name="frmPostLock<%=i%>" method="post" action="H_affirm_save.asp?action=yes&pckid=<%=rs("postlock_id")%>&frm=<%=i%>">
<td align="center"><input type="text" name="txtDeptName<%=i%>" value="<%
rs1.Open "select dept_name from dept where dept_id="&rs("dept_id"),conn,3,3
Response.Write rs1("dept_name")
rs1.close%>" readonly size=10></td>
<td align="center"><input type="text" name="txtPostName<%=i%>" value="<%
rs1.Open "select post_name from post where post_id="&rs("post_id"),conn,3,3
Response.Write rs1("post_name")
rs1.close%>" size="10" readonly></td>
<td align="center"><input type="text" name="txtRequestNumber<%=i%>" size="4" value="1" onKeyPress= "return regInput(this,/^[0-9]*$/, String.fromCharCode(event.keyCode))"></td>
<td align="center"><input type="text" name="txtRequestDate<%=i%>" size="12" onFocus="javascript:ShowCalendar(this.name)"></td>
<td align="center">
<input type="button" name="Submit" value="需要" class="button" onClick="if(checkspace(document.frmPostLock<%=i%>.txtRequestDate<%=i%>.value)) alert('需求日期不能为空');else document.frmPostLock<%=i%>.submit();">
<input type="button" value="不需要" class="button" onClick="javascript:location.href='H_affirm_save.asp?action=no&pckid='+<%=rs("postlock_id")%>">
</td></form>
</tr>
<% i=i+1
rs.MoveNext
loop
rs.Close
set rs=nothing %>
</table>
<%end sub
Function showpage(intTotalnumber,intTotalPages,strFileName)
Dim n
n = intTotalPages
Response.Write "<form method='Post' action="&strFileName&" id='form1' name='form1'>"
Response.Write "<p align='center'> "
If intCurrentPage<2 Then
Response.Write "<font color='red'>首页 上一页 </font>"
Else
Response.Write "<a href="&strFileName&"?page=1>首页</a> "
Response.Write "<a href="&strFileName&"?page="&intCurrentPage-1&" >上一页</a> "
End If
If n-intCurrentPage<1 Then
Response.Write "<font color='red'>下一页 尾页</font>"
Else
Response.Write "<a href="&strFileName&"?page="&(intCurrentPage+1)&">"
Response.Write "下一页</a> <a href="&strFileName&"?page="&n&">尾页 </a>"
End If
Response.Write " 页次："&intCurrentPage&"/"&n&"页 "
Response.Write " 共有"&intTotalnumber&"个岗位空缺记录 "
Response.Write "<font class='contents'>转到：</font><input type='text' name='page' size=2 maxlength=10 value="&intCurrentPage&">"
Response.Write " <input type='submit' value='GO' name='cndok' class='button'></form>"
End Function
%>
<!--#include file="../Include/bottom.asp"-->
<!--内容结束-->
</div>
</body>
</html>
<script language=javascript>
/*function checkForm()
{
for(var i=0,i++,i<5)
{
alert(document.sermPostLock+i.txtRequestDate+i);
return false;
}
/*
if(checkspace(document.frmPostLock+i.txtRequestDate+i.value))
{
document.frmPostLock+i.txtRequestDate+i.focus();
alert("需求日期不能为空!");
return false;
}
}*/
function regInput(obj, reg, inputStr)
{
var docSel = document.selection.createRange()
if (docSel.parentElement().tagName != "INPUT") return false
oSel = docSel.duplicate()
oSel.text = ""
var srcRange = obj.createTextRange()
oSel.setEndPoint("StartToStart", srcRange)
var str = oSel.text + inputStr + srcRange.text.substr(oSel.text.length)
return reg.test(str)
}
function checkspace(checkstr)
{
var str = '';
for(i = 0; i < checkstr.length; i++)
{
str = str + ' ';
}
return (str == checkstr);
}
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -