?? kq_jbhz.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("0804")%>
<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>
</head>
<body>
<div class="TitleBar">加班核準</div>
<%
dim ssj,slb
ssj=Request("sj")
slb=Request("lb")
if ssj="" then ssj="X1"
if slb="" then slb="X1"
%>
<table width=98% class=tabletoolbar border=0 cellspacing="1" cellpadding="0" align=center>
<form name=frmCX id=frmCX method="post" action="kq_jbhz.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>
</select>
<input type="button" class="button" onclick="vbscript:frmcx.submit()" value="查詢" id=button1 name=button1></input>
</td>
</tr>
</form>
</table>
<%
'djr 的值為NULL或為空, 表示此類別的全部員工都不可登記
'djr 的值為all, 表示此類別的全部員工都可登記
'djr 的值為其他, 表示此類別的登記人為所選人員
dim rs,ssql,sygbh,rs1
sygbh=session("LoginID")
set rs=server.CreateObject("adodb.recordset")
set rs1=server.CreateObject("adodb.recordset")
ssql="select a.*,b.spbz,b.sqsy,b.sqr,b.sqbm from oa_jbmx a,oa_sqjbxx b,oa_sqlb d " _
& "where a.sqxh=b.sqxh and d.lbbh='09'" _
& " and (cast(d.djr as varchar(8000)) = 'all' or ','+cast(d.djr as varchar(8000))+',' like '%,"&sygbh&",%')"
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 & " and a.hzqk<>'0' and b.spbz='1' "
case "X1"
ssql=ssql & " and a.hzqk='1' and b.spbz='1' "
case "X2"
ssql=ssql & " and a.hzqk='2' and b.spbz='1' "
case "X3"
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 width="100%" class="tableframe">
<form name=frmSC id=frmSC method="post" action="kq_qjsq_del.asp">
<tr class="listtitle">
<td class="listcelltitle" >詳細</td>
<td class="listcelltitle" >申請人</td>
<td class="listcelltitle" >申請部門</td>
<td class="listcelltitle" >預(yù)計起止時間</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>
<a href="javascript:gotourl('kq_jbsq_view.asp?sqxh=<%=rs("sqxh")%>','qjdview','600px','400px',1,0);" title="請點擊查看詳細信息">詳細</a>
</nobr></td>
<td class=listcellrow><nobr><%
rs1.Open "Select Name from tbioaUser where ID=" & rs("sqr"),oConn,1,1
if not rs1.EOF then
Response.Write server.HTMLEncode(rs1("Name") & "")
end if
rs1.close
%> </nobr></td>
<td class=listcellrow><nobr><%
rs1.Open "Select bmmc from rs_bmb where bmbh='" & rs("sqbm") & "'",oConn,1,1
if not rs1.EOF then
Response.Write server.HTMLEncode(rs1("bmmc") & "")
end if
rs1.close
%> </nobr></td>
<td class=listcellrow align=center><nobr>
從：<%=formatdatetime_activenew(rs("yjkssj"),"yyyy-mm-dd hh:nn")%>
<br> 到：<%=formatdatetime_activenew(rs("yjjssj"),"yyyy-mm-dd hh:nn")%></nobr></td>
<td class=listcellrow><%=replace(server.HTMLEncode(rs("sqsy") & ""),vbcr,"<br>") %> </td>
<td class=listcellrow align=center><nobr>
<%if rs("sjkssj") & ""<>"" then Response.Write "從：" & formatdatetime_activenew(rs("sjkssj"),"yyyy-mm-dd hh:nn")%>
<br> <%if rs("sjjssj") & ""<>"" then Response.Write "到：" & formatdatetime_activenew(rs("sjjssj"),"yyyy-mm-dd hh:nn")%></nobr></td>
<td class=listcellrow><nobr>
<a href="kq_jbhz_edit.asp?sqxh=<%=rs("sqxh")%>">
<%
select case rs("hzqk")
case "0"
Response.Write "未確認"
case "1"
Response.Write "已確認未核準"
case "2"
Response.Write "未同意"
case "3"
Response.Write "同意"
end select
%></a>
</nobr></td>
</tr>
<%
rs.MoveNext
i=i+1
loop
%>
</form>
<tr>
<%if rs.RecordCount<>0 then%>
<td colspan="7" class="listtail" align=right><%call ShowPage_new(cint(rs.recordcount),cint(rs.pagesize),cint(page),cint(rs.pagecount),"kq_jbhz.asp?sj=" & ssj & "&lb=" & slb & "")%></td>
<%else%>
<td colspan="7" class="listtail" align=center>沒有符合條件的加班申請單</td>
<%end if%>
</tr>
</table>
</body>
</html>
<%
rs.Close
set rs=nothing
set rs1=nothing
oConn.close
set oConn=nothing
%> ?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -