hrmbase_list_lz.asp

OFFICE办公自动化

<%
'OA 表单生成器1.0
'功能：档案基本信息列表
'参数：request("page")=int #当前页码;  request.form("Search")=chr #上次查询条件
%>

<!--#include file="../inc/NoCatch.asp"-->
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->

<%
'response.buffer=false
'------------------------------------------------设置参数
LoginID=trim(Session("LoginID")) : if LoginID="" then LoginID=0 '当前用户ID
maxmessage=15 '每页显示记录数
currentpage=request("page") '当前页码
Search=request("Search") '上次查询条件
'------------------------------------------------
'------------------------------------------------删除记录
if request("mod")="dele" then
	id=request("id") : if id="" then id=0 '删除记录ID
	oConn.Execute "delete from tbioaHrmBase where id="&id
	response.write "<script>alert('档案基本信息成功删除!');history.back()</script>"
	response.end
end if
'------------------------------------------------
'------------------------------------------------取记录
'分页取记录 （返回rs对象）
'rs.recordcount 为记录总数
'rs.PageSize 为本页记录数
'
table="tbioaHrmBase" '表名

'接受查询参数
	bh=Request("bh")'员工编号
	xm=Request("xm")'姓名
	xb=Request("xb")'性别
	sfzh=Request("sfzh")'身份证号
	csrq=Request("csrq")'出生日期
	csrq_end=Request("csrq_end")'出生日期(结束)
	yearmod=Request("yearmod")'忽略年份
	if yearmod="1" then
		if csrq<>"" then csrq=MONTH(csrq) + day(csrq)/100
		if csrq_end<>"" then csrq_end=MONTH(csrq_end) + day(csrq_end)/100
	end if
	province=Request("province")'籍贯省
	city=Request("city")'籍贯市
	zzmm=Request("zzmm")'政治面貌
	rdsj=Request("rdsj")'入党时间
	rdsj_end=Request("rdsj_end")'入党时间(结束)
	xl=Request("xl")'最高学历
	sxzy=Request("sxzy")'所学专业
	zcxb=Request("zcxb")'职称系别
	zcjb=Request("zcjb")'职称级别
	zcsysj=Request("zcsysj")'授予时间
	zcsysj_end=Request("zcsysj_end")'授予时间(结束)
	zcsyjg=Request("zcsyjg")'授予机关
	zyzg=Request("zyzg")'职业资格
	gz=Request("gz")'工种
	hyzk=Request("hyzk")'婚姻状况
	znzk=Request("znzk")'子女状况
	sccjgzsj=Request("sccjgzsj")'首次参加工作时间
	sccjgzsj_end=Request("sccjgzsj_end")'首次参加工作时间(结束)
	rzdate=Request("rzdate")'入职日期
	rzdate_end=Request("rzdate_end")'入职日期(结束)
	rzzt=Request("rzzt")'入职状态
	xgzdw=Request("xgzdw")'现工作单位
	xgzgw=Request("xgzgw")'现工作岗位
	xrzw=Request("xrzw")'现任职务
	sfghhy=Request("sfghhy")'是否工会会员
	rhrq=Request("rhrq")'入会日期
	rhrq_end=Request("rhrq_end")'入会日期(结束)
	lzdate=Request("lzdate")'离职日期
	lzdate_end=Request("lzdate_end")'离职日期(结束)
	lzlb=Request("lzlb")'离职类别


