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

📄 kq_jbsq.asp

📁 OFFICE办公自动化
💻 ASP
字号:
🔍 
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<!-- #INCLUDE FILE = "../public/showpage.asp" -->
<!-- #include file="../inc/pubfun_a.inc" -->
<%call checkqx("0803")%> 
<html>
<head>
	<script language=javascript src="../js/fun_Script.js"></script>
	<title>考勤管理</title>
	<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
	<link rel="stylesheet" href="../css/main.css" type=text/css>
	<script language="vbscript">
	sub doDel
		if msgbox("要删除选中的加班申请吗？",vbQuestion+vbYesNo,"删除")=vbNo then exit sub
		frmSC.submit
	end sub
	</script>
</head>
<body>
<div class="TitleBar">加班申请</div>
<%
	dim ssj,slb
	ssj=Request("sj")
	slb=Request("lb")
	if ssj="" then ssj="X1"
	if slb="" then slb="XX"
%>
<table width=98% class=tabletoolbar border=0 cellspacing="1" cellpadding="0" align=center>
	<form name=frmCX id=frmCX method="post" action="kq_jbsq.asp">
	<tr>
		<td align="left"><div class="TableTitleText">加班申请单列表</div></td>
		<td align="right">
			按加班时间： <select name="sj" id=sj size="1">
			<option value="XX" selected>全部</option>
			<option value="X1"<% if ssj="X1" then Response.Write " selected" %>>本周</option>
			<option value="X2"<% if ssj="X2" then Response.Write " selected" %>>本月</option>
			</select> 
			按审批情况： <select name="lb" id =lb size="1" >
			<option value="XX" selected>全部</option>
			<option value="X1"<% If slb="X1" Then Response.Write " selected" %>>审批未完成</option>
			<option value="X2"<% If slb="X2" Then Response.Write " selected" %>>审批未通过</option>
			<option value="X3"<% If slb="X3" Then Response.Write " selected" %>>审批已通过</option>
			<option value="X4"<% If slb="X4" Then Response.Write " selected" %>>未核准</option>
			<option value="X5"<% If slb="X5" Then Response.Write " selected" %>>核准未同意</option>
			<option value="X6"<% If slb="X6" Then Response.Write " selected" %>>核准已同意</option>
			</select>  
			<input type="button" class="button"  onclick="vbscript:frmcx.submit()" value="查询"  id=button1 name=button1></input>
			<input type="button" class="button"  onclick="javascript:location.href='kq_jbsq_add.asp'" value="新增" id=button2 name=button2></input>
			<input type="button" class="button"  onclick="vbscript:dodel" value="删除" id=button3 name=button3></input>
		</td>
	</tr>
	</form>
</table>
<%
	dim rs,ssql,sygbh
	sygbh=session("LoginID")
	set rs=server.CreateObject("adodb.recordset")
	ssql="select a.*,b.spbz,b.sqsy from oa_jbmx a,oa_sqjbxx b " _
			& "where a.sqxh=b.sqxh and b.sqr="&session("LoginID") &" "
	dim bdate,edate
	select case ssj
		case "XX"
			ssql=ssql & " "
		case "X1"
			bdate=formatdatetime_activenew(dateadd("d",1-Weekday(now,vbMonday),now),"yyyy-mm-dd")
			edate=formatdatetime_activenew(dateadd("d",7-Weekday(now,vbMonday),now),"yyyy-mm-dd")
			ssql=ssql & "and substring(YJKSSJ,1,10)>='" & bdate & "' and substring(YJKSSJ,1,10)<='" & edate & "' "
		case "X2"
			bdate=formatdatetime_activenew(now,"yyyy-mm-01")
			edate=formatdatetime_activenew(dateadd("m",1,now),"yyyy-mm-01")
			ssql=ssql & "and substring(YJKSSJ,1,10)>='" & bdate & "' and substring(YJKSSJ,1,10)<'" & edate & "' "
	end select
	select case slb
		case "XX"
			ssql=ssql & " "
		case "X1"
			ssql=ssql & " and (b.spbz='N' or b.spbz='0') "
		case "X2"
			ssql=ssql & " and (b.spbz='2' or b.spbz='3') "
		case "X3"
			ssql=ssql & " and b.spbz='1' "
		case "X4"
			ssql=ssql & " and (a.hzqk='1' or a.hzqk='0') and b.spbz='1' "
		case "X5"
			ssql=ssql & " and a.hzqk='2' and b.spbz='1' "
		case "X6"
			ssql=ssql & " and a.hzqk='3' and b.spbz='1' "
	end select
	
	ssql=ssql & " order by a.sqxh desc"
	'Response.Write ssql
	rs.Open ssql,oConn,1,1
	dim page
	rs.Pagesize=application("RecPerPage")
	page=Request("page")
	if isempty(page) then 
		  page=1
	end if
	if rs.recordcount>0 then
		rs.absolutepage=page
	end if
%>
<table class="tableframe" width="98%" align="center" border="0" cellpadding="0" cellspacing="0">
	<form name=frmSC id=frmSC method="post" action="kq_jbsq_del.asp">
	<tr align="center" class=listtitle>
		<td class="listcelltitle" >详细</td>
		<td class="listcelltitle" >预计起止时间</td>
		<td class="listcelltitle" >加班事由</td>
		<td class="listcelltitle" >审批情况</td>
		<td class="listcelltitle" >实际起止时间</td>
		<td class="listcelltitle" >确认情况</td>
	</tr>
<% 
   dim i
   i=0 
   do while i<application("RecPerPage") and Not rs.EOF 
   %>
	<tr class=listrow1>
		<td class=listcellrow><nobr>
   <%
		if rs("spbz")="N" or rs("spbz")="2" or  rs("spbz")="3" then
   %>
		<input type="checkbox" id=chksc name=chksc value=<%=rs("sqxh")%>><a href="kq_jbsq_edit.asp?sqxh=<%=rs("sqxh")%>" title="请点击进行修改">修改</a>
	<%else%>
		&nbsp;&nbsp;&nbsp;<a href="javascript:gotourl('kq_jbsq_view.asp?sqxh=<%=rs("sqxh")%>','qjdview','600px','400px',1,0);" title="请点击查看详细信息">详细</a>
	<%end if%>
		</nobr></td>
		<td class=listcellrow align=center><nobr>
			&nbsp;从：<%=formatdatetime_activenew(rs("yjkssj"),"yyyy-mm-dd hh:nn")%>
			<br>&nbsp;到：<%=formatdatetime_activenew(rs("yjjssj"),"yyyy-mm-dd hh:nn")%></nobr></td>
		<td class=listcellrow><%=replace(server.HTMLEncode(rs("sqsy") & ""),vbcr,"<br>") %>&nbsp;</td>
		<td class=listcellrow><nobr>&nbsp;
		<%
			select  case rs("spbz")
				case "N"
					Response.Write "未审批"
				case "0"
					Response.Write "审批中"
				case "1"
					Response.Write "同意"
				case "2"
					Response.Write "不同意"
				case "3"
					Response.Write "不同意已退回"
			end select
		%>
		</nobr></td>
		<td class=listcellrow align=center><nobr>
			&nbsp;<%if rs("sjkssj") & ""<>"" then Response.Write "从：" & formatdatetime_activenew(rs("sjkssj"),"yyyy-mm-dd hh:nn")%>
			<br>&nbsp;<%if rs("sjjssj") & ""<>"" then Response.Write "到：" & formatdatetime_activenew(rs("sjjssj"),"yyyy-mm-dd hh:nn")%></nobr></td>
		<td class=listcellrow><nobr>&nbsp;
		<%
			select  case rs("hzqk")
				case "0"
					Response.Write "未确认"
					if rs("spbz")="1" then
						Response.Write "→<a href='kq_jbsq_qr_edit.asp?sqxh=" & rs("sqxh") & "' >确认</a>"
					end if
				case "1"
					Response.Write "已确认未核"
					if rs("spbz")="1" then
						Response.Write "→<a href='kq_jbsq_qr_edit.asp?sqxh=" & rs("sqxh") & "' >确认</a>"
					end if
				case "2"
					Response.Write "不同意"
					if rs("spbz")="1" then
						Response.Write "→<a href='kq_jbsq_qr_edit.asp?sqxh=" & rs("sqxh") & "' >确认</a>"
					end if
				case "3"
					Response.Write "同意"
			end select
		%>
		</nobr></td>
	</tr>
	<%
		rs.MoveNext
		i=i+1
	loop
%>
</form>
	<tr>
	<%if rs.RecordCount<>0 then%>
		<td colspan="6" class="listtail" align=right><%call ShowPage_new(cint(rs.recordcount),cint(rs.pagesize),cint(page),cint(rs.pagecount),"kq_jbsq.asp?sj=" & ssj & "&lb=" & slb & "")%></td>
	<%else%>
		<td colspan="6" class="listtail" align=center>没有符合条件的加班申请单</td>
	<%end if%>
	</tr>
</table>
</body>
</html>

<%
  rs.Close
  set rs=nothing
  oConn.close
  set oConn=nothing

%>

⌨️ 快捷键说明

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