'查寻条件
if Search="" then
	Search="WHERE "
	if bh<>""	then	Search = Search & "bh LIKE '%" & bh & "%' and "
	if xm<>""	then	Search = Search & "xm LIKE '%" & xm & "%' and "
	if xb<>""	then	Search = Search & "xb LIKE '%" & xb & "%' and "
	if sfzh<>""	then	Search = Search & "sfzh LIKE '%" & sfzh & "%' and "

	if csrq<>"" and yearmod=""	then	Search = Search & "csrq>='" & cdate(csrq) & "' and "
	if csrq_end<>"" and yearmod=""	then	Search = Search & "csrq<='" & cdate(csrq_end) & "' and "
	if csrq<>"" and yearmod="1"	then	Search = Search & "(MONTH(csrq)+CONVERT(float,DAY(csrq))/100)>='" & csrq & "' and "
	if csrq_end<>"" and yearmod="1"	then	Search = Search & "(MONTH(csrq)+CONVERT(float,DAY(csrq))/100)<='" & csrq_end & "' and "

	if province<>""	then	Search = Search & "province LIKE '%" & province & "%' and "
	if city<>""	then	Search = Search & "city LIKE '%" & city & "%' and "
	if zzmm<>""	then	Search = Search & "zzmm LIKE '%" & zzmm & "%' and "
	if rdsj<>""	then	Search = Search & "rdsj>='" & cdate(rdsj) & "' and "
	if rdsj_end<>""	then	Search = Search & "rdsj<='" & cdate(rdsj_end) & "' and "
	if xl<>""	then	Search = Search & "xl LIKE '%" & xl & "%' and "
	if sxzy<>""	then	Search = Search & "sxzy LIKE '%" & sxzy & "%' and "
	if zcxb<>"" then Search = Search & "exists(select * from tbioahrmjobzc where bid=tbioaHrmBase.id and zcxb LIKE '%" & zcxb & "%') and "
	if zcjb<>"" then Search = Search & "exists(select * from tbioahrmjobzc where bid=tbioaHrmBase.id and zcjb LIKE '%" & zcjb & "%') and "
	if zcsysj<>""	then	Search = Search & "zcsysj>='" & cdate(zcsysj) & "' and "
	if zcsysj_end<>""	then	Search = Search & "zcsysj<='" & cdate(zcsysj_end) & "' and "
	if zcsyjg<>""	then	Search = Search & "zcsyjg LIKE '%" & zcsyjg & "%' and "
	if zyzg<>""	then	Search = Search & "zyzg LIKE '%" & zyzg & "%' and "
	if gz<>""	then	Search = Search & "gz LIKE '%" & gz & "%' and "
	if hyzk<>""	then	Search = Search & "hyzk LIKE '%" & hyzk & "%' and "
	if znzk<>""	then	Search = Search & "znzk LIKE '%" & znzk & "%' and "
	if sccjgzsj<>""	then	Search = Search & "sccjgzsj >= '" & sccjgzsj & "' and "
	if sccjgzsj_end<>""	then	Search = Search & "sccjgzsj <= '" & sccjgzsj_end & "' and "
	if rzdate<>""	then	Search = Search & "rzdate>='" & cdate(rzdate) & "' and "
	if rzdate_end<>""	then	Search = Search & "rzdate<='" & cdate(rzdate_end) & "' and "
	if rzzt<>""	then	Search = Search & "rzzt LIKE '%" & rzzt & "%' and "
	if xgzgw<>""	then	Search = Search & "xgzgw LIKE '%" & xgzgw & "%' and "
	if xrzw<>""	then	Search = Search & "xrzw LIKE '%" & xrzw & "%' and "
	if sfghhy<>""	then	Search = Search & "sfghhy='" & sfghhy & "' and "
	if rhrq<>""	then	Search = Search & "rhrq>='" & cdate(rhrq) & "' and "
	if rhrq_end<>""	then	Search = Search & "rhrq<='" & cdate(rhrq_end) & "' and "
	if lzdate<>""	then	Search = Search & "lzdate>='" & cdate(lzdate) & "' and "
	if lzdate_end<>""	then	Search = Search & "lzdate<='" & cdate(lzdate_end) & "' and "
	if lzlb<>""	then	Search = Search & "mod =" & lzlb & " and "
	Search=Search & "mod<-1"'可查看所有人录入的记录
	'Search=Search & "userid="&LoginID'只能查看自己录入的记录
END if

if xgzdw="" then xgzdw=0
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select " & table & ".*,PATINDEX('%-%', bh) AS pbh from " & table & " INNER JOIN tbioaDepartment a INNER JOIN FunDepartment("&xgzdw&") b ON a.ID = b.id ON a.ID = xgzdw " & Search & " order by pbh,bh"
rs.open sql,oConn,1,1
Showpage=Paging(rs,maxmessage,currentpage,"xgzdw="&xgzdw&"&Search="&Server.URLEncode(Search))
'------------------------------------------------
%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css" type=text/css>
<title>main</title>
</head>

<body topmargin="10" leftmargin="10">

<!--#include file="HrmBase_menu_lz.html"-->

<hr width="100%" size=1 color="#000000">

<%=Showpage%>
<%allnum=GetTableNum(table,""):if allnum=0 then allnum=1%>
<%percent=formatnumber(rs.RecordCount/allnum*100,2,true)%>
(共<%=rs.RecordCount%>人 占总人数的<%=percent%>%)
<a href="HrmBase_list_xls.asp?xgzdw=<%=xgzdw%>&Search=<%=Server.URLEncode(Search)%>">导出EXCEL</a>
<br>
<%
if rs.RecordCount=0 then
	response.write "<BR><BR>暂时为空！"
else
%>


<table width="100%" cellspacing="1" cellpadding="2" class="tab">
  <tr>
	<td class="tdTop" nowrap>编号</td>
	<td class="tdTop" nowrap>姓名</td>
	<td class="tdTop" nowrap>性别</td>
	<td class="tdTop" nowrap>身份证</td>
	<td class="tdTop" nowrap>出生日期</td>
	<td class="tdTop" nowrap>年龄</td>
	<td class="tdTop" nowrap>最高学历</td>
	<td class="tdTop" nowrap>工种</td>
	<td class="tdTop" nowrap>入职日期</td>
	<td class="tdTop" nowrap>原工作单位</td>
	<td class="tdTop" nowrap>原工作岗位</td>
	<td class="tdTop" nowrap>原任职务</td>
	<td class="tdTop" colspan="4" nowrap>相关操作</td>
  </tr>
<%for i = 0 to rs.PageSize-1
   If rs.EOF Then Exit For
   if i mod 2 = 0 then td_class="td1" else td_class="td2"
%>
  <tr>
	<td class="<%=td_class%>" nowrap><%=HtmlOut(rs("bh"))%></td>
	<td class="<%=td_class%>" nowrap><%=HtmlOut(rs("xm"))%></td>
	<td class="<%=td_class%>"><%=HtmlOut(rs("xb"))%></td>
	<td class="<%=td_class%>"><%=HtmlOut(rs("sfzh"))%></td>
	<td class="<%=td_class%>" nowrap><%=HtmlOut(rs("csrq"))%></td>
	<td class="<%=td_class%>"><%=datediff("yyyy",rs("csrq"),date)%></td>
	<td class="<%=td_class%>"><%=HtmlOut(rs("xl"))%></td>
	<td class="<%=td_class%>" nowrap><%=HtmlOut(rs("gz"))%></td>
	<td class="<%=td_class%>" nowrap><%=HtmlOut(rs("rzdate"))%></td>
	<td class="<%=td_class%>" nowrap><%=HtmlOut(GetTableValue("tbioaDepartment","Name","id",rs("xgzdw")))%></td>
	<td class="<%=td_class%>" nowrap><%=HtmlOut(rs("xgzgw"))%></td>
	<td class="<%=td_class%>"><%=HtmlOut(rs("xrzw"))%></td>
	<td class="<%=td_class%>" width="50" nowrap>
	  <img border="0" src="../images/icon_show.gif" align="left">
	  <a href="HrmBase_show.asp?bid=<%=rs("ID")%>" target="_blank">查看</a>
	</td>
	<%If returnqx("1005") then%>
	<td class="<%=td_class%>" width="50" nowrap>
	  <img border="0" src="../images/icon_edit.gif" align="left">
	  <a href="HrmBase_edit_lz.asp?id=<%=rs("ID")%>">编辑</a>
	</td>
	<td class="<%=td_class%>" width="50" nowrap>
	  <img border="0" src="../images/icon_dele.gif" align="left">
	  <a href="HrmBase_list.asp?mod=dele&id=<%=rs("ID")%>" onClick="return confirm('确定要删除该条记录吗？\n该操作不可恢复！')">删除</a>
	</td>
	<%end if%>
  </tr>
<%
rs.MoveNext
next
%>
</table>


<%
end if
rs.close
%>

</body>

</html>

<%'释放对象变量
oConn.close
%>